Share via

PresetMaterial Property [Publisher 2003 VBA Language Reference]

  • Article

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

Applies to | ThreeDFormat Object