[gelöst] Text in Objekt per Makro Blinken lassen

[delta9]

Hallo,
ich möchte per Makro in einer Textbox das Blinken ein- und ausschalten. Wie greife ich auf diese Eigenschaft zu?
Auf den Inhalt des Textes habe ich so zugegriffen

Code: Alles auswählen

sub Fortschrittsanzeige (Text)
' Ändert den Text des Objketes InfoBox
dim grafiken as object
dim Draw_Seite, Draw_Seite_1 
dim  f 
dim elementezahl 
Draw_Seite = ThisComponent.getDrawpages()
Draw_Seite_1 = Draw_Seite.getByIndex(0)
f= Draw_Seite_1.getByIndex(1234)
f.string = Text
end sub

Stefan

[F3K Total]

Moin,
so geht es:

Code: Alles auswählen

sub Fortschrittsanzeige (Text)
    Draw_Seite = ThisComponent.getDrawpages()
    Draw_Seite_1 = Draw_Seite.getByIndex(1234)
    f = Draw_Seite_1.getByIndex(0)
    f.string = Text
    'Blinken einschalten
    f.TextAnimationKind = com.sun.star.drawing.TextAnimationKind.BLINK
    'Blinken ausschalten:
    'f.TextAnimationKind = com.sun.star.drawing.TextAnimationKind.NONE
End Sub

Gruß R

[delta9]

Hallo R,
der Code sieht überzeugend aus, die Eigenschaft wird auch geändert, aber es blinkt nix.
Muss man das Blinken vielleicht noch irgendwie aktivieren?
Stefan

[delta9]

Ich denke schon, dass das beabsichtigt war, so konnte er ohne viele Worte beide Möglichkeiten zeigen.
Aber erst einschalten und dann sofort wieder ausschalten, da blinkt dann sicher erst recht nichts.
Jedenfalls blinkts bei mir immer noch nicht, aber viel kann doch nicht mehr fehlen?

Stefan

[F3K Total]

ups, da ist mir ein kleiner Fehler unterlaufen, mit der 1234:

Versuch dies:

Code: Alles auswählen

sub Fortschrittsanzeige (Text)
    Draw_Seite = ThisComponent.getDrawpages()
    Draw_Seite_1 = Draw_Seite.getByIndex(0)
    f = Draw_Seite_1.getByIndex(1234)
    f.string = Text
    'Blinken einschalten
    f.TextAnimationKind = com.sun.star.drawing.TextAnimationKind.BLINK
    'Blinken ausschalten:
    'f.TextAnimationKind = com.sun.star.drawing.TextAnimationKind.NONE
End Sub

Sonst hilft nur ein Beispieldokument hochzuladen ...

... aufjedenfall muss es entfernt werden und dann sollte es einwandfrei funktionieren.

Mit Nichten!
Die Einschätzung von delta9 ist richtig.

Code: Alles auswählen

com.sun.star.drawing.TextAnimationKind.BLINK

schaltet das Blinken ein

Code: Alles auswählen

com.sun.star.drawing.TextAnimationKind.NONE

schaltet das Blinken aus
Gruß R

[delta9]

Ne, das ist nicht der Punkt, das hatte ich auch nicht geändert. Ich habe ja Zugriff auf den Text, also muss f schon das richtige Objekt sein !?
Der Wert für TextAnimationKind wird auch geändert, wie mir xray sagt.
Aber irgendwo klemmt es noch.

[F3K Total]

Sonst hilft nur ein Beispieldokument hochzuladen ...

Bei mir geht's, siehe Anhang.
Gruß R

[delta9]

Es klappt, vielen Dank!
Leider kann ich nicht mehr nachvollziehen, was ich zuerst falsch gemacht habe. Ich glaube, ich habe irgendwie doch das falsche Objekt angesprochen, und weil das kein drin Text war, hat auch nichts "falsch" geblinkt.


Stefan