Zwei Texte im Textfeld unterschiedlich per VBA ansprechen

Moderator: ModerationP

Zwei Texte im Textfeld unterschiedlich per VBA ansprechen

Beitragvon BastiHivo » 23. Sep 2019, 12:39

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
BastiHivo
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 5
Registriert: 17. Sep 2019, 15:18

Re: Zwei Texte im Textfeld unterschiedlich per VBA anspreche

Beitragvon DerHoepp » 23. Sep 2019, 14:22

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
DerHoepp
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 8229
Registriert: 14. Mai 2013, 11:08

Re: Zwei Texte im Textfeld unterschiedlich per VBA anspreche

Beitragvon BastiHivo » 24. Sep 2019, 06:46

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
BastiHivo
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 5
Registriert: 17. Sep 2019, 15:18


Zurück zu PowerPoint Forum (provisorisch)

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 0 Gäste