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

Метод PictureFormat.RestoreOriginalColors (Издатель)

  • Статья

Восстанавливает исходные цвета рисунка, который был перекрашен.

Синтаксис

expression. RestoreOriginalColors

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

Замечания

Метод RestoreOriginalColors соответствует кнопке Восстановить исходные цвета в диалоговом окне Перекрасить рисунок (меню Формат>Перекрасить рисунок>).

Пример

В следующем макросе Microsoft Visual Basic для приложений (VBA) показано, как использовать метод RestoreOriginalColors для восстановления исходных цветов рисунка, который был перекрашен с помощью метода Recolor. Он перекрашивает первую фигуру в коллекции Фигуры на первой странице публикации, а затем восстанавливает исходные цвета.

Чтобы этот пример работал, перекрашенная фигура должна быть либо рисунком, либо объектом OLE, который представляет рисунок.

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

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

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