Shape.SetShapesDefaultProperties メソッド (Word)

文書の既定の図形の書式を、指定された図形に適用します。

構文

式。SetShapesDefaultProperties

expression 必須です。 Shape オブジェクトを表す変数を指定します。

注釈

新しく図形を作成すると、その図形は既定の図形から大部分の属性を継承します。

例

次の使用例は、 myDocument に四角形を追加し、四角形の塗りつぶしを書式設定し、四角形の書式設定を既定の図形に適用してから、ドキュメントに別の (小さい) 四角形を追加します。 2 番目に作成した四角形の塗りつぶしは最初の四角形と同じです。

Set mydocument = ActiveDocument 
With mydocument.Shapes 
 With .AddShape(msoShapeRectangle, 5, 5, 80, 60) 
 With .Fill 
 .ForeColor.RGB = RGB(0, 0, 255) 
 .BackColor.RGB = RGB(0, 204, 255) 
 .Patterned msoPatternHorizontalBrick 
 End With 
 ' Sets formatting for default shapes 
 .SetShapesDefaultProperties 
 End With 
 ' New shape has default formatting 
 .AddShape msoShapeRectangle, 90, 90, 40, 30 
End With

関連項目

Shape オブジェクト

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

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