Re: [算表] Excel欄位輸入檔名如何自動插入圖片(VBA)

看板Office作者windknife18 (windknife18)時間17年前 (2009/02/08 01:41)推噓3(3推 0噓 0→)

留言3則, 3人參與討論串1/1

都沒人回答，來練一下兵囉 ..... 1.首先工具->巨集->錄製新巨集按確定後直接按停止 2. Alt+F11 左邊視窗模組->Module1 3. 將右邊視窗地內容改寫如下, 注意 C:\ 表示你檔案的位置，你可以自己改 4. 注意將你的檔名要寫在 B4,B5,B6,B7 ......... 5. 最後 Alt+F8 後按執行即可 Sub Macro1() Index = 4 While (Len(Cells(Index, 2)) > 0) Cells(Index, 3).Select ActiveSheet.Pictures.Insert( _ "C:\" & Cells(Index, 2)).Select Selection.ShapeRange.LockAspectRatio = msoTrue Selection.ShapeRange.Height = 130.5 Selection.ShapeRange.Width = 174# Selection.ShapeRange.Rotation = 0# Index = Index + 1 Wend MsgBox ("完成!") End Sub ※ 引述《wpdt1234 (樂　v(￣︶￣)y)》之銘言： : 軟體: Office Excel : 版本: 2003 : 因工作上的需要，常需用EXCEL 做圖片表格 : 因為這些動作都是重覆的，一天下來需做幾百個圖片追蹤表 : 請問有什麼辦法可以在讓我在 B 欄位輸入圖片檔案名稱 : 圖片會自動變成高度4.6公分，並插入在 C 的欄位上。 : 例如: : 在 B3 欄位輸入圖片檔名「XM3865」，圖片就會在 C3 的欄位上自動插入此張圖片， : 並照比例縮小成高度4.6公分。 : 同個表格下面以此類推　輸入 B4 →圖片自動插入 C4 。 : 　 B5 →圖片自動插入 C5 。 : 　 B6 →圖片自動插入 C6 。 : " : " : " : 請各位幫忙，謝謝！ -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 61.229.81.82