get a picture width and height without inserting the picture

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I am using office 2003 and writing a VBA. I want to get a picture width and
height without inserting the picture to the worksheet. Is there any solution?
 
Hi Dorothy,

The following routine requires a reference to the Microsoft Scripting
Runtime Library ( Tools | References | Navigate to and Check the library)


Sub Tester1()

strFolder = "C:\Documents and Settings\My Pictures"
strFile = "Test.gif"

Set objShellApp = CreateObject("Shell.Application")
Set objFolder = objShellApp.NameSpace(strFolder)
Set objFolderItem = objFolder.ParseName(strFile)


Dim arrHeaders(39)
For i = 0 To UBound(arrHeaders)
arrHeaders(i) = objFolder.GetDetailsOf(objFolder.Items, i)
Next


For i = 0 To UBound(arrHeaders)
MsgBox i & vbTab & arrHeaders(i) _
& ": " & objFolder.GetDetailsOf(objFolderItem, i)
Next

End Sub


The above routine returns many more attributes than you have asked for. You
could restrict it to attributes of immediate interest, e.g.:

Sub Tester2()
strFolder = "C:\Documents and Settings\My Pictures"
strFile = "Test.gif"

Set objShellApp = CreateObject("Shell.Application")
Set objFolder = objShellApp.NameSpace(strFolder)
Set objFolderItem = objFolder.ParseName(strFile)


strSize = objFolder.GetDetailsOf(objFolderItem, 1)
MsgBox "Size: " & strSize


strDatePT = objFolder.GetDetailsOf(objFolderItem, 25)
MsgBox "Date Picture Taken: " & strDatePT

End Sub
 
Back
Top