设置预置的延伸格式。每个预置的延伸格式包含延伸图形的各种属性的预置值。
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