constant that represents the position of the light source relative to the extrusion. Read/write.
| 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 one of the objects in the Applies To list.
Remarks
The lighting effects you set won't be apparent if the extrusion has a wire frame surface.
Example
This example sets the extrusion for the first shape on the first page of the active publication to extend toward the top of the shape and that the lighting for the extrusion come from the left. For this example to work, the specified shape must be a 3-D shape.
Sub ExtrusionLighting()
With ActiveDocument.Pages(1).Shapes(1).ThreeD
.Visible = True
.SetExtrusionDirection msoExtrusionTop
.PresetLightingDirection = msoLightingLeft
End With
End Sub