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

看板Office作者 (有小公主就夠了)時間17年前 (2009/02/09 00:30), 編輯推噓0(000)
留言0則, 0人參與, 最新討論串2/5 (看更多)
hello ~你好。 我在c槽下放了一張jpg檔,檔名 : 10.jpg 然後照著下面的步驟做,並且在B4這格填 10.jpg 開始執行卻有一些問題: a. 出現錯誤訊息 "執行階段錯誤: 無法取得類別Pictures的insert屬性”    然後把B4內容刪掉,在B5填 10.jpg就不會有錯誤。 b. 雖然沒有再出現錯誤訊息, 最後也有出現 "完成"的msgBox, 可是在C5卻沒有出現對應的圖片。 不知道可能是什麼原因? 謝謝^^ ※ 引述《windknife18 (windknife18)》之銘言: : 都沒人回答,來練一下兵囉 ..... : 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: 123.204.156.51
文章代碼(AID): #19ZmYUcU (Office)
文章代碼(AID): #19ZmYUcU (Office)