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

Статья
04/07/2023

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

Синтаксис

expression. IsGreyScale

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

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

MsoTriState

Замечания

Значение свойства IsGreyScale может быть одной из констант MsoTriState , объявленных в библиотеке типов Microsoft Office и показанных в следующей таблице.

Константа	Описание
msoFalse	Изображение не является изображением в оттенках серого.
msoTriStateMixed	Указывает сочетание msoTrue и msoFalse для указанного диапазона фигур.
msoTrue	Указанное изображение является изображением в оттенках серого.

Пример

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

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

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

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

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