返回或设置延伸图形的表面材质。MsoPresetMaterial 类型，可读写。
| MsoPresetMaterial 可为以下 MsoPresetMaterial 常量之一。 |
| msoMaterialMatte |
| msoMaterialMetal |
| msoMaterialPlastic |
| msoMaterialWireFrame |
| msoPresetMaterialMixed |
expression.PresetMaterial
expression 必需。该表达式返回“应用于”列表中的对象之一。
本示例将 myDocument 中第一个图形的延伸部分的材质设置为线框。
Set myDocument = Worksheets(1)
With myDocument.Shapes(1).ThreeD
.Visible = True
.PresetMaterial = msoMaterialWireFrame
End With