Share via


HasTransparencyColor Property [Publisher 2003 VBA Language Reference]

Returns a Boolean that indicates whether a transparency color has been applied to the specified picture. Read-only.

expression.HasTransparencyColor()

expression Required. An expression that returns a PictureFormat object.

Example

The following example returns a list of the pictures with transparency colors in the active publication.

Sub ListPicturesWithTransColors()
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 .HasTransparencyColor = True Then
                            Debug.Print .Filename
                        End If
                    End If
                End With
            
            End If
        
        Next shpLoop
    Next pgLoop

End Sub

Applies to | PictureFormat Object