PowerPoint VBA教程:Depth属性

返回或设置形状的延伸深度。该值的范围是:600 到 9600(正值产生的延伸正面为原始形状;负值产生的延伸背面为原始形状)。可读写。Single 类型。  

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教程:DefaultWebOptions属性 下页:PowerPoint VBA教程:Design属性

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属性 PowerPoint VBA教程:Drop属性
PowerPoint VBA教程:DropType属性 PowerPoint VBA教程:Duration属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号