PresetLightingDirection Property
Returns or sets the position of the light source relative to the extrusion. Read/write MsoPresetLightingDirection.
| MsoPresetLightingDirection can be one of these MsoPresetLightingDirection constants. |
| msoLightingBottom |
| msoLightingBottomLeft |
| msoLightingBottomRight |
| msoLightingLeft |
| msoLightingNone |
| msoLightingRight |
| msoLightingTop |
| msoLightingTopLeft |
| msoLightingTopRight |
| msoPresetLightingDirectionMixed |
expression.PresetLightingDirection
expression Required. An expression that returns a ThreeDFormat object.
Remarks
The lighting effects you set won't be apparent if the extrusion has a wire frame surface.
Example
This example specifies that the extrusion for shape one on myDocument extend toward the top of the shape and that the lighting for the extrusion come from the left.
Set myDocument = ActiveDocument
With myDocument.Shapes(1).ThreeD
.Visible = True
.SetExtrusionDirection msoExtrusionTop
.PresetLightingDirection = msoLightingLeft
End With