Insérer une image à un endroit précis d'une feuille excel vba
Résolu
Stellou la rebelle
Messages postés
20
Date d'inscription
Statut
Membre
Dernière intervention
-
Stellou la rebelle Messages postés 20 Date d'inscription Statut Membre Dernière intervention -
Stellou la rebelle Messages postés 20 Date d'inscription Statut Membre Dernière intervention -
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
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 une vidéo dans powerpoint - Guide
- Insérer une liste déroulante excel - Guide
- Déplacer une colonne excel - Guide
- Feuille de pointage excel - Télécharger - Tableur
- Insérer une signature sur word - Guide
4 réponses
Bonjour,
Tout simplement :
Tout simplement :
Sub t()
Feuil1.ChartObjects(1).Copy
Range("N10").Select
Pictures.Paste
End Sub
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
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
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 ?
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 ?