redimensisioner image d'un graphique en vba Résolu/Fermé

Question

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

pilas31 · Answer

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+

Redimensisioner image d'un graphique en vba

1 réponse

Discussions similaires