hallo!
ich möchte ein makro schreiben, das mir auf knopfdruck meinen firmennamen mit hochgestelltem und um einen punkt größer dargestellten registered-zeichen (R) in die präsentation schreibt. leider schaffe ich dies nur für word (da war dieses makro kein problem)!
danke, bitte um antworten/hilfen/tipps an cheitzinger@gmx.at
lg christine
cheitzi Nachtrag zu: „makro in powerpoint2000“
hallo!
bin soweit gekommen, dass ich meinen wunschtext mit dem r honschreiben kann, nun habe ich "nur" noch das lapidare problem, dass der zueltzt bearbeitet buchstabe (in meinem fall das (R)) markiert bleibt, ich würde gerne einfach noch zwei cursorpositionen nach rechts gehen, schaffe das leider nicht. in word einfach mit moveright zu lösen, in powerpoint gibts sowas nicht. unselect "de"-markiert das gesamte textfeld!
bitte um tipps!
hier mein code bisher:
--
Sub test()
Dim i As Integer
Dim sizetext As Integer
' insert text, save font size
ActiveWindow.Selection.TextRange.InsertAfter ("Text ")
sizetext = ActiveWindow.Selection.TextRange.Font.Size
'insert (R)
i = ActiveWindow.Selection.TextRange.Count
ActiveWindow.Selection.TextRange.Characters(i, 1).Select
ActiveWindow.Selection.TextRange.InsertSymbol FontName:="Times New Roman", CharNumber:=174, Unicode:=msoTrue
'insert space after (R)
i = ActiveWindow.Selection.TextRange.Count
ActiveWindow.Selection.TextRange.Characters(i, 1).Select
ActiveWindow.Selection.TextRange.InsertAfter (" ")
'make (R) high, font size + 1pt
i = ActiveWindow.Selection.TextRange.Count - 2
ActiveWindow.Selection.TextRange.Characters(i, 1).Select
ActiveWindow.Selection.TextRange.Font.Superscript = msoCTrue
ActiveWindow.Selection.TextRange.Font.Size = sizetext + 1
'unselect selection
i = ActiveWindow.Selection.TextRange.Count + 3
ActiveWindow.Selection.Unselect
End Sub
--
lg christine
