alle checkboxen auf FALSE

[spacerat]

aloha,

ich hab da ein kleines problem. ich hab mehrere checkboxen an verschiedenen positionen in calc und wollte jetzt oberhalb eine schaltflaeche anlegen die mir ALLE checkboxen auf FALSE setzt, unabhaengig davon ob die
schon auf FALSE stehen oder immer noch auf TRUE. allerdings krieg ich das zum verrecken nicht hin, ich hab mich jetzt schon "wuschig" gesucht und leider nur was fuer excel gefunden, was aber so in der form nicht in
open office klappt.

meine frage also, wie setzt ich das um, das sobald ich die schaltflaeche anklicke, alle checkboxen auf FALSE springen?

bin fuer jede hilfe dankbar

gruss

spacerat

[turtle47]

Hallo Spacerat,

hier mal ein Codebeispiel für das erste Tabellenblatt:

Code: Alles auswählen

Sub ResetMyCheckBoxes
	oForm = ThisComponent.Sheets().getbyName("Tabelle1").DrawPage.Forms.getByIndex(0)
	Anzahl = oForm.count
	for i = 0 to Anzahl-1
	oControl = oForm.ControlModels(i)
	if oControl.ServiceName = "stardiv.one.form.component.CheckBox"	then
	oControl.State = 0
	end if
	next i
End Sub

Viel Erfolg.

Jürgen