double-ien
XLDnaute Junior
Bonjour le forum
J'ai un petit problème..je ne sais pas si c'est un bug venant de PowerPoint.
J'ai une macro qui fait juste un copier coller d'un graphique de Excel vers PowerPoint.Le problème est que mon graphique est collé en noir et blanc...Alors qu'avec un copier coller manuel je conserve la couleur.
Ce qui est encore plus étrange c'est que mon copier coller fonctionnait avant...
Comment conserver la couleur?
Voici un bout de code:
Windows(Importation).Activate
Sheets(Sheet_Name).Activate
ActiveSheet.ChartObjects(Graph_Name).Activate
ActiveChart.ChartArea.Select
With Selection.Border
.Weight = 1
.LineStyle = 0
End With
Selection.Interior.ColorIndex = xlAutomatic
Sheets(Sheet_Name).DrawingObjects(Graph_Name).RoundedCorners _
= False
Sheets(Sheet_Name).DrawingObjects(Graph_Name).Shadow = False
ActiveChart.CopyPicture appearance:=xlPrinter, Size:=xlScreen, Format:=xlPicture
Merci si vous trouvez une solution...
Belle et agréable journée à vous tous...
J'ai un petit problème..je ne sais pas si c'est un bug venant de PowerPoint.
J'ai une macro qui fait juste un copier coller d'un graphique de Excel vers PowerPoint.Le problème est que mon graphique est collé en noir et blanc...Alors qu'avec un copier coller manuel je conserve la couleur.
Ce qui est encore plus étrange c'est que mon copier coller fonctionnait avant...
Comment conserver la couleur?
Voici un bout de code:
Windows(Importation).Activate
Sheets(Sheet_Name).Activate
ActiveSheet.ChartObjects(Graph_Name).Activate
ActiveChart.ChartArea.Select
With Selection.Border
.Weight = 1
.LineStyle = 0
End With
Selection.Interior.ColorIndex = xlAutomatic
Sheets(Sheet_Name).DrawingObjects(Graph_Name).RoundedCorners _
= False
Sheets(Sheet_Name).DrawingObjects(Graph_Name).Shadow = False
ActiveChart.CopyPicture appearance:=xlPrinter, Size:=xlScreen, Format:=xlPicture
Merci si vous trouvez une solution...
Belle et agréable journée à vous tous...