Redimensisioner image d'un graphique en vba
Résolu
GDP
-
pilas31 Messages postés 1825 Date d'inscription Statut Contributeur Dernière intervention -
pilas31 Messages postés 1825 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour à Tous,
<config>Windows XP
Voici mon soucis : dans une feuille Excel j'ai un graphique que je copie, je le colle en tant qu'image "JPEG" dans une autre feuille du classeur et je voudrait redimensionner cette image.
Voici la macro que j'ai écrite, mais elle Bugg à la ligne "SET Image". Je n'arrive pas à corriger
Je suis autodidacte en vba, et vous demande d'être indulgent.
Auriez vous une solution à m'apporter ?
Merci déjà pour le temps passé à me lire.
Sub Macro3()
'
' Macro3 Macro
'
'
Sheets("Secteurs").Select
ActiveSheet.ChartObjects("Graphique 6").Activate
ActiveChart.ChartArea.Select
ActiveSheet.ChartObjects("Graphique 6").Activate
ActiveSheet.ChartObjects("Graphique 6").Activate
ActiveChart.ChartArea.Copy
Sheets("pour Impression").Select
Range("A5").Select
ActiveSheet.PasteSpecial Format:="Image (JPEG)", Link:=False, _
DisplayAsIcon:=False
Set IMAGE = ActiveSheet.Pictures.Insert(IMAGE)
IMAGE.Height = 50
IMAGE.Width = 60
Range("A1").Select
End Sub
<config>Windows XP
Voici mon soucis : dans une feuille Excel j'ai un graphique que je copie, je le colle en tant qu'image "JPEG" dans une autre feuille du classeur et je voudrait redimensionner cette image.
Voici la macro que j'ai écrite, mais elle Bugg à la ligne "SET Image". Je n'arrive pas à corriger
Je suis autodidacte en vba, et vous demande d'être indulgent.
Auriez vous une solution à m'apporter ?
Merci déjà pour le temps passé à me lire.
Sub Macro3()
'
' Macro3 Macro
'
'
Sheets("Secteurs").Select
ActiveSheet.ChartObjects("Graphique 6").Activate
ActiveChart.ChartArea.Select
ActiveSheet.ChartObjects("Graphique 6").Activate
ActiveSheet.ChartObjects("Graphique 6").Activate
ActiveChart.ChartArea.Copy
Sheets("pour Impression").Select
Range("A5").Select
ActiveSheet.PasteSpecial Format:="Image (JPEG)", Link:=False, _
DisplayAsIcon:=False
Set IMAGE = ActiveSheet.Pictures.Insert(IMAGE)
IMAGE.Height = 50
IMAGE.Width = 60
Range("A1").Select
End Sub
A voir également:
- Redimensisioner image d'un graphique en vba
- Changer carte graphique - Guide
- Image iso - Guide
- Comment faire un graphique sur excel - Guide
- Graphique sparkline - Guide
- Faire un graphique camembert - Guide
1 réponse
Bonjour,
Essayer plus simplement ceci :
A+
Essayer plus simplement ceci :
Sub Macro3()
'
Sheets("Secteurs").Select
ActiveSheet.ChartObjects("Graphique 6").Activate
ActiveChart.ChartArea.Select
ActiveChart.ChartArea.Copy
Sheets("pour Impression").Select
Range("A5").Select
ActiveSheet.PasteSpecial Format:="Image (JPEG)", Link:=False, _
DisplayAsIcon:=False
Selection.Height = 50
Selection.Width = 60
Range("A1").Select
End Sub
A+
Merci beaucoup de votre réponse. Cela marche parfaitement, j'ai juste réajusté les dimensions.
Merci de faire partager votre savoir à des gens passionnés d'Excel qui galérent un max.
Bonne journée.
Avec plaisir, et bonne continuation.