Um einfach Zugriff auf das aktuelle Sheet zu erhalten genügt die Referenzierung von
odoc.currentcontroller.activesheet
osheet=odoc.currentcontroller.activesheet
Möchte man die Anzahl aller Sheets und/oder die Position innerhalb der Sheets ermitteln,
geht
dies mit der Hilfe von zwei Properties, einer von Document und einer von Sheets.
Um die gesamte Anzahl der Sheets zu ermitteln genügt sheets.count:
myDoc = thisComponent
Anzahl=myDoc.Sheets.count
Um jetzt noch die Namen der einzelnen Sheets auszulesen, muß man nur eine Schleife
über
die Gesamtzahl der Sheets laufen lassen.
myDoc = thisComponent
Anzahl=myDoc.Sheets.count
For i=0 to Anzahl-1
mySheet = myDoc.Sheets(i)
msgbox mysheet.name
Next i
Möchte man die Position des aktuellen Sheet ermitteln, muß man einen Vergleich der
Namen
mit dem Namen des aktiven Sheets machen.
Der Name des aktiven Sheets steht in odoc.currentcontroller.activesheet.name.
Ich habe dazu die Funktion GetPosActiveSheet geschrieben. Sie ist bei den Makros und
Tools
zu finden
Siehe auch bei Makros und Tools nach: Sub GetNameOfAllSheets(NameOfSheets())
