Verknüpfte Zelle eins Radiobuttons per Makro ändern/ löschen

[Shirkan]

Kann mir jemand sagen wie ich an die "Verknüpfte Zelle" eine Radiobuttons komme und den Wert ändere?

[karolus]

Kann mir jemand sagen wie ich an die "Verknüpfte Zelle" eine Radiobuttons komme und den Wert ändere?

Ganz offensichtlich durch »Betätigen« des Radiobuttons!

[Shirkan]

Leider wenig hilfreich! Oben steht "per Makro"
Ich möchte die Verknüpfung aus dem Struct löschen.
Hat wohl etwas mit com.sun.star.form.binding.XValueBinding zu tun. Das bekomme ich aber keine Zugang. Bei Dannenhöfer steht etwas. Das bezieht sich aber auf die formalen Eigenschaften des Structs.
VG S.

[karolus]

Hallo

Leider wenig hilfreich!

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!
zuweit ich das bis jetzt testen konnte, ist die Verknüpfte Zelle (bzw. deren Adresse) strikt readonly

[mikele]

Hallo,
https://stackoverflow.com/questions/751 ... t-lib-calc

[karolus]

Hallo,
https://stackoverflow.com/questions/751 ... t-lib-calc

boah! das funktioniert.
Wie bist du darauf gestossen?

Beispiel in python:

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)

[F3K Total]

Moin,
das hatte wir hier schon einmal:
viewtopic.php?t=15980#p40769
Gruß R

[Shirkan]

.... 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!

Ich weiß nicht wozu der Gesamtzusammenhang der Anwendung notwendig ist, um auf die Frage einzugehen. Die wesentlichen Randbedingungn sind erläutert.

Mikele, vielen Dank für die Hilfe.
VG S.

[karolus]

Ich weiß nicht wozu der Gesamtzusammenhang der Anwendung notwendig ist, um auf die Frage einzugehen.

https://de.wikipedia.org/wiki/XY-Problem

[Shirkan]

Hallo Mikele,

Dein Code ist doch Python oder so etwas? Kannst Du mir bei der Übersetzung ins Basic helfen. Nachfolgende geht noch nicht. Ich möchte die Bindung aus Kompatibilitätsgründen zu Vorgängerversionen aufheben, da in der aktuellen Version die Verarbeitung der Auswahl auf anderem Wege erfolgt.
Danke S.

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