PresetMaterial Property

Microsoft PowerPoint Visual Basic

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