Método PictureFormat.RestoreOriginalColors (Publisher)

Restaura as cores originais de uma imagem que foi recolorida.

Sintaxe

expressão. RestoreOriginalColors

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

Comentários

O método RestoreOriginalColors corresponde ao botão Restaurar Cores Originais na caixa de diálogo Imagem Recolor (Formatar menu >Imagem>Recolorir).

Exemplo

A macro do Microsoft Visual Basic for Applications (VBA) a seguir mostra como usar o método RestoreOriginalColors para restaurar as cores originais de uma imagem que foi recolorida usando o método Recolor. Ela recolors a primeira forma da coleção de formas na primeira página da publicação e restaura as cores originais.

Para que esse exemplo funcione, a forma recolorida deve ser uma imagem ou um objeto OLE que represente uma imagem.

Public Sub RestoreOriginalColors_Example() 
 
 Dim pubPictureFormat As Publisher.PictureFormat 
 Dim pubShape As Publisher.Shape 
 Dim pubColorFormat As Publisher.ColorFormat 
 
 Set pubShape = ThisDocument.Pages(1).Shapes(1) 
 
 Set pubPictureFormat = pubShape.PictureFormat 
 Set pubColorFormat = pubShape.Fill.BackColor 
 
 pubPictureFormat.Recolor pubColorFormat, msoTrue 
 MsgBox "Picture was recolored." 
 pubPictureFormat.RestoreOriginalColors 
 MsgBox "Original colors in picture were restored." 
 
 
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.