PictureFormat.ColorsInPalette property (Publisher)

Статья
04/07/2023

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

Синтаксис

expression. ColorsInPalette

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

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

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

Замечания

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

Используйте свойство IsTrueColor , чтобы определить, содержит ли рисунок цветовые данные 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 и обратная связь.

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