Поделиться через

Свойство PictureFormat.HasTransparencyColor (Publisher)

  • Статья

Возвращает логическое значение, указывающее, применен ли цвет прозрачности к указанному изображению. Только для чтения.

Синтаксис

expression. HasTransparencyColor

Выражение Переменная, представляющая объект PictureFormat .

Возвращаемое значение

Boolean

Пример

В следующем примере возвращается список изображений с цветами прозрачности в активной публикации.

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

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.