PresetMaterial Property 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