返回列表 上一主題 發帖

[發問] 利用迴圈分別插入圖片至所有的工作頁

a703130

帖子
97 
主題
32 
精華
0 
積分
167 
點名
0  
作業系統
WinXP 
軟體版本
Office2003 
閱讀權限
20 
性別
男 
註冊時間
2011-3-22 
最後登錄
2017-8-16 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2011-5-4 10:11 | 只看該作者

[發問] 利用迴圈分別插入圖片至所有的工作頁

請教各位大佬
我原本錄巨集將10張圖片分別在各sheet貼兩張，由Sheet(1)~sheet(5)
下面是我錄的其中一個巨集，請問我有辦法用迴圈來簡化這程式碼嗎?
Sub Test()
    Sheets(1).Select

    Range("B9").Select
    ActiveSheet.Pictures.Insert("C:\test1.JPG").Select
    Selection.ShapeRange.LockAspectRatio = msoTrue
    Selection.ShapeRange.Height = 438.75
    Selection.ShapeRange.Width = 590.25
    Selection.ShapeRange.Rotation = 0#

    Range("J9").Select
    ActiveSheet.Pictures.Insert("C:\final1.JPG").Select
    Selection.ShapeRange.LockAspectRatio = msoTrue
    Selection.ShapeRange.Height = 438.75
    Selection.ShapeRange.Width = 590.25
    Selection.ShapeRange.Rotation = 0#
End Sub
收藏 分享

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
256  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-11-26 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
3#
發表於 2011-5-4 15:58 | 只看該作者
10張圖分別插入5張工作表
每張工作表2張圖
  1. Sub ex()
  2. d = "D:\"
  3. f = "*.png"
  4. fs = Dir(d & f)
  5. i = 1
  6. Do Until fs = ""
  7.    With Sheets(i).Pictures.Insert(d & fs)
  8.    If s Mod 2 = 0 Then _
  9.    .Top = Sheets(i).[B9].Top: .Left = Sheets(i).[B9].Left _
  10.    Else .Top = Sheets(i).[J9].Top: .Left = Sheets(i).[J9].Left
  11.    End With
  12.    s = s + 1
  13.    If s Mod 2 = 0 Then i = i + 1
  14.    fs = Dir
  15. Loop
  16. End Sub
複製代碼
學海無涯_不恥下問

TOP

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

帖子
1572 
主題
16 
精華
2 
積分
1521 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
150 
性別
男 
註冊時間
2010-5-1 
最後登錄
2016-1-13 

論壇貢獻勳章
2#
發表於 2011-5-4 10:45 | 只看該作者
這個須要先知道10個圖片的名稱路徑
如果多的話圖片名稱最好有規律可以做迴圈

TOP

        靜思自在 : 【時間成就一切】時間可以造就人格，可以成就事業，也可以儲積功德。
返回列表 上一主題