Re: [it-users] macro per nascondere fogli in calc

Il 06/12/2015 19:09, ARatti ha scritto:
> Ho creato delle macro per visualizzare  e nascondere dei fogli in 
> calc, la macro che uso (da OOo) è la seguente:
>
> sub NASCONDI
> rem 
> ----------------------------------------------------------------------
> rem define variables
> dim document   as object
> dim dispatcher as object
> rem 
> ----------------------------------------------------------------------
> rem get access to the document
> document   = ThisComponent.CurrentController.Frame
> dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
> rem 
> ----------------------------------------------------------------------
> dim args1(0) as new com.sun.star.beans.PropertyValue
> args1(0).Name = "aTableName"
> args1(0).Value = "FOLGIO1"
> dispatcher.executeDispatch(document, ".uno:Hide", "", 0, args1())
> end sub
>
> Ma non funzione in modo corretto, più precisamente nasconde il foglio 
> selezionato, e non il foglio indicato con args1(0).Value
> La stessa macro usata per mostra i foglio (al posto di ".uno:Hide" c'è 
> ".uno:Show") funziona.
> Qualche suggerimento
> Grazie
> Ambrogio Ratti

Prova con:
    documento = StarDesktop.CurrentComponent
    foglio = documento.Sheets(nfoglio)
    foglio.IsVisible = false

o, se vuoi semplificare:
documento.Sheets(nfoglio).IsVisible = false

dove nfoglio è il numero indice del foglio, partendo da 0 (quindi, un 
numero in meno di quello che ti fa' vedere LibreOffice

Se vuoi, posso mandarti in privato il documento o una serie di documenti 
o di estensioni ricche di macro sui fogli elettronici tratti dalla rete.
(La maggior parte per OpenOffice 1.0, ma il linguaggio basic non è 
cambiato).

--

Ferrari Renato Maria
Linux Registered User #219791
Linux Registered Machine #104061
renatoferrari@tiscali.it


--
Come cancellarsi: E-mail users+unsubscribe@it.libreoffice.org
Problemi? http://it.libreoffice.org/supporto/mailing-lists/come-cancellarsi/
Linee guida per postare + altro: http://wiki.documentfoundation.org/Local_Mailing_Lists/it
Archivio della lista: http://listarchives.libreoffice.org/it/users/
Tutti i messaggi inviati a questa lista vengono archiviati pubblicamente e non sono eliminabili