InlineShape.Fill (Word)
Gibt ein FillFormat -Objekt zurück, das Füll Formatierungseigenschaften für die angegebene Form enthält.
Set myDocument = Documents(1)
With myDocument.Shapes.AddShape(msoShapeRectangle, _
90, 90, 90, 50).Fill
.ForeColor.RGB = RGB(128, 0, 0)
.BackColor.RGB = RGB(170, 170, 170)
.TwoColorGradient msoGradientHorizontal, 1
End With