Share via


IsGreyScale Property [Publisher 2003 VBA Language Reference]

MsoTriState

MsoTriState can be one of these MsoTriState constants.
msoCTrue Not used with this property.
msoFalse The picture is not a greyscale image.
msoTriStateMixed Indicates a combination of msoTrue and msoFalse for the specified shape range.
msoTriStateToggle Not used with this property.
msoTrue The specified picture is a greyscale image.

expression.IsGreyScale()

expression Required. An expression that returns a PictureFormat object.

Example

The following example returns a list of the greyscale pictures contained in the active publication.

Sub ListGreyScalePictures()
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 And .IsGreyScale = msoCTrue Then
                        
                        Debug.Print .Filename
                        Debug.Print "Page " & pgLoop.PageNumber
                        
                    End If
                End With
            
            End If
        
        Next shpLoop
    Next pgLoop

End Sub

Applies to | PictureFormat Object