BorderArtFormat.RevertToOriginalColor メソッド (Publisher)

  • [アーティクル]

指定された図形の飾り枠を既定の色に戻します。

構文

式。RevertToOriginalColor

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

注釈

RevertToOriginalColor メソッドは、[図形>の書式設定<] ダイアログ ボックスの [色] コントロールの既定の選択と同じ効果を持ちます。

元の 色 以外の色に BorderArt を設定するには、Color プロパティを使用します。

例

次の使用例は、作業中の文書の各ページで、各図形に飾り枠があるか調べます。 飾り枠があれば、既定の太さと元の色に設定します。

Sub RestoreBorderArtDefaults() 
 
Dim anyPage As Page 
Dim anyShape As Shape 
 
For Each anyPage in ActiveDocument.Pages 
 For Each anyShape in anyPage.Shapes 
 With anyShape.BorderArt 
 If .Exists = True Then 
 .RevertToDefaultWeight 
 .RevertToOriginalColor 
 End If 
 End With 
 Next anyShape 
Next anyPage 
End Sub

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。