Class ThreeDFormat (PowerPoint VBA)

The class ThreeDFormat represents a shape's three-dimensional formatting.

Set

To use a ThreeDFormat class variable it first needs to be instantiated, for example

Dim tdf as ThreeDFormat
Set tdf = ActiveWindow.RangeFromPoint.ThreeD

The following procedures can be used to set variables of type ThreeDFormat: ChartFormat.ThreeD, Shape.ThreeD, ShapeRange.ThreeD and TextFrame2.ThreeD

Themes

The following procedures in this class have been grouped together and are described on a separate theme page

Format with its procedures ContourColor, ContourWidth, ExtrusionColor, ExtrusionColorType, PresetThreeDFormat, SetThreeDFormat and Visible

Properties

BevelBottomDepth returns or sets the bottom bevel height for the specified ThreeDFormat object, in points.

ActiveWindow.RangeFromPoint.ThreeD.BevelBottomDepth =

BevelBottomInset returns or sets the bottom bevel inset for the specified ThreeDFormat object, in points.

ActiveWindow.RangeFromPoint.ThreeD.BevelBottomInset =

BevelBottomType returns or set the bottom bevel type.

ActiveWindow.RangeFromPoint.ThreeD.BevelBottomType = msoBevelTypeMixed

BevelTopDepth returns or sets the top bevel height for the specified ThreeDFormat object, in points.

ActiveWindow.RangeFromPoint.ThreeD.BevelTopDepth =

BevelTopInset returns or sets the top bevel inset for the specified ThreeDFormat object, in points.

ActiveWindow.RangeFromPoint.ThreeD.BevelTopInset =

BevelTopType returns or set the top bevel type.

ActiveWindow.RangeFromPoint.ThreeD.BevelTopType = msoBevelTypeMixed

Depth returns or sets the depth of the shape's extrusion.

ActivePresentation.Slides(1).Shapes(1).ThreeD.Depth = 50

FieldOfView returns or sets the camera field of view for the specified ThreeDFormat object, in degrees.

ActiveWindow.RangeFromPoint.ThreeD.FieldOfView =

LightAngle sets or returns the angle at which light impacts the shape whose three-dimensional format is represented by the specified object.

ActiveWindow.RangeFromPoint.ThreeD.LightAngle =

Parent returns the parent object for the specified object.

Dim objParent As Object
Set objParent = ActiveWindow.RangeFromPoint.ThreeD.Parent

Perspective determines whether the extrusion appears in perspective.

ActiveWindow.RangeFromPoint.ThreeD.Perspective = msoTrue

PresetCamera returns the effects camera type used by the specified ThreeDFormat object.

Dim mpcPresetCamera As Office.MsoPresetCamera
mpcPresetCamera = ActiveWindow.RangeFromPoint.ThreeD.PresetCamera

PresetExtrusionDirection returns the direction that the extrusion's sweep path takes away from the extruded shape (the front face of the extrusion).

Dim mpePresetExtrusionDirection As Office.MsoPresetExtrusionDirection
mpePresetExtrusionDirection = ActivePresentation.Slides(1).Shapes(1).ThreeD.PresetExtrusionDirection

PresetLighting returns or sets the effects lighting used by the specified ThreeDFormat object.

ActiveWindow.RangeFromPoint.ThreeD.PresetLighting = msoLightRigMixed

PresetLightingDirection returns or sets the position of the light source relative to the extrusion.

ActivePresentation.Slides(1).Shapes(1).ThreeD.PresetLightingDirection = msoPresetLightingDirectionMixed

PresetLightingSoftness returns or sets the intensity of the extrusion lighting.

ActivePresentation.Slides(1).Shapes(1).ThreeD.PresetLightingSoftness = msoPresetLightingSoftnessMixed

PresetMaterial returns or sets the extrusion surface material.

ActivePresentation.Slides(1).Shapes(1).ThreeD.PresetMaterial = msoPresetMaterialMixed

ProjectText specifies whether text on the specified ThreeDFormat object rotates with the object.

ActiveWindow.RangeFromPoint.ThreeD.ProjectText = msoTrue

RotationX returns or sets the rotation of the extruded shape around the x-axis, in degrees.

ActivePresentation.Slides(1).Shapes(1).ThreeD.RotationX = 30

RotationY returns or sets the rotation of the extruded shape around the y-axis, in degrees.

ActivePresentation.Slides(1).Shapes(1).ThreeD.RotationY = 60

RotationZ returns or sets the rotation of the effects camera for the specified ThreeDFormat object, in degrees.

ActiveWindow.RangeFromPoint.ThreeD.RotationZ =

Z returns or sets the distance the specified ThreeDFormat object is moved away from the ground plane, in points.

ActiveWindow.RangeFromPoint.ThreeD.Z =