PictureFormat.RestoreOriginalColors メソッド (Publisher)

色を変更した図の色を、元の色に戻します。

構文

式。RestoreOriginalColors

式PictureFormat オブジェクトを表す変数。

注釈

RestoreOriginalColors メソッドは、[図の色を変更] ダイアログ ボックスの [元の色に戻す] ボタンに対応します ([書式] メニューの [>図>の色を変更] )。

例

次の Microsoft Visual Basic for Applications (VBA) マクロは、RestoreOriginalColors メソッドを使用して、Recolor メソッドを使用して色を変更した画像の元の色を復元する方法を示しています。 Recolors の文書の最初のページに 図形 のコレクションの最初の図形と、元の色が復元されます。

この使用例が動作するためには、色を変更された図形が、図、または図を表す 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 のサポートおよびフィードバックを参照してください。