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