ShapeRange.SetShapesDefaultProperties メソッド (Excel)

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

構文

式。SetShapesDefaultProperties

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

例

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

Set myDocument = Worksheets(1) 
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 
 ' Set formatting as default formatting 
 .SetShapesDefaultProperties 
 End With 
 ' Create new shape with default formatting 
 .AddShape msoShapeRectangle, 90, 90, 40, 30 
End With

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

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