Inserer commentaire à un dessin

[odin2000fx]

Tout d'abord, bonjour à tous

Je souhaiterai savoir s'il est possible ou non d'insérer un commentaire à un dessin (par ex à une ellipse ou un rectangle), de la même manière qu'on peut le faire à une cellule, afin que lorsque le pointeur se situe sur le dessin le commentaire apparaisse.

Merci d'avance

 

[BOISGONTIER]

Re : Inserer commentaire à un dessin

Bonjour,


http://boisgontierjacques.free.fr/fichiers/Evenementiel/ImageSurvol.xls
Survol image/Boutons

JB

 

[job75]

Re : Inserer commentaire à un dessin

Bonjour odin2000fx, salut JB,

On peut aussi utiliser l'Info-bulle d'un lien hypertexte.

Mais il n'y a pas à ma connaissance de mise en forme possible...

A+

 

[odin2000fx]

Re : Inserer commentaire à un dessin

Merci à vous pour vos réponses, je vais tester

 

[odin2000fx]

Re : Inserer commentaire à un dessin

Boisgontier pourrais tu m'aider (je suis loin d'être un specialiste de VBA) avec la méthode que tu m'as donnée.


Voici le code que j'ai rentré, après avoir créé mon image

Private Sub Image1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If X < 10 Or X > Image1.Width - 10 Or Y < 10 Or Y > Image1.Height - 10 Then
ActiveSheet.Shapes("bulle_versailles").Visible = false
Else
ActiveSheet.Shapes("bulle_versailles").Visible = true
End If
End Sub

Est ce qu'il y a une manip en particulier à faire ensuite ? Parce qu'une fois que j'ai rentré le code, ma bulle est belle et bien présente, mais ne disparait jamais, comme si le code ne fonctionnait pas.

Merci d'avance

 

[BOISGONTIER]

Re : Inserer commentaire à un dessin

Bonsoir,

Il faut que l'image soit intégrée dans un contrôle (BO Boîte à Outils Contrôles)

Survol d'une image

JB

 

[odin2000fx]

Re : Inserer commentaire à un dessin

Merci pour la réponse.

Je viens de comprendre mon problème (avec un peu de honte d'ailleurs), je n'étais pas sorti du mode création... Tout simplement

Un grand merci pour l'aide