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