Didascalia pulsante di controllo

[GianniRm1968]

Buongiorno, è possibile che la didascalia di un pulsante di controllo creato dal formulario riporti la scritta di una determinata cella (e dunque vari a seconda di cosa trova in quella cella)?

Grazie e anticipatamente saluto

[lucky63]

.
Si può fare ... vedi allegato ...

Codice: Seleziona tutto

Sub CambioDidascaliaPulsanteConContenutoCellaA1
Rem Link del quesito: https://forum.openoffice.org/it/forum/viewtopic.php?f=9&p=66256#p66256
On Error GoTo Fine 
Doc = ThisComponent
Foglio = Doc.Sheets("Foglio1")
NumeroRiga = Doc.getCurrentSelection.cellAddress.Row
NumeroColonna = Doc.getCurrentSelection.cellAddress.Column
If NumeroRiga <> 0 Or NumeroColonna <> 0 Then Exit sub
	A1 = Foglio.GetCellRangeByName("A1").String
	Formulario = Foglio.DrawPage.Forms.GetByIndex(0) ' Il primo formulario
	Controllo = Formulario.GetByName("Pulsante 1") 'Il pulsante con tale nome
	Controllo.Label = A1 'Imposta la didascalia (scritta pulsante) uguale al contenuto della cella A1
Fine:
End sub

.