返回预设的延伸格式。每个预设的延伸格式包含一组各种延伸属性的预设值。
expression.SetThreeDFormat(PresetThreeDFormat)
expression 必选。该表达式返回一个 ThreeDFormat 对象。
PresetThreeDFormat 必选。MsoPresetThreeDFormat 类型。指定预设的延伸格式，该格式对应于单击“绘图”工具栏上的“3-D”按钮时显示的选项（从左向右、从上到下编号）之一。
| MsoPresetThreeDFormat 可以是下列 MsoPresetThreeDFormat 类型常数之一。 |
| msoPresetThreeDFormatMixed 指定此常数将导致出错。 |
| msoThreeD1 |
| msoThreeD2 |
| msoThreeD3 |
| msoThreeD4 |
| msoThreeD5 |
| msoThreeD6 |
| msoThreeD7 |
| msoThreeD8 |
| msoThreeD9 |
| msoThreeD10 |
| msoThreeD11 |
| msoThreeD12 |
| msoThreeD13 |
| msoThreeD14 |
| msoThreeD15 |
| msoThreeD16 |
| msoThreeD17 |
| msoThreeD18 |
| msoThreeD19 |
| msoThreeD20 |
该方法将 PresetThreeDFormat 属性设为由 PresetThreeDFormat 参数指定的格式。
本示例向 myDocument 中添加椭圆并将其延伸格式设置为 3D 样式 12。
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes _
.AddShape(msoShapeOval, 30, 30, 50, 25).ThreeD
.Visible = True
.SetThreeDFormat msoThreeD12
End With