Bart,
Non so perchè, ma pare che i miei post non arrivino alla ML, perciò inoltro la
mia risposta di stamattina al tuo indirizzo pvt
saluti
Paolo
-----------------------------
Alle 01:56, venerdì 13 gennaio 2006, Bart Aimar ha scritto:
> Salve a tutti,
>
> Ho un range selezionato e vorrei spostarlo in un'altra posizione sulla
> sheet.
>
> In VB sfruttavo una possibilità di Inputbox che, oltre a poterci
> scrivere e restituire la stringa, consente di cliccare su una cella e ne
> restitituisce l'indirizzo.
>
> La funzione Inputbox di starbasic pare non consenta di cliccare
> alcunchè.... ma sono certo che da qualche parte un modo ci deve essere.
>
> Avete qualche indicazione o idea in proposito?
come no!
riguardo la funzione inputbox di VBA:
Magari sono rimasto un po indietro, ma a quanto ricordo, inputbox di VBA è
modale tanto quanto inputbox di StarBASIC (modale = non consente di cliccare
sulla finestra sottostante)
Però può anche darsi che in un impeto di user-friendly-smo i programmatori MS
abbiano sporcato la funzione inputbox per fargli fare questa cosa orribile.
Diciamo che non ci ho mai fatto caso.
Nello scorso millennio :-) quando programmavo macro di Excel, se avevo
necessità di far scegliere un range all'utente, usavo un controllo specifico
che si poteva aggiungere ai dialoghi personalizzati di VBA (non ricordo il
nome del controllo al momento).
In OOo esiste un controllo che svolge la stessa funzione.
Il controllo in questione non si può inserire in modo grafico, in quanto non è
disponibile nella toolbox delle finestre di dialogo.
In ogni caso ti allego un esempio.
ciao
Paolo M
Segue esempio:
NB: Lanciare la routine TestRangeSelection() dalla finestra di Calc (non
dall'IDE di StarBASIC
REM ***** BASIC *****
Dim oRangeSelectionListener As Object
Sub TestRangeSelection()
oDocView = ThisComponent.currentController
oRangeSelectionListener = createUnoListener("oDocView_" ,
"com.sun.star.sheet.XRangeSelectionListener")
oDocView.addRangeSelectionListener (oRangeSelectionListener)
Dim mArgs(2) As New com.sun.star.beans.PropertyValue
mArgs(0).Name = InitialValue
mArgs(0).Value = "A1"
mArgs(1).Name = "Title"
mArgs(1).Value = "My Title"
mArgs(2).Name = "CloseOnMouseRelease"
mArgs(2).Value = False
oDocView.startRangeSelection(mArgs())
End Sub
sub oDocView_done(oEvent)
MsgBox oEvent.RangeDescriptor
oEvent.source.removeRangeSelectionListener(oRangeSelectionListener)
End Sub
sub oDocView_aborted(oEvent)
oEvent.source.removeRangeSelectionListener(oRangeSelectionListener)
End Sub
sub oDocView_disposing(oEvent)
' nothing to do
End Sub
--
iscriviti anche tu al corso di sopravvivenza nel mondo linux:
t'insegnano come accendere una periferica sfregando due banchi di memoria
--madmachine
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
