设置预置的延伸格式。每个预置的延伸格式包含延伸图形的各种属性的预置值。
expression.SetThreeDFormat(PresetThreeDFormat)
expression 必需。该表达式返回“应用于”列表中的一个对象。
PresetThreeDFormat MsoPresetThreeDFormat 类型,必需。指定预置的延伸格式,该格式相应于单击“绘图”工具栏上的“三维效果样式”工具时所出现的选项(按从左至右和从上至下的顺序编号)。
MsoPresetThreeDFormat 可为以下 MsoPresetThreeDFormat 常量之一。 |
msoPresetThreeDFormatMixed |
msoThreeD1 |
msoThreeD10 |
msoThreeD11 |
msoThreeD12 |
msoThreeD13 |
msoThreeD14 |
msoThreeD15 |
msoThreeD16 |
msoThreeD17 |
msoThreeD18 |
msoThreeD19 |
msoThreeD2 |
msoThreeD20 |
msoThreeD3 |
msoThreeD4 |
msoThreeD5 |
msoThreeD6 |
msoThreeD7 |
msoThreeD8 |
msoThreeD9 |
本方法将 PresetThreeDFormat 属性设置为 PresetThreeDFormat 参数指定的格式。
本示例向 myDocument
中添加椭圆,并将该椭圆的延伸格式设置为第十二个三维样式。
Set myDocument = Worksheets(1)
With myDocument.Shapes.AddShape(msoShapeOval, _
30, 30, 50, 25).ThreeD
.Visible = True
.SetThreeDFormat msoThreeD12
End With