指定形状的填充与幻灯片背景相匹配。如果将此方法应用于填充后又更改了幻灯片背景色,该填充会随之改变。
请注意,将 Background 方法应用于形状的填充与设置该形状的透明填充不完全相同,也不完全等同于将形状填充设为与背景相同。请参见第二个示例。
本示例将活动演示文稿第一张幻灯片第一个形状的填充设为与幻灯片背景相匹配。
ActivePresentation.Slides(1).Shapes(1).Fill.Background
本示例将活动演示文稿第一张幻灯片的背景设为一个预设的过渡填充,在幻灯片中添加一个矩形,然后在该矩形前面放置三个椭圆。第一个椭圆的填充与幻灯片背景相匹配,第二个的填充为透明,而第三个使用的填充方式与背景相同。请注意三个椭圆外观的不同。
With ActivePresentation.Slides(1)
.FollowMasterBackground = False
.Background.Fill.PresetGradient _
msoGradientHorizontal, 1, msoGradientDaybreak
With .Shapes
.AddShape msoShapeRectangle, 50, 200, 600, 100
.AddShape(msoShapeOval, 75, 150, 150, 100) _
.Fill.Background
.AddShape(msoShapeOval, 275, 150, 150, 100).Fill _
.Transparency = 1
.AddShape(msoShapeOval, 475, 150, 150, 100) _
.Fill.PresetGradient _
msoGradientHorizontal, 1, msoGradientDaybreak
End With
End With