Textfarbe per Makro ändern

[GeMa]

Hallo,

ich möchte in einer Impress-Seite die Schriftfarbe eines Textfeldes per Makro ändern.

globals:
oDoc = thisComponent
oPresentation = oDoc.Presentation
oController = oPresentation.Controller
oCurrentSlide = oController.CurrentSlide

Sub setTextfeldColor (textFeld,wert)
dim i as integer
dim myFeld as object
for i = 0 to oCurrentSlide.count - 1
myFeld = oCurrentSlide.getByIndex(i)
if myFeld.Name = textFeld then
myFeld.setPropertyValue("TextColor", RGB(255,0,0))
end if
next i
End Sub

Die Eigenschaft TextColor gibt es so aber nicht.

Kann mir jemand helfen ?

[komma4]

Willkommen im Forum.


Ohne gerade die Zeit oder die Muse zu haben das Testen zu können....,probiere mal

Code: Alles auswählen

myFeld.Text.TextColor =  RGB(255,0,0)

Auf jeden Fall hilft Dir XRAY weiter... besorgen, installieren, verwenden!



Viel Erfolg!