Zwei Texte im Textfeld unterschiedlich per VBA ansprechen

Antwort erstellen

Smilies
:D :) :( :o :shock: :? 8-) :lol: :x :P :razz: :oops: :cry: :evil: :twisted: :roll: :wink: :!: :?: :idea: :arrow: :| :mrgreen: :badgrin: :doubt:
BBCode ist eingeschaltet
[img] ist eingeschaltet
[flash] ist ausgeschaltet
[url] ist eingeschaltet
Smilies sind eingeschaltet
Die letzten Beiträge des Themas
   

Ansicht erweitern Die letzten Beiträge des Themas: Zwei Texte im Textfeld unterschiedlich per VBA ansprechen

Re: Zwei Texte im Textfeld unterschiedlich per VBA anspreche

Beitrag von 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

Re: Zwei Texte im Textfeld unterschiedlich per VBA anspreche

Beitrag von 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

Zwei Texte im Textfeld unterschiedlich per VBA ansprechen

Beitrag von 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

Nach oben