Re: comment insérer une miniature d'image dans une cellule d'excel?
Jean Le Brun
<sch...@discussions.microsoft.com> écrit:
>Je cherche à insérer une miniature d'image dans une cellule d'un tableau
>excel. Comment faire je ne connais pas vba
>Merci
Bonjour schutka,
Sous Excel 2000 :
Menu "Insertion"
sous-menu "Image"
Commande "A partir du fichier ..."
Désigner le fichier de la miniature.
Cordialement,
jean
--
Jacky
Une solution avec le commentaire de la cellule
Clique droit sur la cellule / insérer un commentaire
Clique droit sur la bordure du commentaire / format du commentaire
==>onglet couleur et trait==>couleur==>sélection de motifs et textures
==>onglet image==> sélectionner une image
Voir ici
http://www.cijoint.fr/cjlink.php?file=cj200903/cijNrws0XA.xls
--
Salutations
JJ
"schutka" <sch...@discussions.microsoft.com> a écrit dans le message de
news: 21A3B779-C465-4776...@microsoft.com...
Jacky
> en fait j'ai trouvé la solution dans Micro-Hebdo n°568 page 54 ce matin
Super........... Alors supprime ma réponse.
--
Salutations
JJ
"schutka" <sch...@discussions.microsoft.com> a écrit dans le message de
news: 5C8F3EA8-40F3-4920...@microsoft.com...
>
>
> "Jean Le Brun" a écrit :
>> Merci mais ça ne correspond pas à ma demande, en fait j'ai trouvé la
>> solution dans Micro-Hebdo n°568 page 54 ce matin. Il faut faire un clic
>> droit sur la cellule qui doit contenir la miniature d'image et
>> sélectionner "insérer un commentaire". Faire un clic droit sur la bordure
>> hachurée du commentaire et sélectionnez "format de commentaire". Sous
>> l'onglet "couleurs et traits" déployez le menu "couleur" et sélectionnez
>> "motifs et textures". Sous l'onglet "image" cliquez sur "sélectionner une
>> image" et indiquez le chemin d'accès au fichier de l'image. Cochez la
>> case "verrouillez les proportions de l'image". Cliquez sur "ok" puis de
>> nouveau sur "ok". Ajustez la taille du commentaire de façon à avoir une
>> image assez grande. Maintenant, lorsque vous amènerez le curseur de la
>> souris sur la cellule contenant la miniature, le commentaire qui contient
>> la grande image s'affichera sous forme de bulle. Voilà c'est un peu
>> compliqué mais çà marche super. Mon problème maintenant c'est de le
> faire pour les 196 objets auxquels je dois insérer une miniature.... et à
> moins de réaliser une macro pour automatiser l'opération, ce que je ne
> sais pas faire, j'ai un peu de travail devant moi.
Modeste
>>> Je cherche à insérer une miniature d'image dans une cellule d'un
>>> tableau excel. Comment faire je ne connais pas vba
>>>
>> solution dans Micro-Hebdo n°568 page 54 ce matin.
!!!! mais ça ne correspond pas à "ta demande"
;o)))
il s'agit ici d'inserer une image dans un commentaire
albadgones68
Alors y'a t'il une solution pour insérer une image directement dans une
cellule???
"Modeste" a écrit :
michdenis
Si tu veux insérer une image dans une plage de cellule par vba,
voici une façon de faire :
Dans la procédure "TestMonImage", tu as 3 paramètres :
"Feuil2" ->> Nom de l'onglet de la feuille
Range("b5:D6") ->> plage de cellule que va couvrir l'image
Tu peux indiquer une cellule seulement
si c'est ton besoin
"C:\Winnt\Plume.bmp" -> Chemin et nom du fichier image que
tu veux insérer.
'---------------------------------------
Sub TestMonImage()
InsérerImage "Feuil2", Range("b5:D6"), "C:\Winnt\Plume.bmp"
End Sub
'---------------------------------------
Sub InsérerImage(Feuille As String, RgImage As Range, NomImage As String)
Dim Rg As Range
Set Rg = Worksheets(Feuille).Range(RgImage.Address)
With Rg
Largeur = .Offset(, 1)(, .Columns.Count).Left - .Left
Hauteur = .Offset(.Rows.Count).Top - .Item(1).Top
Set Image = Worksheets(Feuille).Pictures.Insert(NomImage)
End With
With Image
.Left = Rg.Left
.Top = Rg.Top
'Largeur de l'image
Image.Width = Largeur
'Hauteur de l'image
Image.Height = Hauteur
'Est-ce que l'image doit se déplacer avec les cellules
'voici les 3 constantes possibles
.Placement = xlFreeFloating 'or xlmove or xlMoveAndSize
'Verrouillé ou pas
.Locked = True 'or False
End With
Set Rg = Nothing
End Sub
'---------------------------------------
"albadgones68" <albadg...@discussions.microsoft.com> a écrit dans le message de groupe
de discussion : 6695EF8B-F491-48F7...@microsoft.com...
albadgones68
Peux-tu me faire un exemple concret stp?
"michdenis" a écrit :
michdenis
en utilisant la commande du menu / insertion / Image / à partir d'un fichier
Lorsque ton image est dans ta feuille, à l'aide de la souris, tu peux la
redimensionner et la déplacer à l'endroit que tu désires. Lorsque c'est
fait, fais un clic droit sur l'image, menu contextuel -
commande : Format du contrôle - Onglet propriété - tu choisis
l'une des options qui convient à ton application...
Une procédure pour ceci n'est pas vraiment nécessaire... cela dépend des besoins !
"albadgones68" <albadg...@discussions.microsoft.com> a écrit dans le message de groupe
de discussion : D73FA0C8-4B11-41AF...@microsoft.com...
albadgones68
que l'image soit récupérée aussi. Mais il ne me le fais pas, avec aucun des
choix de l'onglet propriété
"michdenis" a écrit :
michdenis
Tu récupères ton tableau de quelle manière ?
Où sont copiées les données de ce tableau ?
As-tu plusieurs images dans ton tableau source ?
Où doivent se retrouver ces images à la fin du processus ?
Tu veux faire l'exercice manuellement ou par macro ?
Si besoin, après avoir donné tes explications, tu peux joindre
un fichier en utilisant le site internet Cijoint.fr ou cjoint.com
et inclure l'adresse où se retrouve ton fichier. Dans le fichier
publié, ne retiens que l'essentiel et fais disparaître toute
information sensible.
"albadgones68" <albadg...@discussions.microsoft.com> a écrit dans le message de groupe
de discussion : 50E483FE-6979-41B9...@microsoft.com...
albadgones68
=Groupe!B4
Et dans les cellules sources j'ai du texte et j'aimerai y ajouter une image.
Le tableau dans lequel se trouve la cellule que je récupère est sujet à un
tri par macro et donc les données des cellules peuvent changer.
La cellule source et la cellule finale ont le même format, et les données
transférer doivent se retrouver au même endroit dans cette cellule.
Je peut le faire manuellement, mais une fois que les images sont insérées
dans le premier tableau j'aimerai que le reste se fasse automatiquement.
Mais tu peut modifier ma façon de récupérer les cellules si tu as une
solution.
"michdenis" a écrit :
michdenis
La définition de ton problème n'est pas assez précise.
Relis ton texte et dis-toi que les répondeurs n'ont pas
accès à ta feuille de calcul, à la disposition de tes données.
Je suis convaincu que tu sais exactement ce que tu désires, mais
tu ne l'écris pas dans ton texte. Les répondeurs ne peuvent pas
deviner ce que tu as en tête.
Tes images sont situées où ? Dans quel répertoire ?
Si tu dois insérer plusieurs images dans la plage de cellules source,
comment savoir quelle image mettre dans chacune des cellules ?
Où est ta plage de cellules sources ? Quel est le nom de la feuille ?
l'adresse des cellules ? Est-ce que tu as un (des) critère sur lequel
tu veux te baser pour insérer les images ?
Cela représente juste quelques observations parmi plusieurs autres
que ton texte doit contenir.
"albadgones68" <albadg...@discussions.microsoft.com> a écrit dans le message de groupe
de discussion : 422A8593-87E9-4C67...@microsoft.com...
Modeste
"albadgones68" <albadg...@discussions.microsoft.com> a écrit dans le
message de groupe de discussion :
6695EF8B-F491-48F7...@microsoft.com...
> Moi cette solution ne m'arrange pas. Je ne trouve pas sa élégant.
> Alors y'a t'il une solution pour insérer une image directement dans une
> cellule???
>
> "Modeste" a écrit :
>> !!!! mais ça ne correspond pas à "ta demande"
>> ;o)))
>> il s'agit ici d'inserer une image dans un commentaire
Menu > insertion > objet > Image
redimensionner à la taille de la cellule et réciproquement ...