Depth 属性

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

示例

本示例向 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