Office: schriftfarbe bei Textbox ändern

Michael Radermacher · 11. März 2013

Hallo,
in meinem Excelsheet habe ich folgenden Code zum Einbinden eines Textes in ein TextBox in einer Powerpointfolie.

Code:

'Über 2 Schleifen jede Zelle des Bereichs auslesen und in die VAriable zu dem alten
'dort gespeicherten Wert durch ein Kommat getrennt einfügen

For Zeile = 1 To Bereich.Rows.Count
For Spalte = 1 To Bereich.Columns.Count
text = text & CStr(Bereich.Cells(Zeile, Spalte)) & " "
Next
Next

'Das letzte Komma, das im Text bedingt durch das aneinaderfügen des Textes durch die Schleifen
'vorhanden ist, löschen

text = Left(text, (Len(text) - 2))

ppApp.Visible = msoTrue

ppFile.Slides(1).Select

With ppApp.ActivePresentation.Slides(1).Shapes.AddTextbox(msoTextOrientationHorizontal, 20, 300, 400, 200).TextFrame ' links, höhe, breite, keine Ahnung
.TextRange.text = text
.TextRange.Font.Name = "Tele-GroteskNCNor"
.TextRange.Font.Size = 32
'.TextRange.Font.ColorIndex = 2
End With
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das was nicht funktioniert ist der Befehl am Schluss mit dem Colourindex ..
Kann mir einer von euch helfen wie ich die Schriftfarbe in Weiß abgeändert bekomme??

Danke und LG
Michael

:)

ransi · 13. März 2013

HAllo

Mach mal so:

.TextRange.Font.Color = vbWhite

ransi

Office: schriftfarbe bei Textbox ändern

schriftfarbe bei Textbox ändern

schriftfarbe bei Textbox ändern

schriftfarbe bei Textbox ändern - Similar Threads - schriftfarbe Textbox ändern

Silbentrennung automatisch deaktivieren in blauem Text

Füllfarbe und schriftfarbe komplett weg und nicht verwendbar

Füllfarbe und schriftfarbe komplett weg und nicht verwendbar

Schriftfarbe rot - suchen und ersetzen

Filtern nach Zellenfarbe, Schriftfarbe oder Symbolsatz

Ändern der Schriftfarbe

Ändern der Standardtextfarbe (Schriftfarbe) in Word