设置延伸部分的预设格式。每种延伸部分的预设格式都包含一组延伸部分各属性的预设值。
expression.SetThreeDFormat(PresetThreeDFormat)
expression 必需。返回 ThreeDFormat 对象的表达式。
PresetThreeDFormat 必需，MsoPresetThreeDFormat。 指明延伸部分的预设格式，对应于在“绘图”工具栏单击“三维效果”按钮所显示的选项（从左向右，从上至下进行编号）。
| MsoPresetThreeDFormat 可以设置为以下 MsoPresetThreeDFormat 常量。请注意：如将此参数指定为 msoPresetThreeDFormatMixed，将导致出错。 |
| msoThreeD1 |
| msoThreeD11 |
| msoThreeD13 |
| msoThreeD15 |
| msoThreeD17 |
| msoThreeD19 |
| msoThreeD20 |
| msoThreeD4 |
| msoThreeD6 |
| msoThreeD8 |
| msoPresetThreeDFormatMixed |
| msoThreeD10 |
| msoThreeD12 |
| msoThreeD14 |
| msoThreeD16 |
| msoThreeD18 |
| msoThreeD2 |
| msoThreeD3 |
| msoThreeD5 |
| msoThreeD7 |
| msoThreeD9 |
此方法将 PresetThreeDFormat 属性设置为由 PresetThreeDFormat 参数指定的格式。
本示例将一个椭圆添至活动文档中，然后将其延伸部分的格式设置为第 12 种三维样式。
With ActiveDocument.Shapes.AddShape(msoShapeOval, _
30, 30, 50, 25).ThreeD
.Visible = True
.SetThreeDFormat msoThreeD12
End With