Como combinar Ctrl+Click em uma Shape

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.

https://forum.openoffice.org/en/forum/viewtopic.php?f=20&t=45516&p=210425&hilit=KeyHandler_KeyPressed#p210425

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