Re: [算表] Excel欄位輸入檔名如何自動插入圖片
※ 引述《lalalahu (<(￣︶￣)@m)》之銘言：
: ※ 引述《windknife18 (windknife18)》之銘言：
: : 1. 應該是找不到檔案, 記得一定要在 c 槽的根目路，
: : 如果想放到別的地方，要改路徑
: : 2. 因為程式是從 B4 開始判定到沒有資料為止，所以
: : 如果B4 沒有資料，程式就會結束，
: : 如果要從其他地方開始，可以改一開始 Index 的值，
: : 如果改為 5，就表示要從 B5 開始往下找
: 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
再次請教W兄!
如果我的照片檔案名稱是XXX(流水號數字)+中文名稱
能在A1儲存格內只需要輸入流水數字，有辦法直接匯入圖片嗎(因為中文名稱很長)
ActiveSheet.Pictures.Insert( _
"C:\" & range("A1")).Select
謝謝W兄的協助
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 114.25.158.123
討論串 (同標題文章)
本文引述了以下文章的的內容：
完整討論串 (本文為第 5 之 5 篇)：
Office 近期熱門文章
PTT數位生活區 即時熱門文章
