Option Explicit\n\nPrivate Type BITMAP \'24 bytes\n   bmType As Long\n   bmWidth As Long\n   bmHeight As Long\n   bmWidthBytes As Long\n   bmPlanes As Integer\n   bmBitsPixel As Integer\n   bmBits As Long\nEnd Type\n\nPrivate Declare Function GetObjectA Lib "gdi32" ( _\n   ByVal hObject As Long, ByVal nCount As Long, lpObject As Any) As Long\n\nPrivate Declare Function GetObjectType Lib "gdi32" ( _\n   ByVal hgdiobj As Long) As Long\nPrivate Const OBJ_BITMAP =  7 \n\nPublic Sub PrintPicProps(Pic As IPictureDisp)\n Dim bm As BITMAP\n Dim cbSize As Long\n Dim cbCopied As Long\n \n If Pic Is Nothing Then Exit Sub\n  \'Ожидается pic.Type=vbPicTypeBitmap=1,GetObjectType(pic.Handle)=OBJ_BITMAP=7\n If GetObjectType(Pic.Handle) <> OBJ_BITMAP Then Exit Sub\n \'Получаем заголовок битмапа, чтобы извлечь из него размеры изображения\n \'в пикселях\n cbSize = LenB(bm)\n cbCopied = GetObjectA(Pic.Handle, cbSize, bm)\n If cbCopied <> cbSize Then Exit Sub\n Debug.Print bm.bmWidth, bm.bmHeight, bm.bmBitsPixel, bm.bmPlanes\nEnd Sub