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 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 = ActivePresentation.Slides(1)
With myDocument.Shapes(1).ThreeD
.Visible = True
.PresetMaterial = msoMaterialWireFrame
End With