彰化一整天的論壇

 找回密碼
 立即註冊
查看: 142|回復: 2

依儲存格的名稱插入對應的照片

[複製鏈接]
發表於 2019-11-20 22:33:20 | 顯示全部樓層 |閱讀模式
本帖最後由 蔡2704 於 2019-11-20 22:34 編輯

我試著錄制及修改了一個巨集,希望能依照儲存格的輸入的內容將對應的照片插入並調整好大小.
但是不懂何處不對,巨集無法執行,無法出現照片.
sPath是目前照片存檔的位置
希望依照  A2儲存格SM32找到SM32.jpg照片放在A6儲存格  
B2儲存格P1,找到SM32-P1.jpg照片放在B6儲存格
C2儲存格P2,找到SM32-P2.jpg照片放在A8儲存格
D2儲存格P3,找到SM32-P3.jpg照片放在B8儲存格
照片調整大約高8cm
不知巨集為何不能執行.
請大師指導.感恩.




活頁簿1.xlsm

14.75 KB, 下載次數: 4

回復

使用道具 舉報

發表於 2019-11-21 09:46:51 | 顯示全部樓層
您好,      變數不能在字串中。
您原本的程式
  1. Sub 巨集1()
  2. '
  3. ' 巨集1 巨集
  4. '

  5. '
  6.     spath = "D:\綠億\106年\營建署南苗污水幹管-蔡\照片\中正路工作井\"
  7.     i = Range("A2")
  8.     sfile = Dir(spath & " i.jpg")
  9.     Range("A6").Select
  10.     ActiveSheet.Pictures.Insert(spath & sfile).Select
  11.     Selection.ShapeRange.Height = 226.77
  12.    
  13.     spath = "D:\綠億\106年\營建署南苗污水幹管-蔡\照片\中正路工作井\"
  14.     k = Range("A2") & "-" & Range("B2")
  15.     sfile = Dir(spath & " k.jpg")
  16.     Range("B6").Select
  17.     ActiveSheet.Pictures.Insert(spath & sfile).Select
  18.     Selection.ShapeRange.Height = 226.77
  19. End Sub
複製代碼
修改過的.
  1. Sub 巨集1()
  2. '
  3. ' 巨集1 巨集
  4. '

  5. '
  6.     spath = "D:\綠億\106年\營建署南苗污水幹管-蔡\照片\中正路工作井\"
  7.     i = Range("A2")
  8.     sfile = Dir(spath & i & ".jpg")
  9.     Range("A6").Select
  10.     ActiveSheet.Pictures.Insert(spath & sfile).Select
  11.     Selection.ShapeRange.Height = 226.77
  12.    
  13.     spath = "D:\綠億\106年\營建署南苗污水幹管-蔡\照片\中正路工作井\"
  14.     k = Range("A2") & "-" & Range("B2")
  15.     sfile = Dir(spath & k & ".jpg")
  16.     Range("B6").Select
  17.     ActiveSheet.Pictures.Insert(spath & sfile).Select
  18.     Selection.ShapeRange.Height = 226.77
  19. End Sub
複製代碼


圖片範例.xlsm

12.32 KB, 下載次數: 1

售價: 1 金錢  [記錄]

回復 支持 反對

使用道具 舉報

 樓主| 發表於 2019-11-21 12:06:40 | 顯示全部樓層
感恩,感恩..原來是變數在字串中所以有誤.感謝指導.
回復 支持 反對

使用道具 舉報

您需要登錄後才可以回帖 登錄 | 立即註冊

本版積分規則

 ㄚ母滴雞湯
 員林香純滴雞精

Archiver|手機版|小黑屋|彰化一整天的論壇(Excel,Office)  

GMT+8, 2019-12-15 21:56 , Processed in 0.166506 second(s), 22 queries .

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回復 返回頂部 返回列表