Change font on selected text

[Elmar]

I've recorded a macro converting selected text to superscript. This
works fine, as long as the desired changes are always in the same
relative position on a slide. How should I change the macro that the
current text selection is being dealt with rather than the recorded
one? In other words, how can the "Start" and "Length" values reflect
the current selection?

Thanks in advance

Elmar


Sub SupNormal()
'
' Macro recorded 20.09.2006 by Elmar von Muralt
'


ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Characters(Start:=122,
Length:=3).Select
With ActiveWindow.Selection.TextRange.Font
.Name = "Arial"
.Size = 32
.Bold = msoFalse
.Italic = msoFalse
.Underline = msoFalse
.Shadow = msoFalse
.Emboss = msoFalse
.BaselineOffset = 0.3
.AutoRotateNumbers = msoFalse
.Color.SchemeColor = ppForeground
End With
End Sub

 

[Shyam Pillai]

Elmar,

Delete the following line:

ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Characters(Start:=122,
Length:=3).Select

The rest will work only on the active text selection.


--
Regards,
Shyam Pillai

Image Importer Wizard
http://skp.mvps.org/iiw.htm

 

[Elmar]

Thankyou very much Shyam,

It works like a charm )

Kind regards

Elmar