Returns or sets an MsoPresetMaterial constant that represents the extrusion surface material. Read/write.
| 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.
This example specifies that the extrusion surface for shape one in the active publication be a wire frame. For this example to work, the specified shape must be a 3-D shape.
Sub SetExtrusionMaterial()
With ActiveDocument.Pages(1).Shapes(1).ThreeD
.Visible = True
.PresetMaterial = msoMaterialWireFrame
End With
End Sub