Compartilhar via

Propriedade PictureFormat.ColorModel (Publisher)

  • Artigo

Retorna uma constante PbColorModel que representa o modelo de cores da imagem. Somente leitura.

Sintaxe

expressão. ColorModel

Expressão Uma variável que representa um objeto PictureFormat .

Valor de retorno

PbColorModel

Comentários

O valor da propriedade ColorModel pode ser uma das constantes PbColorModel declaradas na biblioteca de tipos do Microsoft Publisher.

Exemplo

O exemplo a seguir retorna uma lista das imagens com modo de cor RGB na publicação ativa.

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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.