Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel copier graphique et collage spécial

copier graphique et collage spécial

2 réponses
Avatar
René Delcourt
Bonne fin de dimanche à tous (en Suisse c'est la fête nationale)
Je voudrais figer l'image d'un graphique et le coller sur une autre feuille.
Cependant, la commande collage spécial n'est pas active.
Je pensais contourner le problème en collant, coupant et collage spécial qui
fonctionne manuellement mais en vba, c'est autre chose (même en reproduisant
l'enregistrement des événements!)
Quelqu'un est-il inspiré?
Merci
--
René Delcourt
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
michdenis
Bonjour René,

Essaie quelque chose dans le genre :

Transforme ton graphe dans une feuille excel en feuille graphique et de la feuille graphique vers une feuille contenant l'image du
graphique dans liaison avec les données. Évidemment, tu peux y ajouter des variantes ...

'--------------------------------
Sub Graphique()
ActiveSheet.ChartObjects("Graphique 1").Activate
ActiveChart.ChartArea.Select
ActiveChart.Location Where:=xlLocationAsNewSheet

With Charts(ActiveSheet.Name)
.CopyPicture Appearance:=xlScreen, Format:=xlBitmap
Set Sh = Worksheets.Add
Sh.PasteSpecial Format:="Bitmap", Link:úlse, DisplayAsIcon:úlse
End With
End Sub
'--------------------------------


Salutations!


Salutations!





"René Delcourt" a écrit dans le message de news:
Bonne fin de dimanche à tous (en Suisse c'est la fête nationale)
Je voudrais figer l'image d'un graphique et le coller sur une autre feuille.
Cependant, la commande collage spécial n'est pas active.
Je pensais contourner le problème en collant, coupant et collage spécial qui
fonctionne manuellement mais en vba, c'est autre chose (même en reproduisant
l'enregistrement des événements!)
Quelqu'un est-il inspiré?
Merci
--
René Delcourt
Avatar
René Delcourt
Merci pour ton aide.
Je n'ai pas repris ton scénario tel quel (il s'agissait déjà de fenêtre
graphique!) mais il m'a amplement inspiré pour résoudre le problème. Il a
suffit que j'utilise CopyPicture Appearance:=xlScreen, Format:=xlBitmap
A+
--
René Delcourt



Bonjour René,

Essaie quelque chose dans le genre :

Transforme ton graphe dans une feuille excel en feuille graphique et de la feuille graphique vers une feuille contenant l'image du
graphique dans liaison avec les données. Évidemment, tu peux y ajouter des variantes ...

'--------------------------------
Sub Graphique()
ActiveSheet.ChartObjects("Graphique 1").Activate
ActiveChart.ChartArea.Select
ActiveChart.Location Where:=xlLocationAsNewSheet

With Charts(ActiveSheet.Name)
.CopyPicture Appearance:=xlScreen, Format:=xlBitmap
Set Sh = Worksheets.Add
Sh.PasteSpecial Format:="Bitmap", Link:úlse, DisplayAsIcon:úlse
End With
End Sub
'--------------------------------


Salutations!


Salutations!





"René Delcourt" a écrit dans le message de news:
Bonne fin de dimanche à tous (en Suisse c'est la fête nationale)
Je voudrais figer l'image d'un graphique et le coller sur une autre feuille.
Cependant, la commande collage spécial n'est pas active.
Je pensais contourner le problème en collant, coupant et collage spécial qui
fonctionne manuellement mais en vba, c'est autre chose (même en reproduisant
l'enregistrement des événements!)
Quelqu'un est-il inspiré?
Merci
--
René Delcourt