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

Статья
04/07/2023

Возвращает константу MsoTriState , указывающую, содержит ли указанное изображение или объект OLE цветовые данные 24 бита на канал или больше. Только для чтения.

Синтаксис

expression. IsTrueColor

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

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

MsoTriState

Замечания

Для рисунков, которые не являются TrueColor, используйте свойство ColorsInPalette , чтобы определить количество цветов в палитре рисунка.

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

Константа	Описание
msoFalse	Указанное изображение не содержит цветовые данные с 24 битами на канал или больше.
msoTriStateMixed	Возвращаемое значение, указывающее сочетание msoTrue и msoFalse для указанного диапазона фигур.
msoTrue	Указанное изображение содержит цветовые данные из 24 бит на канал или больше.

Пример

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

For Each pgLoop In ActiveDocument.Pages 
 For Each shpLoop In pgLoop.Shapes 
 If shpLoop.Type = pbLinkedPicture Or shpLoop.Type = pbPicture Then 
 
 With shpLoop.PictureFormat 
 If .IsEmpty = msoFalse Then 
 Debug.Print .Filename 
 If .IsTrueColor = msoTrue Then 
 Debug.Print "This picture is TrueColor" 
 Else 
 Debug.Print "This picture contains " & .ColorsInPalette & " colors." 
 End If 
 End If 
 End With 
 
 End If 
 Next shpLoop 
Next pgLoop

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

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

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