Discussion :

[licpegpon]

Bonjour,

Sous EXCEL 2013, j'essaie de capturer comme une image un graphique, ensuite de le coller un peu plus bas dans la même feuille puis rotation de 90°. J'ai généré cette macro avec l'enregistrement automatique de macro.

A l'exécution j'ai un plantage à la ligne rouge. Des suggestions ? Merci.

Cdlt.
Jérôme

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Macro1()
'
' Macro1 Macro
'

'
    Range("A12:L35").Select
    Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture
    Range("B37").Select
    ActiveSheet.Paste
    ActiveSheet.Shapes.Range(Array("Picture 2")).Select
    Selection.ShapeRange.IncrementRotation 90
    
End Sub

[Arkham46]

Bonjour,

L'image collée ne va pas s'appeler forcément "Picture 2".
Avec l'hypothèse que l'image collée sera la dernière forme de la feuille :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
    With ActiveSheet
        .Range("A12:L35").CopyPicture Appearance:=xlScreen, Format:=xlPicture
        .Range("B37").PasteSpecial
        With .Shapes(ActiveSheet.Shapes.Count)
            .IncrementRotation 90
        End With
    End With

[licpegpon]

Bonjour,

Etat débutant...

Où dois-je insérer ce code ? Il ne s'agit pas d'une macro ? Une fonction peut-être ? Comment intégrer cela ? Merci.

[Arkham46]

Bonjour,

Le code que j'ai donné remplace celui qui avait entre "Sub Macro1()" et "End Sub"

[licpegpon]

OK. Merci.....

Cdlt
Jérôme

[licpegpon]

(Re)bonjour,

Et si je voulais créer un bouton permettant de supprimer la nouvelle image créée (celle tournée de 90°) ? Code VBA ?

Cdlt.
Jérôme.