ThreeDFormat.PresetThreeDFormat Property
Returns the preset extrusion format. Read-only.
Namespace: Microsoft.Office.Interop.PowerPoint
Assembly: Microsoft.Office.Interop.PowerPoint (in Microsoft.Office.Interop.PowerPoint.dll)
Syntax
'Declaration
ReadOnly Property PresetThreeDFormat As MsoPresetThreeDFormat
Get
'Usage
Dim instance As ThreeDFormat
Dim value As MsoPresetThreeDFormat
value = instance.PresetThreeDFormat
MsoPresetThreeDFormat PresetThreeDFormat { get; }
Property Value
Type: Microsoft.Office.Core.MsoPresetThreeDFormat
MsoPresetThreeDFormat
Remarks
This property is read-only. To set the preset extrusion format, use the SetThreeDFormat(MsoPresetThreeDFormat) method.
Each preset extrusion format contains a set of preset values for the various properties of the extrusion. The values for this property correspond to the options (numbered from left to right, top to bottom) displayed when you click the 3-D Rotation submenu on the Shape Effects menu.
The value of the PresetThreeDFormat property can be one of these MsoPresetThreeDFormat constants. If the value is msoPresetThreeDFormatMixed, the extrusion has a custom format rather than a preset format.
msoPresetThreeDFormatMixed |
msoThreeD1 |
msoThreeD2 |
msoThreeD3 |
msoThreeD4 |
msoThreeD5 |
msoThreeD6 |
msoThreeD7 |
msoThreeD8 |
msoThreeD9 |
msoThreeD10 |
msoThreeD11 |
msoThreeD12 |
msoThreeD13 |
msoThreeD14 |
msoThreeD15 |
msoThreeD16 |
msoThreeD17 |
msoThreeD18 |
msoThreeD19 |
msoThreeD20 |
Examples
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 = ActivePresentation.Slides(1)
With myDocument.Shapes(1).ThreeD
If .PresetThreeDFormat= msoPresetThreeDFormatMixed Then
.SetThreeDFormat msoThreeD12
End If
End With