With ActiveWindow.Selection.ShapeRange(1)
With .TextFrame2.TextRange.Font
Debug.Print .Spacing
End With
End With
-----------------------------------------
Steve Rindsberg, PPT MVP
PPT FAQ:
www.pptfaq.com
PPTools:
www.pptools.com
================================================
Live and in personable in the Help Center at PowerPoint Live
Sept 21-24, San Diego CA, USA
www.pptlive.com