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

Résolu/Fermé

Stellou la rebelle Messages postés 20 Date d'inscription vendredi 14 juin 2013 Statut Membre Dernière intervention 23 juillet 2013 - 17 juin 2013 à 15:01
Stellou la rebelle Messages postés 20 Date d'inscription vendredi 14 juin 2013 Statut Membre Dernière intervention 23 juillet 2013 - 18 juin 2013 à 13:54

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

A voir également:

Insérer une image à un endroit précis d'une feuille excel vba
Insérer liste déroulante excel - Guide
Insérer une vidéo dans powerpoint - Guide
Déplacer une colonne excel - Guide
Insérer signature word - Guide
Feuille de pointage excel - Télécharger - Tableur

4 réponses

Réponse 1 / 4

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 775
17 juin 2013 à 17:52

Bonjour,

Tout simplement :

Sub t()
  Feuil1.ChartObjects(1).Copy
  Range("N10").Select
  Pictures.Paste
End Sub

Réponse 2 / 4

Stellou la rebelle Messages postés 20 Date d'inscription vendredi 14 juin 2013 Statut Membre Dernière intervention 23 juillet 2013
18 juin 2013 à 08:54

Merci Patrice ! je vais bidouiller ! :)

Réponse 3 / 4

Stellou la rebelle Messages postés 20 Date d'inscription vendredi 14 juin 2013 Statut Membre Dernière intervention 23 juillet 2013
18 juin 2013 à 09:06

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

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 775
18 juin 2013 à 11:28

Il n'y a pas besoin d'enregistrer l'image,
la première ligne copie le graphe (pas l'image).

Patrice

Stellou la rebelle Messages postés 20 Date d'inscription vendredi 14 juin 2013 Statut Membre Dernière intervention 23 juillet 2013
18 juin 2013 à 13:54

Merci !

Réponse 4 / 4

Stellou la rebelle Messages postés 20 Date d'inscription vendredi 14 juin 2013 Statut Membre Dernière intervention 23 juillet 2013
18 juin 2013 à 09:24

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 ?

Discussions similaires

Retrouver l'image originale après avoir fait des modifications ?

Discussions similaires

Newsletters