VB-Tec.de Visual Basic - Technik, FAQ, Tricks, Beispiele

Um die Größe einer Bitmap zu bestimmen genügen einfache VB-Mittel (hier inklusive Umrechnung in Pixel):

Dim Pic As stdole.StdPicture
Dim PicWidth As Long
Dim PicHeight As Long

Set Pic = LoadPicture("C:\blabla.bmp")
PicWidth = CLng(ScaleX(Pic.Width, vbHimetric, vbPixels))
PicHeight = CLng(ScaleY(Pic.Height, vbHimetric, vbPixels))

Stellen Sie bitte sicher, dass unter Project/References (bzw. deutsch Projekt/Verweise o.ä.) das Häckchen vor "OLE Automation" gesetzt ist.