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
- Comment agrandir une image - Guide
- Image iso - Guide
- Légender une image - Guide
- Comment agrandir un tableau sur word - Guide
- Raccourci agrandir fenetre - 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