Bildgröße ermitteln
21.02.2006 14:00:29
Rolf
kennt jemand eine Möglichkeit,
die Höhe eines Bildes ohne das verpönte "Select"
zu ermitteln?
fG
Rolf
Sub test_function()
MsgBox GetPictureHeight("C:\bild.jpg")
End Sub
Function GetPictureHeight(strJpegFile$) As Long
ActiveSheet.Pictures.Insert(strJpegFile$).Select
GetPictureHeight = Selection.ShapeRange.Height
Selection.Delete
End Function