Copier/coller un graphe, non son image
copyPicture transforme le graphe en image bitmap
Je fais remonté cette discussion simplement pour qu'un autre utilisateur ait une solution permettant de coller un graphe, non son image
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
| Sub test()
Dim CL2 As Workbook
Dim FL2 As Worksheet
Dim graphique As Object
Set CL2 = Workbooks("Classeur1") 'Classeur où on colle
Set FL2 = Worksheets("Feuil1") 'feuille où on colle
For Each graphique In ActiveSheet.ChartObjects
graphique.Select
ActiveChart.ChartArea.Copy
CL2.Activate
FL2.Activate
Range("I17").Select 'cellule située en haut et à gauche de l'endroit où l'on colle
ActiveSheet.Paste
Next
End Sub |
A toutes fins utiles
Remarque :
Un des rares exemples où la sélection du classeur, de la feuille et de la cellule "paraît" indispensable.
