Optionsfeld mittels Makro markieren

[Migesius]

Liebe OOO-Basic-Freunde und -Experden

Heute durfte ich mein erstes Makro programmieren, und obwohl's mich den ganzen Tag gekostet hat und das Resultat ziemlich bescheiden ist, hab ich doch eine Riesenfreude daran Ich erspar Euch besser die Details, ist wirklich nichts grosses. Leider komm ich bei einem kleinen Problemchen nicht mehr weiter, und mir brummt schon so der Schädel dass ich beschlossen habe, im Forum nachzuschauen oder nachzufragen. Da ich keinen Thread zu meinem Problem gefunden habe, erlaube ich mir, ein neues Thema zu eröffnen.

Wie kann ich in meinem Makro die Markierung eines Optionsfeldes herbeiführen? Ich habe zwei Optionsfelder, die unterschiedliche Filter-Makros auslösen (Filterung des Status einer Aufgabe: "offen" oder "erledigt"). Das Hauptmakro (ein Drittes Makro, das u.a. eine neue Zeile einfügt) löst ebenfalls das Filter-Makro "offen" aus, markiert jetzt aber nicht das entsprechende Optionsfeld. Irgendwie muss ich das noch programmieren, sämtliche Versuche sind aber leider gescheitert Habt Ihr eventuell eine Idee, wie ich vorgehen muss, damit nach dem Hauptmakro in jedem Fall das Optionsfeld 1 markiert ist? Ich danke euch schon jetzt ganz herzlichst für eure Hilfe!

Liebe Grüsse
Migesius

[balu]

Hallo Migesius,

wo drin befindet sich das Optionsfeld?
- Drawpage
- Formular
- Dialog

In welchem Modul von OOo?
- Writer
- Calc
- Base

Kennst Du schon Dannenhöfer?
Wenn nicht, dann bitte hier schon mal nachlesen:
http://www.dannenhoefer.de/faqstarbasic ... tml#Zweig4



Gruß
balu

[Migesius]

Hallo Balu

Ich meinte das Modul Calc, kann Dir aber nicht sagen ob in Drawpage, Formular oder Dialog... bin wirklich noch ein Greenhorn. ich werd mich mal bei Dannenhöfer schlau machen, vielen Dank für den Link! Werde meine Erkenntnisse daraus dann posten.

Schöner Feierabend und Gruss
Migesius

[Migesius]

Hallo allerseits!

ich habe die Lösung gefunden, bei Dannenhöfer An dieser Stelle nochmals mein Dankeschön an Balu für den Link!

Hier der Programmcode:

Sub Kontrollfeld
Dim oSheet as object, oForm as object, oContr as object
oSheet = thisComponent.sheets(0)
oForm =oSheet.DrawPage.forms.getbyIndex(0)
oContr = oForm.getbyname("Optionsfeld 1")
oContr.State = true
End Sub

Vielleicht gibt's noch eine elegantere Variante, die hier funktioniert aber ebenso.

Alles Gute und Grüsse
Migesius