Re: [問題] Excel Insert 圖片的快速方法
以前剛好有解過類似的巨集, 資料放在 A 行 A1, A2, A3 ...
只處理 jpg, 路徑在 c:\, 圖片大小可自行修改, 另外如果要取代同一格
將 Cells(Index,2).Select 中的2改成1即可
巨集的用法請參考之前的文章囉 ...
Sub Macro1()
Set myFso = CreateObject("Scripting.FileSystemObject")
Path = "c:\"
Index = 1
Set myFiles = myFso.GetFolder(Path).Files
For Each myFile In myFiles
If myFso.GetExtensionName(Path:=myFile) = "jpg" Then
With myFile
Cells(Index, 1) = .Name
Cells(Index, 2).Select
ActiveSheet.Pictures.Insert(Path & .Name).Select
Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.Height = 130.5
Selection.ShapeRange.Width = 174#
Selection.ShapeRange.Rotation = 0#
Index = Index + 1
End With
End If
Next
MsgBox ("完成!")
End Sub
※ 引述《BluePond (BluePond)》之銘言：
: 軟體: Excel
: 版本: 2007
: 想請問一下
: 我手上有200張圖片 在某個資料夾
: 我打開Excel要把這200張圖片放到Excel 相對應的儲存格裡面
: 每個格子都有我打上去的檔名 只是沒圖片~但是一張一張拉~真的很慢~
: 一次全部拉會很亂, 我目前是一次5個圖片拉
: 有辦法就是從Excel拉圖檔 跟 檔名一起到Excel裡面嗎?
: 感謝!!
: 爬文說有人用CMD模式~~但是小弟...真的看不懂 也無從下手
: 請問有甚麼方法嗎?
: 感恩感謝
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.131.84.79
→
02/21 16:58, , 1F
02/21 16:58, 1F
討論串 (同標題文章)
本文引述了以下文章的的內容：
完整討論串 (本文為第 2 之 2 篇)：
Office 近期熱門文章
PTT數位生活區 即時熱門文章
