PresetMaterial Property

Microsoft Word Visual Basic

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