Discussion :

[nils.angot]

Bonjour!

J'ai un souci avec la manipulation d'images sous excel. (VB6)

Je voudrai générer des images par le code et y affecter une macro générique qui repère sur quelle image on vient de cliquer. (Et bien sur chaque image doit contenir le chemin d'origine)

J'ai essayé plusieurs solutions avec les forms... Mais je ne peux récupérer l'info de l'image source.

Bref chui coincé

Please Help!

[ouskel'n'or]

Je voudrai générer des images par le code

Générer ou insérer ? Les dessiner ou les afficher ?

A+

[jmfmarques]

ou les modifier ?

[nils.angot]

Je veux juste les insérer. pour les afficher, mais ça je connais déjà.
Ce qui me pose problème c'est ensuite, pour y affecter une macro dynamiquement.

[ouskel'n'or]

excel. (VB6)

Par macro ou avec l'outil de développement ?
Si c'est par macro, ton image est dans la feuille ou sur un form
Bon pour que tu aies un élément de réponse :
1- Affectation d'une macro à une image placée dans une feuille Excel

Code :

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

1
2
    ActiveSheet.Shapes("Object 1").Select
    Selection.OnAction = "NomClasseur.XLS!test25"

La macro affectée à l'image étant test25
Tu peux faire ça manuellement : Un clic droit sur l'image -> Affecter une macro
2 - Précise déjà le contexte

A+

[nils.angot]

Voila comment j'insère automatiquement mon image:

Code :

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

1
2
3
4
5
chemin = Application.GetOpenFilename("Fichiers images (*.jpg;*.jpeg;*.gif), *.jpg;*.gif;*.jpeg,Tous (*.*), *.*", Empty, "Ajoutez une image", Empty, Empty)
ActiveSheet.Pictures.Insert(chemin).Select
Selection.ShapeRange.AlternativeText = chemin
Selection.Name = "6|" & Colonne2
Selection.OnAction = "Clic_image"

j'utilise ce code pour insérer une image automatiquement, je gère ensuite le redimensionnement de l'image...

Ce que je voudrai faire c'est lors d'un clic sur l'image, la routine "Clic_image" se lance. mais c'est à ce moment que je coince. Je voudrai savoir sur quelle image l'utilisateur vient de cliquer. Comme la routine "Clic_image" est commune à toutes les images et que les images ont étés insérées automatiquement cela devient difficile car lors de l'arrivée dans la routine "Clic_image", rien n'est sélectionné donc pas de possibilité de savoir sur quoi on vient de cliquer.

Voilà, merci pour votre aide!

[SilkyRoad]

bonjour

pour savoir sur quel objet l'utilisateur a cliqué tu peux utiliser "Application.Caller" au debut de la procedure "Clic_image"

Code :

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

1
2
3
4
5
6
Sub Clic_image()
MsgBox Application.Caller
'
'....
'
End Sub

bonne journée
michel

[nils.angot]

Merci beaucoup, c'est exactement ça qu'il me manquai!

A bientôt