PowerPoint VBA教程:ExtrusionColor属性

返回一个代表形状延伸颜色的ColorFormat对象。只读。

VBA示例

本示例向myDocument 中添加椭圆,并且将椭圆延伸的深度和延伸颜色分别指定为 50 磅和紫色。


Set myDocument = ActivePresentation.Slides(1)
Set myShape = myDocument.Shapes _
    .AddShape(msoShapeOval, 90, 90, 90, 40)
With myShape.ThreeD
    .Visible = True
    .Depth = 50
    'RGB value for purple
    .ExtrusionColor.RGB = RGB(255, 100, 255)
End With

上页:PowerPoint VBA教程:ExtraColors属性 下页:PowerPoint VBA教程:ExtrusionColorType属性

PowerPoint VBA教程:ExtrusionColor属性

PowerPoint VBA教程:ExtrusionColorType属性 PowerPoint VBA教程:FarEastLineBreakControl属性
PowerPoint VBA教程:FarEastLineBreakLanguage属性 PowerPoint VBA教程:FarEastLineBreakLevel属性
PowerPoint VBA教程:FeatureInstall属性 PowerPoint VBA教程:FileDialog属性
PowerPoint VBA教程:FileName属性 PowerPoint VBA教程:FileSearch属性
PowerPoint VBA教程:Fill属性 PowerPoint VBA教程:FirstChild属性
PowerPoint VBA教程:FirstMargin属性 PowerPoint VBA教程:FirstSlideNumber属性
PowerPoint VBA教程:FitToPage属性 PowerPoint VBA教程:FolderSuffix属性
PowerPoint VBA教程:FollowColors属性 PowerPoint VBA教程:FollowMasterBackground属性
PowerPoint VBA教程:Font属性 PowerPoint VBA教程:FontBold属性
PowerPoint VBA教程:FontItalic属性 PowerPoint VBA教程:FontName属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号