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