E
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
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