Format related procedures in class ThreeDFormat (PowerPoint VBA)

This page presents procedures from class ThreeDFormat related to the theme Format: ContourColor, ContourWidth, ExtrusionColor, ExtrusionColorType, PresetThreeDFormat, SetThreeDFormat and Visible

ContourColor

Returns a ColorFormat object that represents the color of the specified ThreeDFormat object's contour.

Dim cftContourColor As ColorFormat
Set cftContourColor = ActiveWindow.RangeFromPoint.ThreeD.ContourColor

ContourWidth

Returns or sets the width of the contour around the specified ThreeDFormat object, in points.

The maximum value of the ContourWidth property is 144 points.

ActiveWindow.RangeFromPoint.ThreeD.ContourWidth =

ExtrusionColor

Returns a ColorFormat object that represents the color of the shape's extrusion.

Dim cftExtrusionColor As ColorFormat
Set cftExtrusionColor = ActivePresentation.Slides(1).Shapes(1).ThreeD.ExtrusionColor

ExtrusionColorType

Returns or sets a value that indicates whether the extrusion color is based on the extruded shape's fill (the front face of the extrusion) and automatically changes when the shape's fill changes, or whether the extrusion color is independent of the shape's fill.

The value of the ExtrusionColorType property can be one of these MsoExtrusionColorType constants.

ActivePresentation.Slides(1).Shapes(1).ThreeD.ExtrusionColorType = RGB(0,0,255)'blue

PresetThreeDFormat

Returns the preset extrusion format.

This property is read-only. To set the preset extrusion format, use the SetThreeDFormat 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 3D 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.

Dim mptPresetThreeDFormat As Office.MsoPresetThreeDFormat
mptPresetThreeDFormat = ActivePresentation.Slides(1).Shapes(1).ThreeD.PresetThreeDFormat

SetThreeDFormat

Sets the preset extrusion format.

Each preset extrusion format contains a set of preset values for the various properties of the extrusion. This method sets the PresetThreeDFormat property to the format specified by the PresetThreeDFormat parameter. The value of the PresetThreeDFormat parameter can be one of these MsoPresetThreeDFormat constants. Specifying msoPresetThreeDFormatMixed causes an error.

Syntax : expression.SetThreeDFormat (PresetThreeDFormat)

PresetThreeDFormat: Specifies a preset extrusion format that corresponds to one of the options (numbered from left to right, from top to bottom) displayed when you click the 3D Rotation submenu on the Shape Effects menu.

ActivePresentation.Slides(1).Shapes(1).ThreeD.SetThreeDFormat PresetThreeDFormat:=msoPresetThreeDFormatMixed

Visible

Returns or sets the visibility of the specified object or the formatting applied to the specified object.

The value of the Visible property can be one of these MsoTriState constants.

ActiveWindow.RangeFromPoint.ThreeD.Visible = msoTrue