BITTE helfen Sie uns HEUTE mit einer SPENDE
Das LibreOffice Forum braucht jetzt Ihre Hilfe!

❤️ DANKE >><< DANKE ❤️

> KEINE WERBUNG FÜR REGISTRIERTE BENUTZER!<
Ihre Spende wird für die Deckung der laufenden Kosten sowie den Ausbau 🌱 des LibreOffice Forums verwendet.
🤗 Als Dankeschön werden Sie im Forum als LO-SUPPORTER gekennzeichnet. 🤗

Zugriff auf Formular Steuerelemente in einer Texttabelle

Alles zur Programmierung im LibreOffice.
alex0005
Beiträge: 12
Registriert: So 25. Mär 2018, 12:26

Re: Zugriff auf Formular Steuerelemente in einer Texttabelle

Beitrag von alex0005 » Fr 30. Mär 2018, 11:36

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
Zuletzt geändert von alex0005 am Sa 14. Apr 2018, 13:09, insgesamt 2-mal geändert.

mikele
Beiträge: 1638
Registriert: Mo 1. Aug 2011, 20:51

Re: Zugriff auf Formular Steuerelemente in einer Texttabelle

Beitrag von mikele » Fr 30. Mär 2018, 17:53

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.
Dateianhänge
bedingter text.odt
(10.81 KiB) 156-mal heruntergeladen
Gruß,
mikele

F3K Total
Beiträge: 2405
Registriert: So 10. Apr 2011, 10:10

Re: Zugriff auf Formular Steuerelemente in einer Texttabelle

Beitrag von F3K Total » Sa 31. Mär 2018, 12:46

Definitiv die beste Lösung!
Top.
Gruß R
Windows 10: AOO, LO Linux Mint: AOO, LO

alex0005
Beiträge: 12
Registriert: So 25. Mär 2018, 12:26

Re: Zugriff auf Formular Steuerelemente in einer Texttabelle

Beitrag von alex0005 » So 1. Apr 2018, 19:55

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

An alle, die das LibreOffice-Forum nutzen:


Bitte beteiligen Sie sich mit 7 Euro pro Monat und helfen uns bei unserem Budget für das Jahr 2024.
Einfach per Kreditkarte oder PayPal.
Als Dankeschön werden Sie im Forum als LO-SUPPORTER gekennzeichnet.

❤️ Vielen lieben Dank für Ihre Unterstützung ❤️

Antworten