返回预设的延伸格式。每种预设延伸格式都包含一组延伸中不同属性的预设值。此属性的值对应于单击“绘图”工具栏上的“3-D”按钮时所显示的选项(自左而右、自上而下编号)。只读。MsoPresetThreeDFormat 类型。
| MsoPresetThreeDFormat 可以是下列 MsoPresetThreeDFormat 类型常数之一。 |
| msoPresetThreeDFormatMixed 延伸使用自定义的格式而不是预设格式。 |
| msoThreeD1 |
| msoThreeD2 |
| msoThreeD3 |
| msoThreeD4 |
| msoThreeD5 |
| msoThreeD6 |
| msoThreeD7 |
| msoThreeD8 |
| msoThreeD9 |
| msoThreeD10 |
| msoThreeD11 |
| msoThreeD12 |
| msoThreeD13 |
| msoThreeD14 |
| msoThreeD15 |
| msoThreeD16 |
| msoThreeD17 |
| msoThreeD18 |
| msoThreeD19 |
| msoThreeD20 |
expression.PresetThreeDFormat
expression 必选。该表达式返回“应用于”列表中的对象之一。
该属性为只读。若要设置当前延伸的格式,可使用 SetThreeDFormat 方法。
如果该形状原来就使用自定义的延伸格式,则本示例将 myDocument 中第一个形状的延伸格式设置为 3D 样式 12。
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes(1).ThreeD
If .PresetThreeDFormat = msoPresetThreeDFormatMixed Then
.SetThreeDFormat msoThreeD12
End If
End With