ho creato una macro che fa questo:
seleziona A1:M1
copia
Se eseguo la macro tramite "strumenti - macro - esegui macro", la macro funziona e copia il contenuto delle celle.
Il problema c'è se associo la macro al pulsante ed eseguo la macro premendo il pulsante.
Quando premo sul pulsante, vengono selezionate le celle, ma il problema è che resta selezionato anche il pulsante appena cliccato. Di conseguenza il comando ".uno:Copy" della macro non copia il contenuto delle celle.
Come posso risolvere?
La macro creata con il "Registra macro" è questa:
Codice: Seleziona tutto
sub Copia_A_M
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 = "ToPoint"
args1(0).Value = "$A$1:$M$1"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())
rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array())
end sub