Seite 1 von 1
[gelöst] Text in Objekt per Makro Blinken lassen
Verfasst: Do, 25.07.2013 10:04
von 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
Re: Text in Objekt per Makro Blinken lassen
Verfasst: Do, 25.07.2013 10:28
von 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
Re: Text in Objekt per Makro Blinken lassen
Verfasst: Do, 25.07.2013 12:40
von 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
Re: Text in Objekt per Makro Blinken lassen
Verfasst: Do, 25.07.2013 14:42
von 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
Re: Text in Objekt per Makro Blinken lassen
Verfasst: Do, 25.07.2013 14:58
von 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 ...
Gast hat geschrieben:... aufjedenfall muss es entfernt werden und dann sollte es einwandfrei funktionieren.
Mit Nichten!
Die Einschätzung von delta9 ist richtig.
schaltet das Blinken ein
schaltet das Blinken aus
Gruß R
Re: Text in Objekt per Makro Blinken lassen
Verfasst: Do, 25.07.2013 15:26
von 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.
Re: Text in Objekt per Makro Blinken lassen
Verfasst: Do, 25.07.2013 15:36
von F3K Total
F3K Total hat geschrieben:Sonst hilft nur ein Beispieldokument hochzuladen ...
Bei mir geht's, siehe Anhang.
Gruß R
Re: Text in Objekt per Makro Blinken lassen
Verfasst: Fr, 26.07.2013 14:46
von 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