> Ho cerato una Finestra di dialogo(e già ho avuto problemi dato che nol
> disegnarla gli ho dato delle dimensioni, ma poi dopo aver salvato,
> chiuso e poi riaperto il mio programma in calc ho notato che la finestra
> di dialogo che avevo disegnato, non rispettava le dimensioni che le
> avevo dato! In pratica ritorna sempre alle dimensioni di default)
?? a me non e' mai successo..
> Comunque, tormnando al mio progetto, ho una finestra di dialogo nella
> quale ho inserito una textbox e un pulsante.
> vorrei che una volta cliccato il pulsante, la cella "A1" del "foglio1"
> diventi uguale ad 1!
> In VBA avrei dovuto semplicemente scrivere nel blocco di codice relativo
> al pulsante: "Sheets("Foglio1").Range("A1")=1"
> Ma in OpenOffice ho visto che cliccando due colte sul pulsante non
> compare l'editor del codice e credo d'aver capito che devo creare una
> macro apposita da richiamare al click del pulsante stesso.
> Il punto è che non ho capito in che modo scrivere il codice.
> Ho provato scrivendo:
> Dim Sheet As Object
> Sheet = Sheets.GetByName("Foglio1")
> ma poi non so come proseguire....
> Un aiutino?
Ciao Luigi,
Ci sei quasi...
Basta scrivere cosi':
oDoc=ThisComponent
'oDoc e' il documento calc
oSheet=oDoc.Sheets.getByName("Sheet1")
'oSheet e' il foglio che ricavi tramite il nome. Sheets e' un membro
di oDoc che contiene tutti i fogli
oCell=oSheet.getCellByPosition(0,0)
'Puoi anche usare la funzione getRange ma non ricordo mai la
sintassi... visto che ti serve la prima cella ottienila con la
posizione. oCell e' la tua cella
oCell.setValue(1)
' Setta il valore della cella a 1
Scrivi questa macro in un modulo, poi assegnala al pulsante facendo
doppio click in modalita' design sul pulsante e scegliendo la scheda
Eventi.
Esiste un ottimo libro per imparare a scrivere macro in StarBasic
scritto da A. Pitonyak. Sul suo sito trovi anche un documento con una
vasta collezione di macro.
Ciao,
Michele
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
