Agrandir une infobulle (image) sous excel2007
Résolu
Clément
-
Clément -
Clément -
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
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
A voir également:
- Agrandir une infobulle (image) sous excel2007
- Agrandir une image - Guide
- Légender une image - Guide
- Image iso - Guide
- Raccourci agrandir fenetre - Guide
- Comment agrandir l'affichage de l'écran - Guide
6 réponses
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 :
Cordialement,
-- Tout problème à sa solution. S'il n'y a pas de solution, ou est le problème? --
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? --
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
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
Je ne comprends pas ta question... Tu souhaites utiliser ta macro x fois en décalant systématiquement d'une cellule en dessous... Quelque chose du genre :
1ère utilisation : insère un commentaire en N2,
2ème utilisation : insère un commentaire en N3,
3ème utilisation : insère un commentaire en N4, etc...
C'est bien cela que tu souhaites?
1ère utilisation : insère un commentaire en N2,
2ème utilisation : insère un commentaire en N3,
3ème utilisation : insère un commentaire en N4, etc...
C'est bien cela que tu souhaites?
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 ^_^'
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 ^_^'
Ce code fonctionne avec la cellule active (celle que tu as préalablement sélectionné en cliquant dessus) :
Sub SN() With ActiveCell .AddComment .Comment.Shape.Fill.UserPicture "P:\Production\DossierApprenti\Clément\fil\Plan\SN0910110.jpg" .Comment.Shape.ScaleWidth 5.30, msoFalse, msoScaleFromTopLeft .Comment.Shape.ScaleHeight 5.71, msoFalse, msoScaleFromTopLeft End With End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question