PictureFormat.ColorModel Property (Publisher)

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


expression. ColorModel

expression A variable that represents a PictureFormat object.

Return Value



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


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

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