PresetThreeDFormat Property Example
This example sets the extrusion format for shape one on myDocument
to 3D Style 12 if the shape initially has a custom extrusion format.
Set myDocument = Worksheets(1)
With myDocument.Shapes(1).ThreeD
If .PresetThreeDFormat = msoPresetThreeDFormatMixed Then
.SetThreeDFormat msoThreeD12
End If
End With