Agrandir une infobulle (image) sous excel2007 Résolu/Fermé

Question

Bonsoir!

Voila, je fabrique un tableau excel qui necessite l'affichage d'une infobulle avec une image. Le problème, c'est que l'image est trop minuscule pour être lisible. y'a-t-il une astuce pour agrandir mon image?

Voila le code que j'ai tapé dans ma macro pour l'infobulle avec l'image:

Sub SN()
With Range("N2")
.AddComment
.Comment.Shape.Fill.UserPicture "P:\Production\Dossier Apprenti\Clément\fil\Plan\SN0910110.jpg"
End With
End Sub

Merci

pijaku · Answer

Salut, 
On peux facilement modifier la taille des commentaires à l'aide des arguments : 
- .Shape.ScaleWidth ---> largeur 
- .Shape.ScaleHeight ---> hauteur 
Appliqués à ton cas comme ceci : 

Sub SN() 
With Range("N2") 
.AddComment 
.Comment.Shape.Fill.UserPicture "P:\Production\Dossier Apprenti\Clément\fil\Plan\SN0910110.jpg"  
.Comment.Shape.ScaleWidth 5.30, msoFalse, msoScaleFromTopLeft 
.Comment.Shape.ScaleHeight 5.71, msoFalse, msoScaleFromTopLeft 
End With 
End Sub
Cordialement, 
-- Tout problème à sa solution. S'il n'y a pas de solution, ou est le problème? --

Clément · Answer

Salut Pijaku! Ca marche nickel! Merci beaucoup pour ton aide! :)

Clément · Answer

J'aurai juste une question supp :) Actuellement je suis obligé de définir l'emplacement de ma macro avec le: With Range("N2")
et je suis donc obligé de créer une nouvelle macro à chaque fois. Il n'y a pas une manière générique?

Merki

Clément · Answer

Oui c'est presque ça.
En fait j'ai fais un petit screenshot
http://img688.imageshack.us/img688/4014/sanstitreaj.jpg

En gros, les infobulles sont sur les cellules des liens hypertextes. Et chaque lien correspond à une seule image. Comme tu peux le voir cela apparait sur deux colonnes différentes et la même macro n'est pas forcement répétée sur chaques lignes.

Je sais pas si je suis très clair dans ce que je dis ^_^'

Clément · Answer

Il ne veut pas, il m'écrit " erreur d'exécution '1004'",  erreur définie par action...
et quand j'appuie sur "debogage" il me surligne en jaune ".AddComment" alors que tout est nickel...

Clément · Answer

Ah! Bien vu! merci beaucoup pour le temps que tu m'as consacré!

Agrandir une infobulle (image) sous excel2007

6 réponses

Discussions similaires