MsoPresetMaterial can be one of these MsoPresetMaterial constants. |
msoMaterialMatte |
msoMaterialMetal |
msoMaterialPlastic |
msoMaterialWireFrame |
msoPresetMaterialMixed |
expression.PresetMaterial
expression Required. An expression that returns one of the objects in the Applies To list.
Example
This example specifies that the extrusion surface for shape one in myDocument
be wire frame.
Set myDocument = Worksheets(1)
With myDocument.Shapes(1).ThreeD
.Visible = True
.PresetMaterial = msoMaterialWireFrame
End With