返回列表 上一主題 發帖

[發問] 讀取圖片像素

軒云熊

帖子
254 
主題
6 
精華
0 
積分
310 
點名
0  
作業系統
W10 
軟體版本
Excel 2016 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2019-6-16 
最後登錄
2025-6-21 
1# 跳轉到 »
發表於 2021-2-20 02:44 | 顯示全部帖子
本帖最後由 軒云熊 於 2021-2-20 02:55 編輯

回復 1# acdx

有空幫我試試看是不是你要的結果 謝謝
  1. Sub 讀取指定資料匣照片尺寸練習()
  2.     Application.ScreenUpdating = False
  3.    
  4.     Application.FileDialog(msoFileDialogFolderPicker).Show
  5.     B = Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1)
  6.     Set Sh = CreateObject("Shell.Application")
  7.     Set Dr = Sh.Namespace(B)

  9.     For Each F In Dr.Items
  10.         If F Like "*jpg" Then
  11.             E = F.extendedproperty("Dimensions")
  12.             Debug.Print Mid(E, 2, Len(E) - 2)
  13.         End If
  14.     Next
  15.    
  16.     Set Sh = Nothing
  17.     Set Dr = Nothing
  18.     Set F = Nothing
  19.     E = "": B = ""

  21.     Application.ScreenUpdating = True
  22. End Sub
複製代碼

TOP

        靜思自在 : 吃苦了苦、苦盡廿來，享福了福、福盡悲來。
返回列表 上一主題