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

[Shirkan]

Hab's hinbekommen, vielen Dank für die Hilfe. S.

Code: Alles auswählen

Sub Main

Dim oDoc As Object
Dim oDrawpage As Object
Dim oForm As Object
Dim oRadio As Object
Dim bind
Dim adress

	oDrawpage = ThisComponent.Sheets.getByIndex(0).Drawpage
	oForm = oDrawPage.getForms.getByIndex(0)
	oRadio = oForm.GetByIndex(0)


	oDoc = ThisComponent
	oForm = oDoc.Sheets.getByName("Tabelle1").DrawPage.Forms(0)
	oCtl = oForm.getbyName("Optionfield1")

	adress = oDoc.CurrentSelection.CellAddress

	'Msgbox adress.row
	'Msgbox adress.column

	Dim NV as new com.sun.star.beans.NamedValue
	With NV
		.Name = "BoundCell"
		.Value = adress
	End With

   bind = oDoc.createInstance("com.sun.star.table.CellValueBinding")
   bind.Initialize(Array(nv))
   oCtl.setValueBinding(bind)  

End Sub

[karolus]

Hallo
Ohne unnützes »dim« …en, ohne nichtssagende »o« -prefixe, ohne die wertlosen auskommentierten »msgbox« en, ohne unbenutze Zuweisungen, … und mit einem besserem Namen für das Kontrollfeld um das sich alles dreht:

Code: Alles auswählen

Sub Main
    doc = ThisComponent
    form = doc.Sheets.getByName("Tabelle1").DrawPage.Forms(0)
    control = form.getbyName("Optionfield1")

    adress = doc.CurrentSelection.CellAddress

    dim nv as new com.sun.star.beans.NamedValue	
    nv.Name = "BoundCell"
    nv.Value = adress
	
    bind = doc.createInstance("com.sun.star.table.CellValueBinding")
    bind.Initialize(Array(nv))
    control.setValueBinding(bind)  
End Sub

[Shirkan]

Mein Gott, ziemlich dämlich. Wenn Du (karolus) nichts als Stenkern im Kopf hast, dann halt Dich doch aus dem Thread raus. Immer besserwissende Zeitgenossen braucht die Gesellschaft nicht. S.