Seite 1 von 1
Re: Checkbox bzw. Listenfeld rücksetzen
Verfasst: Mo, 01.04.2013 17:07
von lorbass
Setze die Objekte in einem Makro auf die gewünschten Initialwerte und binde das Makro an das Ereignis
Dokument öffnen. Fragen zur Makro-Programmierung kläre bitte in der Kategorie
OOo Basic und Java.
Gruß
lorbass
Re: Checkbox bzw. Listenfeld rücksetzen
Verfasst: Mo, 01.04.2013 18:15
von F3K Total
Hi,
wie lorbass schon geschrieben hat, gehört das Thema in die Kategorie
Basic und Java.
Hier ein Makro, dass funktionieren müsste, wenn Du die Markierfelder und Listboxen nicht an eine Datenbank gebunden hast, wie ich leider, mangels weiterer Informationen, vermuten muss.
Code: Alles auswählen
Sub S_reset_Controls
osheet = thiscomponent.sheets.getbyname("Tabelle1")
ocontroller = Thiscomponent.currentcontroller
oform = osheet.drawpage.Forms.getbyname("Formular")
for i = 0 to oform.count -1
ocontrolmodel = oform(i)
if ocontrolmodel.supportsservice("com.sun.star.awt.UnoControlListBoxModel") then
ocontrol = ocontroller.getcontrol(ocontrolmodel)
ocontrol.selectItemPos(0,true)'zurücksetzen
endif
if ocontrolmodel.supportsservice("com.sun.star.awt.UnoControlCheckBoxModel") then
ocontrolmodel.State = 0'zurücksetzen
endif
next i
end sub
Du kannst es entweder mit einer Schaltfläche, z.B.mit Titel "zurücksetzen", anwenden oder, wie auch schon geschrieben wurde, unter Extras/Anpassen/Ereignisse/Dokument öffnen ausführen lassen.
Gruß R
Re: Checkbox bzw. Listenfeld rücksetzen
Verfasst: Mo, 01.04.2013 18:31
von Eddy
Hallo Gast,
Gast hat geschrieben:Natürlich soll dann jeder ein "jungfräuliches" Dokument beim öffnen haben
speichere das Dokument im "jungfräulichen Zustand" als Vorlage.
Mit geholfenen Grüßen
Eddy
Re: Checkbox bzw. Listenfeld rücksetzen
Verfasst: Mo, 01.04.2013 18:41
von wieli
Nachdem ich mich jetzt registriert habe, ich lade hier mal meine Datei hoch. Vielleicht gehts ja doch ohne schwierige Makros.
Auch für Verbesserungen und Vereinfachungen wäre ich dankbar!
lg wieli