Olá , Alguem pode me dar uma exemplo como eu posso colocar uma condição no click da Shape EX:
MsgBox "Ctrl Precionado " caso contrario MsgBox "Ctrl Não Precionado "
"no click da Shape"
Explicar com um exemplo, a necessidade…
First of all thanks for your attention friend schiavinatto. I have a variable shape in the worksheet, and I want to select them and thus change the colors, understanding that they are selected, remembering that they will contain macros, so when I click if the ctrl key is pressed it will change color if the key is not pressed it will perform the macro’s assigned action, for this I need to combine click + ctrl , as I am not achieving this via recording a simple macro, I am asking for help on how to capture only the ctrl key without combination because once I capture ctrl the rest I believe that will be easier, follow the code that is my starting point >>>
Sub ShapeClickHandler()
If bCtrlPressed Then
Dim oShape As Object
oShape = ThisComponent.CurrentController.getSelection().getByIndex(0)
If Not IsNull(oShape) Then
MsgBox "Você clicou na shape: " & oShape.Name
End If
Else
'Inform click "
End If
End Sub
See there, great master, what I wanted to do, I managed to do it, but I needed to use a transparent control over the shape, I’m posting in English for you to see happy
Botao + ctrl.ods (14.0 KB)
Você vai precisar de um Listener de teclado para monitorar se a tecla ‘CTRL’ foi pressionada.
Nesse exemplo acima foi capturada a tecla Enter (oEvent.KeyCode = 1280), quando clica no botão para iniciar a macro, sempre que está na ultima linha dos daddos, executa a função ‘GoRight’ em vez de ir para celula de baixo, vai para celula da direita.
veja o arquivo de exemplo no post : ooKeyHandle.ods
Voce poderia atrelar a macro do listener ao evento de abrir documento. Pra ficar escutando as quais teclas estão sendo pressionadas
Voce teria que adaptar o código para seu uso. Não sei como fazer isso para vc, mas já é um ponto de partida para vc estudar.
isso tambem pode ajudar
Obrigado amigo ! me perdoi por na te respondido antes, todavia deixo aqui para compartilha com quem precisar , embora fui obrigado usar uma mascara tranpartente para obter o MouseUp , pois somente assim congueria o Modify event …
Botao + ctrl.ods (14.0 KB)
Agradeço muito por sua atenção ,voce me ajudou muito com sua dica,… obrigado. estou deixando aqui a melhor solução que eu encontrei…
1 Like