Checkbox, come azzerarle in un unica soluzione...

[Munick]

Salve a tutti,
Ho creato un preventivo con le checkbox, ora vorrei sapere come azzerare tutto con un pulsante...

Grazie.

[patel]

Occorre una macro, nel tuo file vedo una sola Checkbox

[Gaetanopr]

Associa questa macro ad un pulsante

Codice: Seleziona tutto

Sub Main
   Doc = thisComponent
   Sheet = Doc.Sheets.GetByIndex(0)   ' Foglio1
   DrawPage = Sheet.DrawPage
   
    For i = 0 to DrawPage.Count - 1
        Shape = DrawPage(i)
        If Shape.Control.supportsService("com.sun.star.awt.UnoControlCheckBoxModel") Then
           Shape.Control.State = 0
        End if
   Next i
End Sub