PowerPoint VBA教程:DefaultShape属性

返回代表演示文稿中默认形状的Shape对象。只读。

VBA示例

本示例为当前演示文稿的第一张幻灯片添加一个形状,将演示文稿中形状的默认填充颜色设为红色。然后添加另一个形状,默认填充颜色将自动应用于此形状。


With Application.ActivePresentation
    Set sld1Shapes = .Slides(1).Shapes
    sld1Shapes.AddShape msoShape16pointStar, 20, 20, 100, 100
    .DefaultShape.Fill.ForeColor.RGB = RGB(255, 0, 0)
    sld1Shapes.AddShape msoShape16pointStar, 150, 20, 100, 100
End With

上页:PowerPoint VBA教程:DefaultLanguageID属性 下页:PowerPoint VBA教程:DefaultSpacing属性

PowerPoint VBA教程:DefaultShape属性

PowerPoint VBA教程:DefaultSpacing属性 PowerPoint VBA教程:DefaultWebOptions属性
PowerPoint VBA教程:Depth属性 PowerPoint VBA教程:Design属性
PowerPoint VBA教程:Designs属性 PowerPoint VBA教程:Diagram属性
PowerPoint VBA教程:DiagramNode属性 PowerPoint VBA教程:Dim属性
PowerPoint VBA教程:DimColor属性 PowerPoint VBA教程:Direction属性
PowerPoint VBA教程:DisplayAlerts属性 PowerPoint VBA教程:DisplayAutoCorrectOptions属性
PowerPoint VBA教程:DisplayAutoLayoutOptions属性 PowerPoint VBA教程:DisplayComments属性
PowerPoint VBA教程:DisplayGridLines属性 PowerPoint VBA教程:DisplayMasterShapes属性
PowerPoint VBA教程:DisplayName属性 PowerPoint VBA教程:DisplayOnTitleSlide属性
PowerPoint VBA教程:DisplayPasteOptions属性 PowerPoint VBA教程:DisplaySlideMiniature属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号