返回列表 上一主題 發帖

[發問] 自動插入圖片

本帖最後由 c_c_lai 於 2016-5-26 09:10 編輯

回復 3# 建銘
將程式貼至 ThisWorkbook 或是 你的工作表單內 (譬如:"Sheet1" 、"工作表1") 或是模組內 (如:Module1、模組1) 均可。
順手將
  1.     With .Pictures.Insert(Mypath & E(2, 2) & ".jpg")
複製代碼
修改成
  1.     ActiveSheet.Pictures.Insert(Mypath & E(2, 2) & ".jpg").Select
  2.     With Selection
複製代碼
或是
  1.     .Pictures.Insert(Mypath & E(2, 2) & ".jpg").Select
  2.     With Selection
複製代碼
這是因為你已經位在 With Sheets("xxxxx") 內了,ActiveSheet 即是指 Sheets("xxxxx")。
以及
  1.         For y = 0 To 9
  2.             For x = 0 To 2
複製代碼
修改成
  1.         For y = 0 To 1
  2.             For x = 0 To 1
複製代碼
就符合你的提問了。

TOP

回復 6# ML089
我只是解答 #3 的提問而已,其實你 #5 的範例
也蠻不錯的。尤其是圖片修飾的語法。

TOP

        靜思自在 : 【是否發揮了良能?】人間壽命因為短暫,才更顯得珍貴。難得來一趟人間,應問是否為人間發揮了自己的良能,而不要一味求長壽。
返回列表 上一主題