Verknüpfte Zelle eins Radiobuttons per Makro ändern/ löschen
Verfasst: Fr 26. Jul 2024, 23:02
Kann mir jemand sagen wie ich an die "Verknüpfte Zelle" eine Radiobuttons komme und den Wert ändere?
Das Online-Forum rund um das LibreOffice Softwarepaket
https://www.libreoffice-forum.de/
jo, ist auch wenig konstruktiv wenn du alle drei Tage mal eine Frage zu einem Teilproblem deiner »Anwendung« stellst, ohne mal irgendwie zu erläutern im welchen Kontext das steht!Leider wenig hilfreich!
boah! das funktioniert.mikele hat geschrieben: ↑Sa 27. Jul 2024, 16:04Hallo,
https://stackoverflow.com/questions/751 ... t-lib-calc
Code: Alles auswählen
from com.sun.star.beans import NamedValue as NV
def bind_spin_button_to_cell(*_):
doc = XSCRIPTCONTEXT.getDocument()
form = doc.Sheets.Tabelle1.DrawPage.Forms[0]
spin_button = form['Drehfeld 1']
address = doc.CurrentSelection.CellAddress
nv = NV( Name="BoundCell", Value=address )
bind = doc.createInstance("com.sun.star.table.CellValueBinding")
bind.initialize((nv,))
spin_button.setValueBinding(bind)
Ich weiß nicht wozu der Gesamtzusammenhang der Anwendung notwendig ist, um auf die Frage einzugehen. Die wesentlichen Randbedingungn sind erläutert..... ist auch wenig konstruktiv wenn du alle drei Tage mal eine Frage zu einem Teilproblem deiner »Anwendung« stellst, ohne mal irgendwie zu erläutern im welchen Kontext das steht!
https://de.wikipedia.org/wiki/XY-ProblemIch weiß nicht wozu der Gesamtzusammenhang der Anwendung notwendig ist, um auf die Frage einzugehen.
Code: Alles auswählen
Sub Main
Dim oDrawpage As Object
Dim oForm As Object
Dim oRadio As Object
Dim bind
oDrawpage = ThisComponent.Sheets.getByIndex(0).Drawpage
oForm = oDrawPage.getForms.getByIndex(0)
oRadio = oForm.GetByIndex(0)
nv = NV( Name="BoundCell", Value="A2" )
bind = doc.createInstance("com.sun.star.table.CellValueBinding")
bind.initialize((nv,))
oRadio.setValueBinding(bind)
End Sub