Set myDocument = ActiveDocumentWith myDocument.Shapes(1).ThreeD .Visible = True .Depth = 50 .SetExtrusionDirection ksoExtrusionTop .PresetLightingDirection = ksoLightingLeftEnd With