Office Forum

Vielen Dank für die schnelle Hilfe!

Habe den Code noch etwas für meinen Fall angepasst aber funktioniert sonst super.

Beste Grüße
Basti

Moin Basti,

du kannst mit der Characters()-Methode einer Textrange ein "Unter-"TextRange-Objekt erzeugen und einzeln behandeln:

Code: Alles auswählen

Sub test()
    ActivePresentation.Slides(1).Shapes(3).TextFrame.TextRange.Characters(1, 10).Font.Color = RGB(255, 180, 0)
    ActivePresentation.Slides(1).Shapes(3).TextFrame.TextRange.Characters(11, 100).Font.Color = RGB(70, 130, 200)
End Sub

Viele Grüße
derHöpp

Hallo zusammen,

gibt es eine Möglichkeit, zwei Texte in demselben Textfeld unterschiedlich anzusprechen und zu bearbeiten?

z.B.:
Schriftfarbe des ersten Textes auf schwarz
Schriftfarbe des zweiten Textes auf blau und kursiv

Hier ist mein aktueller Code:

Set TitelTU = ActivePresentation.Slides(3).Shapes.AddTextbox(msoTextOrientationHorizontal, 2, 425, 400, 10)

With TitelTU
.TextFrame.TextRange.Text = TextinhaltDETU & vbCrLf & TextinhaltENGTU
.Name = "Textunten"
.Line.Visible = msoFalse
.TextFrame.TextRange.Font.Color.RGB = RGB(0, 0, 0)
.TextFrame.TextRange.Paragraphs.ParagraphFormat.Alignment = ppAlignLeft
.TextFrame2.VerticalAnchor = msoAnchorMiddle
.TextFrame.TextRange.Font.Size = SchriftgrößeTU
.TextFrame2.TextRange.Font.Name = SchriftartTU
.TextFrame2.TextRange.Font.Italic = msoFalse
If Fett = "Ja" Then
.TextFrame2.TextRange.Font.Bold = msoTrue
Else
.TextFrame2.TextRange.Font.Bold = msoFalse
End If
.Fill.Visible = msoFalse
End With


Vielen Dank im Voraus!
Beste Grüße
Basti