OpenOffice.info

von **delta9** » Fr, 26.07.2013 14:46

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

von **F3K Total** » Do, 25.07.2013 15:36

F3K Total hat geschrieben:Sonst hilft nur ein Beispieldokument hochzuladen ...

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

von **delta9** » Do, 25.07.2013 15:26

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.

von **F3K Total** » Do, 25.07.2013 14:58

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.

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

von **delta9** » Do, 25.07.2013 14:42

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

von **delta9** » Do, 25.07.2013 12:40

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

von **F3K Total** » Do, 25.07.2013 10:28

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

von **delta9** » Do, 25.07.2013 10:04

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

OpenOffice.info

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

Antwort erstellen

Ansicht erweitern Die letzten Beiträge des Themas: [gelöst] Text in Objekt per Makro Blinken lassen

Re: Text in Objekt per Makro Blinken lassen

Re: Text in Objekt per Makro Blinken lassen

Re: Text in Objekt per Makro Blinken lassen

Re: Text in Objekt per Makro Blinken lassen

Re: Text in Objekt per Makro Blinken lassen

Re: Text in Objekt per Makro Blinken lassen

Re: Text in Objekt per Makro Blinken lassen

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