Graphes sans liens

[KarlTheo]

Bonjour,
J'ai un fichier avec de nombreux graphiques.

J'aimerai créer un second fichier Excel avec les mêmes graphiques, mais sans liens. J'ai copié tous mes graphes dans le nouveau classeur (ils ont donc des liens) et je fait 'Edit\\Links\\Break links'

Mais du coup tous les formats de graphiques (pourcentages...) sont perdus...

Et vu le nombre de graphiques, j'en ai pour des heures à tout remettre en forme.

J'ai essayé via une macro mais je me suis fourvoyé, et je suis persuadé qu'il doit exister une solution plus simple (ou pas).

Merci de votre aide.

KT

 

[TOFatJOB]

Bonjour,

pour bien comprendre, tu veux faire l'équivalent d'un copier coller les valeurs pour figer le graphique ?

 

[KarlTheo]

Bonjour,

Presque :

Grosso modo, je voudrais faire successivement l'équivalent :
1. d'un Paste values
2. d'un Paste format

Le copier coller simple du graphique laisse des liens vers le premier classeur. Si je casse ces liens (via le menu edition liens) je perds le formatage (les axes en % sont en format général, par exemple)

Merci de t'être penché sur mon problème

KT

 

[Mytå]

Salut KarlTheo

Astuce Excel

Vous pouvez coller une image de cellule, de graphique ou d'objet graphique dans une autre application : sélectionnez l'objet, appuyez sur la touche MAJ et cliquez sur Copier une image dans le menu Edition.

Mytå

 

[CB60]

Bonjour à tous.
D'après l'exemple de MYTA

Sub COPY_IMAGE()

''''''''''''''''''''''''''''''''''''''
'Faire la selection du graphique AVANT
''''''''''''''''''''''''''''''''''''''
' Permet de copier une selection graphique
' en temps qu'image dans une autre feuille ou même dans Paint.
' Pour une plage de cellule ou un TCD il faut appuyer sur 'MAJ'
' et ensuite copier l'image avec 'édition' 'copier l'image'

ActiveChart.ChartArea.Select
ActiveChart.CopyPicture Appearance:=xlPrinter, Size:=xlPrinter, Format:= _
xlPicture
ActiveWindow.Visible = False

Sheets.Add
Range('a1').Select
ActiveSheet.Paste
End Sub

Sub COPY_CELL_OU_TCD()

''''''''''''''''''''''''''''''''''''''
'Faire la selection du Groupe de cellule ou du TCD AVANT
''''''''''''''''''''''''''''''''''''''

Selection.CopyPicture Appearance:=xlPrinter, Format:=xlPicture
Sheets.Add
Range('a1').Select
ActiveSheet.Paste
End Sub

Bruno

 

[KarlTheo]

Merci pour votre aide.

Pas exactement ce que je souhaitais faire initialement (conserver le graphe en XLS pour le modifier...) mais je pense que la solution 'image' a le mérite d'être infiniment plus simple.

Merci donc

 

[Celeda]

Bonjour,

S'il s'agit de conserver le format et de le reproduire, pourquoi ne pas utiliser la fonctionnalité dans Type de Graphique et sauvegarder le format dans Type Personnalisé ???

Celeda