返回预设延伸格式。每种延伸部分的预设格式都包含一组延伸部分各属性的预设值。如果延伸没用预设格式而用了自定义格式,则此属性返回 msoPresetThreeDFormatMixed。MsoPresetThreeDFormat,只读。
| MsoPresetThreeDFormat 可以是下列 MsoPresetThreeDFormat 常量之一: | 
| msoPresetThreeDFormatMixed | 
| msoThreeD1 | 
| msoThreeD10 | 
| msoThreeD11 | 
| msoThreeD12 | 
| msoThreeD13 | 
| msoThreeD14 | 
| msoThreeD15 | 
| msoThreeD16 | 
| msoThreeD17 | 
| msoThreeD18 | 
| msoThreeD19 | 
| msoThreeD2 | 
| msoThreeD20 | 
| msoThreeD3 | 
| msoThreeD4 | 
| msoThreeD5 | 
| msoThreeD6 | 
| msoThreeD7 | 
| msoThreeD8 | 
| msoThreeD9 | 
expression.PresetThreeDFormat
expression 必需。该表达式返回一个 ThreeDFormat 对象。
此属性值对应于在“绘图”工具栏上单击“三维效果”按钮时所显示的选项(从左到右,从上到下进行编号)。
可用 SetThreeDFormat 方法设置延伸部分的预设格式。
如果 myDocument 中图形 1 原来是自定义的延伸格式,本示例则将其设置为第 12 种“三维样式”。
Set myDocument = ActiveDocument
With myDocument.Shapes(1).ThreeD
    If .PresetThreeDFormat = msoPresetThreeDFormatMixed Then
        .SetThreeDFormat msoThreeD12
    End If
End With