Shapes (Shape)![]() ![]() ![]() |
该对象代表一个图形的三维格式。
用 ThreeD 属性可以返回一个 ThreeDFormat 对象。下例向活动文档添加一个椭圆,然后指定该椭圆延伸 50 磅,并将延伸部分设为紫色。
Set myShape = ActiveDocument.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
对某些图形不能应用三维格式,例如梭台形图形或多个不连续路径。大多数用于此类图形的 ThreeDFormat 对象的属性和方法都会失败。