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

Статья
04/07/2023

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

Синтаксис

expression. OriginalIsTrueColor

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

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

MsoTriState

Замечания

Это свойство применяется только к связанным рисункам или объектам OLE. Он возвращает значение "Отказано в разрешении" для фигур, представляющих внедренные или вставленные изображения и объекты OLE.

Используйте одно из следующих свойств, чтобы определить, представляет ли фигура связанное изображение:

Свойство Type объекта Shape
Свойство IsLinked объекта PictureFormat

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

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

Пример

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

Sub PictureColorInformation() 
Dim pgLoop As Page 
Dim shpLoop As Shape 
 
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 
 
 If .IsTrueColor = msoTrue Then 
 Debug.Print .Filename 
 Debug.Print "This picture is TrueColor" 
 If .IsLinked = msoTrue Then 
 If .OriginalIsTrueColor = msoTrue Then 
 Debug.Print "The linked picture is also TrueColor." 
 End If 
 End If 
 End If 
 
 End If 
 End With 
 
 End If 
 Next shpLoop 
Next pgLoop 
 
End Sub

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

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

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