Compression Property
MiCOMP_TYPE
MiCOMP_TYPE can be any of the following MiCOMP_TYPE constants. |
miCOMP_UNKNOWN (0) |
miCOMP_NONE (1) |
miCOMP_TIFF_CCITT1D (2) |
miCOMP_TIFF_CCITT3 (3) |
miCOMP_TIFF_CCITT4 (4) |
miCOMP_TIFF_LZW (5) |
miCOMP_TIFF_JPEG6 (6) |
miCOMP_TIFF_JPEG (7) |
miCOMP_TIFF_PACK (32773, &H8005)) |
miCOMP_MODI_BLC (34718, &H879E) |
miCOMP_MODI_VECTOR (34719, &H879F) |
miCOMP_MODI_PTC (34720, &H87A0) |
expression.Compression
*expression * Required. An expression that returns an Image object.
Example
The following example returns the properties, including compression type, of the first image in the active document.
Sub TestImageProperties()
Dim img As MODI.Image
Dim strImageInfo As String
Set img = miDoc.Images(0)
strImageInfo = "Bits per pixel: " & img.BitsPerPixel & vbCrLf & _
"Compression: " & img.Compression & vbCrLf & _
"Pixel height: " & img.PixelHeight & vbCrLf & _
"Pixel width: " & img.PixelWidth & vbCrLf & _
"Horizontal DPI: " & img.XDPI & vbCrLf & _
"Vertical DPI: " & img.YDPI
MsgBox strImageInfo, vbInformation + vbOKOnly, _
"Image Information"
Set img = Nothing
End Sub
Applies to | Image Object