Hi Winfried,
wie lassen sich sämtliche Notizen in Calc anzeigen bzw. ausblenden?
mit folgendem Makrocode, kopiert in eine STANDARD-Bibliothek (der
betreffenden Calc-Datei, oder in Deinen "Meine Makros"-Container).
Ohne Parameter (oder mit TRUE) aufgerufen, schaltet er alle Notizen des
aktuellen Tabellenblatts auf "sichtbar", mit dem Aufruf
calc_setAnnotationsVisibility( FALSE )
alle auf "nicht sichtbar".
' ------------------------------------------------------------------
' c.o.g.g 2008-12-02
Sub calc_setAnnotationsVisibility( Optional bKey as Boolean )
If isMissing( bKey ) Then
bKey = TRUE
End If
oBlatt = ThisComponent.getCurrentController().getActiveSheet()
oNotes = oBlatt.getAnnotations()
If oNotes.hasElements() Then
vEnum = oNotes.createEnumeration()
While vEnum.hasMoreElements()
vEnum.nextElement().setIsVisible( bKey )
WEnd
End If
' ------------------------------------------------------------------
Kommst Du damit zurecht?
Das kann ich sagen, wenn ich nächstes Jahr mit der Analyse des Codes
fertig bin ;-)
Im Ernst: Das da kostet mich jetzt erst mal etwas Zeit. Das ist so
ähnlich, wie einem blinden Huhn zu zeigen, wo die Körner liegen.
Aber schon mal herzlichen Dank für das Teil,
Johannes
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
