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

Статья
04/07/2023

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

Синтаксис

expression. ColorModel

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

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

PbColorModel

Замечания

Значение свойства ColorModel может быть одной из констант PbColorModel , объявленных в библиотеке типов издателя Майкрософт.

Пример

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

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

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

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

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