PresetMaterial Property
Returns or sets the extrusion surface material. Read/write MsoPresetMaterial.
| MsoPresetMaterial can be one of these MsoPresetMaterial constants. |
| msoMaterialMatte |
| msoMaterialMetal |
| msoMaterialPlastic |
| msoMaterialWireFrame |
| msoPresetMaterialMixed |
expression.PresetMaterial
expression Required. An expression that returns a ThreeDFormat object.
Example
This example specifies that the extrusion surface for shape one in myDocument be wire frame.
Set myDocument = ActiveDocument
With myDocument.Shapes(1).ThreeD
.Visible = True
.PresetMaterial = msoMaterialWireFrame
End With