Bart Aimar wrote:
Bart Aimar ha scritto:
Qualcuno conosce un modo per eliminarli tutti di un botto?
ThisComponent.NamedRanges.ElementsName restituisce un array con
tutti i nomi di area, ma non trovo modo di svuotare quell'oggetto (ma
è un oggetto?).
In ogni caso mi sono accorto che è in sola lettura... :-(
Esiste un altro modo?
ciao
bart
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Se hai tempo mandami un file.
I tick sono un modo per misurare la velocita' di una routine. A dire il
vero non ne so molto nemmeno io solo che un po' di tempo fa dovevo
scegliere tra due modi per ordinare un array e non ricordo come mi sono
ritrovato per le mani la funzione
getSystemTicks()
La lanci all'inizio e alla fine della procedura e schiaffi il risultato
della sottrazione in una MsgBox :-)
A pensarci bene pero' credo che effettivamente non ci sia differenza tra
usare un'enumerazione o un normale ciclo FOr.
La mia idea era questa:
(su testata solo una volta perche' non avevo voglia di ridefinire altri
ranges o di ri-caricare il file :))
Sub subScrollWithEnumeration()
oDoc = thisComponent
lStartTick = getSystemTick()
oNamedRanges = oDoc.NamedRanges()
oEnum = oNamedRanges().createEnumeration()
Do While oEnum.hasMoreElements()
oWhatAmI = oEnum.NextElement()
MsgBox oWhatAmI.Name
oNamedRanges.RemoveByName(oWhatAmI.Name)
Loop
lEndtTick = getSystemTick()
MsgBox "Total ticks = " & lEndTick - lShortTick
End Sub
--
No virus found in this outgoing message.
Checked by AVG Free Edition.
Version: 7.1.385 / Virus Database: 268.3.1/292 - Release Date: 24/03/2006
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
