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
Didascalia pulsante di controllo
-
- Messaggi: 32
- Iscritto il: mercoledì 17 febbraio 2021, 23:29
Didascalia pulsante di controllo
OpenOffice 4.1.9 su Windows 10 home
Re: Didascalia pulsante di controllo
.
Si può fare ... vedi allegato ...
.
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
- Allegati
-
- Test - Macro - CambioDidascaliaPulsanteConContenutoCellaA1.ods
- (15.24 KiB) Scaricato 66 volte