With ActiveWindow.Selection.ShapeRange If .Type = ksoPicture Then .Shadow.Type = KsoShadow1 Else .ThreeD.SetThreeDFormat (ksoThreeD13) End IfEnd With