Discussion :

[AceKen]

Bonjour à tous,

Malgré quelques recherches sur internet, je n'ai pas réussi à trouver une réponse à ma question. J'aimerai savoir si il est possible, après avoir créé un objet tiré d'une image de type PNG, associé à un objet de type Shape sous VBA, de :
- Soit lui associer une macro, mais que la "Hitbox" de l'objet associé à la macro ne soit pas rectangulaire.
- Ou de récupérer le clique de l'user sur l'objet et de modifier la forme de l'objet en amont.

Le but est ici est de créer une image avec plusieurs objets où l'on peut cliquer dessus. Si aucune de ces solutions n'est réalisables, est-il possible selon vous de jouer sur l'arrière plan en essayant d’empêcher que la macro associé à l'objet soit rectangulaire ?

Merci d'avance pour votre réponse.
Cdlt.

[Algoplus]

Bonjour,

Pas sûr d'avoir tout compris!

Mais, après avoir insérer une image, on peut ajouter sur cette image des formes automatiques (variées) sans remplissage.

Après avoir tout sélectionné, puis groupé, on obtient un "shape" qui prend un nom comme : Groupe 16

clic droit sur ce groupe et Affecter une macro. Le nom proposée est de la forme:Groupe16_QuandClic()
Valider.

Dans cette macro coller le code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MsgBox Application.Caller

Un message affiche alors le nom de la forme sur laquelle on a cliqué.
On peut donc récupérer le nom de la forme cliquée et donc , par un Select Case par exemple, créer une action spécifique pour chaque forme de l'image globale.

A+

[patricktoulon]

re
oui
manuellement c
click droit sur le groupe ou un des shapes (c'est le groupe qui va être sélectionné) et affecter une macro

par vba

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

lenomdetongroupe.onction="nomdetamacro"

et pour peu que tu ne veuille pas te servir de App. Caller

tu argumente l'appel

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Sub test1()
'exemple avec 1 argument ecrit en dur dans l'apel
 lenomdetongroupe.OnAction = "'mamacro " & """toto""" & "'"
End Sub
Sub test1BIS()
'la meme que la TEST1 mais avec une varaible dans l'apel
 machin = "toto"
 lenomdetongroupe..OnAction = "'mamacro " & Chr(34) & machin & Chr(34) & "'"
End Sub
 
Sub test2()
'exemple avec plusieurs  arguments ecrit en dur dans l'apel
 Sheets(1).Shapes(1).OnAction = "'mamacro2 " & Chr(34) & "toto "","" titi "",""  riffifi ""'"
End Sub
Sub test2BIS()
'LA MEME QUE LA test2 MAIS AVEC DE VARIABLES INSTRUITES AVANT EN ARGUMENT
 machin1 = "toto"
 machin2 = "titi"
 machin3 = "riffifi"
  lenomdetongroupe..OnAction = "'mamacro2 " & Chr(34) & machin1 & """,""" & machin2 & """,""" & machin3 & "'"
End Sub
 
 
Sub mamacro(argument)
MsgBox argument
End Sub
Sub mamacro2(argument1, argument2, argument3)
MsgBox argument1 & vbCrLf & argument2 & vbCrLf & argument3
End Sub

j'ai tout dis

[AceKen]

Merci beaucoup pour votre aide et votre rapidité à répondre. Grâce à vous, j'ai pu trouver la réponse à mon problème !

Bonne soirée à vous deux !