- 帖子
- 2035
- 主題
- 24
- 精華
- 0
- 積分
- 2031
- 點名
- 0
- 作業系統
- Win7
- 軟體版本
- Office2010
- 閱讀權限
- 100
- 性別
- 男
- 註冊時間
- 2012-3-22
- 最後登錄
- 2024-2-1
|
本帖最後由 c_c_lai 於 2016-5-26 09:10 編輯
回復 3# 建銘
將程式貼至 ThisWorkbook 或是 你的工作表單內 (譬如:"Sheet1" 、"工作表1") 或是模組內 (如:Module1、模組1) 均可。
順手將- With .Pictures.Insert(Mypath & E(2, 2) & ".jpg")
複製代碼 修改成- ActiveSheet.Pictures.Insert(Mypath & E(2, 2) & ".jpg").Select
- With Selection
複製代碼 或是- .Pictures.Insert(Mypath & E(2, 2) & ".jpg").Select
- With Selection
複製代碼 這是因為你已經位在 With Sheets("xxxxx") 內了,ActiveSheet 即是指 Sheets("xxxxx")。
以及- For y = 0 To 9
- For x = 0 To 2
複製代碼 修改成- For y = 0 To 1
- For x = 0 To 1
複製代碼 就符合你的提問了。 |
|