Bart Aimar ha scritto:
Questo unolistener mi fa venire il mal di testa... ma se lo prendo come
un atto di fede forse me la cavo...
NON me la cavo...
Sub TestRangeSelection() ...zot...
fino a quì, con tutta la fede necessaria... tutto OK
mArgs(1).Value = "My Title" mArgs(2).Name = "CloseOnMouseRelease"
Credo non ci siano alternative... Confermi?
Qui invece mi inciampo... perchè vuole che si selezioni un range...
mentre a me interessa una cella e se l'utente cerca di selezionare un
range vorrei che una bacchetta calasse sulle sue dita... (mai fidarsi
dell'utente...)
Ma sembrerebbe dai vari mArgs che in realtà venga prelevato solo il
valore di inizio del range (e tanto mi basterebbe)
Non mi è ancora chiaro... ma in ogni caso si può ovviare...
Anche se l'utente seleziona un range io prelevo il numero della riga più
"piccolo" e lo do per buono...
mArgs(2).Value = False
Sto ancora trafficando... ed ho provato a mettere Value = true... e in
questo modo la finestrella si chiude da sola (ottima cosa), ma non ho
ancora capito se in tal caso mi registra qualcosa...
Mettere True va bene?
Comunque ho ingenuamente provato ad inserire in coda al tuo codice una
variabile che mi registrasse i risultati di tutto quel lavoro... ma la
cosa sembra non funzionare...
e cioè:
Sub TestRangeSelection()
'omissis
oPippo = oDocView.startRangeSelection(mArgs()) 'modifica mia
print oPippo ' aggiunta mia
End Sub
Inoltre...
... quando si apre la finestra, CONTEMPORANEAMENTE si apre anche la
finestra del print... che ovviamente è ancora vuota... e fino a quando
non clicco l'oK. non posso proseguire....
Insomma a volte la fede non basta...
Non ne sono venuto fuori... la magica finestrella NON aspetta l'imput
dell'utente... e il codice va avanti indisturbato...
Si infatti mi piacerebbe molto avere la possibilità di una prompt del
tipo: "Seleziona la destinazione...."
Almeno questo è risolto... (era facile.. :-) )
mArgs(1).Name = "Title"
mArgs(1).Value = "Seleziona una o più celle sulla riga dove vuoi
spostare la voce"
Più in generale mi piacerebbe avere un codice del tipo:
Sub Sposta_una_Analisi
' .... dopo vari traballamenti e sbatacchiamenti (che ti risparmio)
' mi ritrovo, ad avere un range selezionato
Specifico: visibilmente selezionato!!
oDestinazione = TestRangeSelection ' ma come function
' funzionerà ancora?
Pare di no... che mi dici?
'estraggo i dati da oDestinazione localizzando la row
'faccio spazio con righe vuote e incollo il range di partenza
end sub
Sostanzialmente due domande:
1) come posso fare affichè tutto si fermi in attesa dell'imput dell'utente?
2) come prelevare il dati che vedo scritti in quella famosa finestrella?
Grazie Paolo
Bart
ps
E tutto pronto... tutto l'ambaradan che mi sposta le voci è
funzionante.. ma devo digitare a manina il numero della row...
e continuo a sospettare che tu abbia omesso una qualche riga nel codice
che avevi postato... perchè oEvent non è mai definito... viene solo
usato...
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
