全部显示返回或设置延伸部分的表面材料。MsoPresetMaterial，可读写。
| MsoPresetMaterial 可以是下列 MsoPresetMaterial 常量之一： |
| msoMaterialMatte |
| msoMaterialMetal |
| msoMaterialPlastic |
| msoMaterialWireFrame |
| msoPresetMaterialMixed |
expression.PresetMaterial
expression 必需。该表达式返回一个 ThreeDFormat 对象。
本示例将 myDocument 中图形 1 的延伸部分的表面效果设为透明框架。
Set myDocument = ActiveDocument
With myDocument.Shapes(1).ThreeD
.Visible = True
.PresetMaterial = msoMaterialWireFrame
End With