返回一个代表形状延伸颜色的 ColorFormat 对象。只读。
本示例向 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