PictureFormat.OriginalColorsInPalette property (Publisher)

Статья
04/07/2023

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

Синтаксис

expression. OriginalColorsInPalette

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

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

Длинное целое

Замечания

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

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

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

Используйте свойство OriginalIsTrueColor , чтобы определить, содержит ли связанное изображение цветовые данные 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 = msoFalse Then 
 Debug.Print .Filename 
 Debug.Print "This picture has " & .ColorsInPalette & " colors." 
 If .IsLinked = msoTrue Then 
 If .OriginalIsTrueColor = msoFalse Then 
 Debug.Print "The linked picture has " & _ 
 .OriginalColorsInPalette & " colors." 
 End If 
 End If 
 End If 
 
 End If 
 End With 
 
 End If 
 Next shpLoop 
Next pgLoop 
 
End Sub

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

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

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