§Ún¿ï¨ú¹Ï¤ù¨ÃŪ¨ú¸Ó¹Ï¤ùªº¹³¯À, ¤U±ªº§@ªkµLªk©w¥u§ì.jpgÀÉ·|³s¦P¸ê®Æ§¨¤º©Ò¦³Àɮ׳£·|¤@¤@Ū¨ú, ¸Ó¦p¦ó§ï¦¨¥u§ì.jpgÀÉ?
pic2.zip (19.34 KB)
Sub Pics()
Dim PicList As Variant, sFile As Variant
Dim oShell As Variant, oDir As Variant
Dim Dms(20) As String
SetCurrentDirectory ActiveWorkbook.Path
PicList = Application.GetOpenFilename(filefilter:="JPEG ÀÉ®× (*.jpg),*.jpg", FilterIndex:=5, Title:="´¡¤J¹Ï¤ù", MultiSelect:=True)
Set oShell = CreateObject("Shell.Application")
Set oDir = oShell.Namespace(CurDir)
i = 1
For Each sFile In oDir.items
Dms(i) = sFile.extendedproperty("Dimensions")
MsgBox (Dms(i))
i = i + 1
Next
End Sub |