→ soyoso: CreateObject("Shell.Application").Namespace(路徑). 08/29 16:28
→ soyoso: .Parsename(檔名).ExtendedProperty("Dimensions") 08/29 16:28
→ foolkids: 謝謝蘇大! 我去研究看看 08/29 22:44
實作之後發現:我必須先設定一個物件變數才可以取得尺寸,所以會變成
Set obj = CreateObject("Shell.Application")
D = obj.Namespace("路徑").ParseName("檔名").ExtendedProperty("Dimensions")
MsgBox D 會得到 ?720 x 480?
如果直接寫在同一行會跳錯誤,不知道是否是我操作有誤?
※ 編輯: foolkids (114.39.139.88), 08/29/2014 23:00:18
奇怪! 結果又可以了!! 我剛剛不知道犯了什麼詭異的錯誤... 謝謝蘇大!!
※ 編輯: foolkids (114.39.139.88), 08/29/2014 23:28:13
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 211.72.124.31 (臺灣)
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1650423391.A.3BD.html
自己回答 已解決
Dim E As Variant
With Application.FileDialog(msoFileDialogOpen)
.Show
For Each E In .SelectedItems '路徑位置
Dim w As Integer
Dim h As Integer
ActiveSheet.Pictures.insert(E).Select '插入圖片選中
w = Selection.Width 'w值等於選中圖片的
寬度
h = Selection.Height 'h值等於選中圖片的
寬度
Selection.Delete '清除選中圖片
※ 編輯: cctu (211.72.124.31 臺灣), 04/20/2022 15:16:00