Shape.Fill プロパティ (Publisher)

指定した図形または表のセルの塗りつぶしを表す FillFormat オブジェクトを取得します。

構文

式。埋める

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

例

次の使用例は、新しい AutoShape オブジェクトを作成し、図形を緑色で塗りつぶします。

Sub NewShapeItem() 
 
 Dim shpHeart As Shape 
 
 Set shpHeart = ThisDocument.MasterPages.Item(1).Shapes _ 
 .AddShape(Type:=msoShapeHeart, Left:=40, Top:=80, _ 
 Width:=50, Height:=50) 
 shpHeart.Fill.ForeColor.RGB = RGB(Red:=0, Green:=255, Blue:=0) 
 
End Sub

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

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