OVH Cloud OVH Cloud

Figer un graphique

1 réponse
Avatar
arnaud
Bonjour à tous et encore merci pour vos tuyaux....

Je copie une feuille ou il y a un graphique vers un autre classeur.
J'aimerai figer ce graphique via macro pour qu'il n'ai plus de lien avec le
tableau d'origine...

Merci d'avance !
Arnaud

1 réponse

Avatar
CAP2
Salut,

pour briser le lien entre le graphe et la source, copie une image du graphe
et colle-la dans ton autre classeur :
Cet exemple pour copier le graphique 1 du classeur actif et pour le coller
en tant qu'image dans le Classeur 2 qui est aussi ouvert (à adapter s'il
faut qu'il aille coller dans un classeur qui n'est pas déjà ouvert...)

Sub Test()

ActiveSheet.ChartObjects("Graphique 1").Activate
ActiveChart.ChartArea.Select
ActiveChart.CopyPicture Appearance:=xlScreen, Size:=xlScreen, Format:= _
xlPicture
ActiveWindow.Visible = False
ActiveSheet.ChartObjects("Graphique 1").Activate
Windows("Classeur2").Activate
ActiveWindow.Visible = False
Windows("Classeur2").Activate
Range("A1").Select
ActiveSheet.PasteSpecial Format:="Image (métafichier amélioré)", Link: _
False, DisplayAsIcon:úlse

End Sub

Ca marche ?

CAP2