Zugriff auf Formular Steuerelemente in einer Texttabelle

[alex0005]

Ganz schön tricky, Respekt.
Du hast damit mein Problem gelöst.
Ich ändere meine Applikation entsprechend um.
Vielen Dank und Frohe Ostern.
Alex

P.S.
Da ein Shape einer Drawpage nicht immer die Eigenschaft "Control" besitzt, habe ich das noch abfragen müssen, ansonsten klappt es super.
Nur noch eine Methode für alle Tabellen, weniger redundant und weniger fehlerträchtig. Da Dein Code so schön ist, habe ich ihn noch einmal mit der kleinen Änderung zitiert. Dann findet die globale Websuche das besser .

Code: Alles auswählen

	nCount = oDrawpage.count - 1
	redim preserve aControls(2,k)
	for k = 1 to nCount
		oShape = oDrawpage(k)
		'Shape muss vom Typ "ControlShape" sein, um die Eigenschaft "Control" zu besitzen
		if oShape.ShapeType = "com.sun.star.drawing.ControlShape" then 
			oControl = oShape.Control
			if oControl.Servicename = "stardiv.one.form.component.CheckBox" then 'es ist eine Checkbox
				aControls(0,k) = true'Checkbox
				aControls(1,k) = oShape.Anchor.Texttable.Name
				aControls(2,k) = oShape.Anchor.Cell.Cellname
			else  
				aControls(0,k) = false 'keine Checkbox
			endif
		else
			aControls(0,k) = false 'keine Checkbox
		endif
	next k

[mikele]

Hallo,
wenn ich es richtig verstehe, willst du den Status der Checkboxen anhand des Inhaltes einer Tabellenzelle ändern (und nicht umgekehrt). Willst du mit dem Status der Checkbox dann noch etwas anfangen?
Wenn es "nur" auf die Optik ankäme, wäre es auch ohne Makro lösbar: mit Hilfe einer Formel und einem angepassten Zahlenformat.

[F3K Total]

Definitiv die beste Lösung!
Top.
Gruß R

[alex0005]

Eine sehr schöne, vor allem viel einfachere Lösung.

Meine User sollen auch die Möglichkeit haben die Checkbox von Hand zu betätigen, werde daher die Makrolösung verwenden.
Was ich bei der von F3K genannten Lösung auch sehr schön finde, ist dass ein Weg aufgezeigt wird, wie man an die Shape Objekte gelangt.
Beste Grüße und vielen Dank für die Hilfe!
Alex