Re: [算表] Excel欄位輸入檔名如何自動插入圖片
※ 引述《windknife18 (windknife18)》之銘言：
: 1. 應該是找不到檔案, 記得一定要在 c 槽的根目路，
: 如果想放到別的地方，要改路徑
: 2. 因為程式是從 B4 開始判定到沒有資料為止，所以
: 如果B4 沒有資料，程式就會結束，
: 如果要從其他地方開始，可以改一開始 Index 的值，
: 如果改為 5，就表示要從 B5 開始往下找
: ※ 引述《oscar721 (有小公主就夠了)》之銘言：
: : hello ~你好。
: : 我在c槽下放了一張jpg檔，檔名 : 10.jpg
: : 然後照著下面的步驟做，並且在B4這格填 10.jpg
: : 開始執行卻有一些問題:
: : a. 出現錯誤訊息
: : "執行階段錯誤： 無法取得類別Pictures的insert屬性”
: : 然後把B4內容刪掉，在B5填 10.jpg就不會有錯誤。
: : b. 雖然沒有再出現錯誤訊息，
: : 最後也有出現 "完成"的msgBox, 可是在C5卻沒有出現對應的圖片。
: : 不知道可能是什麼原因?
: : 謝謝^^
W大您好!
我跟著您的方法試著做做看(小改，不知對不對)，
圖檔名如果是1.jpg 可以抓到圖
但如果是100.jpg就會出現錯誤訊息
請教不知是哪裡錯了! 謝謝
Sub Macro1()
If (Len(Cells(1, 1)) > 0) Then
Cells(1, 4).Select
ActiveSheet.Pictures.Insert( _
"C:\" & Cells(1, 1)).Select
Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.Height = 80
Selection.ShapeRange.Width = 90#
Selection.ShapeRange.Rotation = 0#
End If
End Sub
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 203.67.114.44
→
08/20 15:41, , 1F
08/20 15:41, 1F
→
08/26 00:33, , 2F
08/26 00:33, 2F
討論串 (同標題文章)
Office 近期熱門文章
PTT數位生活區 即時熱門文章
