insérer une image à un endroit précis d'une feuille excel vbaRésolu/Fermé

Question

Bonjour,

Comme le nom l'indique je voudrais insérer une image Gif ou jpg à un endroit précis de ma feuille. 

Dois je utiliser InsertPicture ? Et si oui, comment dois je m'y prendre ?

En vérité, je transforme un graph en image, et je veux réutiliser cette image ! J'ai les lignes de code suivantes :

    Dim nomImage As String
    Dim Grph As ChartObject
    Dim Emplacement As Range
    Dim Image As Chart

    nomImage = "C:\Users\Estelle\graph.gif"
    
    'Définit le 1er graphique dans la Feuil1
    Set Grph = Feuil1.ChartObjects(1)
    'Exporte le graphique au format image GIF
    Grph.Chart.Export nomImage, "GIF"
    
   
    InsertPicture nomImage, Range("N10"), true, true

Patrice33740 · Answer

Bonjour,

Tout simplement :
Sub t()
  Feuil1.ChartObjects(1).Copy
  Range("N10").Select
  Pictures.Paste
End Sub

Stellou la rebelle · Answer

Merci Patrice ! je vais bidouiller ! :)

Stellou la rebelle · Answer

J'ai une question :
Ta première ligne prend l'image qui a été collé,
Après tu selectionne la case désiré
et enfin tu colle l'image à cet endroit 
C'est ça ?

Si je ne me suis pas trompée, je ne comprends pas comment il fait le lien avec l'image du graph que j'ai enregistré dans la première partie de mon code pour l'insérer.

Est ce que tu pourrais m'expliquer ?
Encore merci

Stellou la rebelle · Answer

Voici mon code qui marche ! hiaaaa 

Dim nomImage As String
Dim Grph As ChartObject


nomImage = "C:\Users\Estelle\Desktop\Image34.gif"
Sheets("dessin planant").Activate
Set Grph = ActiveSheet.ChartObjects("Graphique 23")
'Exporte le graphique au format image GIF
Grph.Chart.Export nomImage, "GIF"


Sheets("planante").Activate
Range("G47").Select
Pictures.Insert(nomImage).Select


En plus de ma question précédent, je voudrais attribuer un nom à l'image de mon graph ! Changer sa caption? Tu sais comment on fait ?

Insérer une image à un endroit précis d'une feuille excel vba

4 réponses

Newsletters