Re: [de-users] Makro einmal starten, wenn eine andere Calc-Tabellenseite gewählt wird

Hallo Wolfgang,

hmm, ohne detaillierte Analysen zu fahren:

Du erzeugst einen internen Listener, dieser reagiert auf das Event 
"PropertyChange". Soweit ok.

Nun starten diverse Zugriffe auf dein Dokument - und lösen den Listener 
immer wieder aus...

Wenn das Makro eh nur einmal laufen soll - dann entferne den Listener 
sobald Du den korrekten Einstiegpunkt gefunden hast !

Dann sollte das "Stottern" aufhören.

Viele Grüße

Thomas


Am 25.01.2017 um 14:55 schrieb Wolfgang Schaible:
> Sehr geehrte Community
>
> Habe versucht, mit                'macOS Sierra 10.12.1 ; LO 5.2.4.2
>
> Sub WorksheetActivationListenerOn
>    CurrentWorksheetName = ""
>    oListeningController = ThisComponent.CurrentController
>    oActiveSheetListener = createUnoListener("ACTIVESHEET_", _
> "com.sun.star.beans.XPropertyChangeListener")
>    oListeningController.addPropertyChangeListener("ActiveSheet", 
> oActiveSheetListener)
> End Sub
>
> Sub ACTIVESHEET_propertyChange(oEvent)
>    CurrentWorksheetName = 
> ThisComponent.currentcontroller.activesheet.name
>       if CurrentWorksheetName <> "HT" then
>          print " ACTIVESHEET_propertyChange: ", CurrentWorksheetName
>          drawXYlinEqD()                '_mein Makro_
>       endIf
> End Sub
>
> das Problem zu lösen: Der Listener_stottert_, er ruft je nach 
> Tabelleninhalt das Makro x-mal auf.
> Das Basic-Makro liest einige Zeilen des aktiven Seite und schreibt 
> Zahlen in eine andere Tabellenseite. Daraus werden in einem XY-Diagram 
> senkrechte Linien gezeichnet.
>
> Kann mir jemand helfen?
> Danke im voraus
>
> mit freundlichen Grüssen
> Wolfgang


--
Liste abmelden mit E-Mail an: users+unsubscribe@de.libreoffice.org
Probleme? http://de.libreoffice.org/hilfe-kontakt/mailing-listen/abmeldung-liste/
Tipps zu Listenmails: http://wiki.documentfoundation.org/Netiquette/de
Listenarchiv: http://listarchives.libreoffice.org/de/users/
Alle E-Mails an diese Liste werden unlöschbar öffentlich archiviert