Export (0) Print
Expand All

PictureFormat.ColorModel Property

Office 2007
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 .ColorModel = pbColorModelRGB Then
                            Debug.Print .Filename
                        End If
                    End If
                End With
            
            End If
        
        Next shpLoop
    Next pgLoop

End Sub



Community Additions

ADD
Show:
© 2014 Microsoft