Redimensisioner image d'un graphique en vba

Résolu/Fermé

GDP - 3 févr. 2014 à 15:33
pilas31 Messages postés 1825 Date d'inscription vendredi 5 septembre 2008 Statut Contributeur Dernière intervention 24 avril 2020 - 4 févr. 2014 à 11:06

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

A voir également:

Redimensisioner image d'un graphique en vba
Image iso - Guide
Changer carte graphique - Guide
Faire un graphique sur excel - Guide
Acronis true image - Télécharger - Sauvegarde
Google recherche par image - Guide

1 réponse

Réponse 1 / 1

pilas31 Messages postés 1825 Date d'inscription vendredi 5 septembre 2008 Statut Contributeur Dernière intervention 24 avril 2020 643
3 févr. 2014 à 18:14

Bonjour,

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+

GDP
4 févr. 2014 à 09:50

Bonjour Pilas 31,

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.

pilas31 Messages postés 1825 Date d'inscription vendredi 5 septembre 2008 Statut Contributeur Dernière intervention 24 avril 2020 643
4 févr. 2014 à 11:06

Bonjour,

Avec plaisir, et bonne continuation.

Discussions similaires

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

Nuages de point avec abscisses différentes

code couleur associé a une image

ouverture d'un fichier excel à partir d'un code VBA

Discussions similaires

Newsletters