Share via

PictureFormat.ColorModel Property

  • Article
Publisher Developer Reference

Returns a PbColorModel constant that represents the color model of the picture. Read-only.

Syntax

expression.ColorModel

expression   A variable that represents a PictureFormat object.

Return Value
PbColorModel

Remarks

The ColorModel property value can be one of the PbColorModel constants declared in the Microsoft Office Publisher type library.

Example

The following example returns a list of the pictures with RGB color mode in the active publication.

Visual Basic for Applications 
  Sub ListRGBPictures()
Dim pgLoop As Page
Dim shpLoop As Shape

For Each pgLoop In ActiveDocument.Pages
    For Each shpLoop In pgLoop.Shapes

        If shpLoop.Type = pbPicture Or shpLoop.Type = pbLinkedPicture Then
        
            With shpLoop.PictureFormat
                If .IsEmpty = msoFalse Then
                    If .<strong>ColorModel</strong> = pbColorModelRGB Then
                        Debug.Print .Filename
                    End If
                End If
            End With
        
        End If
    
    Next shpLoop
Next pgLoop



End Sub

See Also