XL 2019 Enregistrer une image d'un TCD

[FaridP]

Bonjour à toutes et à tous,

Je ne parviens pas à enregistrer l'image d'un TCD alors que pour le graphique lié, cela fonctionne parfaitement avec le code suivant :

Sub SavePic()
ActiveSheet.ChartObjects("Graph").Activate
Fname = ThisWorkbook.Path & "\" & "Graph" & ".png"
ActiveChart.Export Filename:=Fname, FilterName:="PNG"
End Sub

J'ai beau remplacer l'objet par "PivotCaches", rien n'y fait. Si quelqu'un a une piste à me donner ce serait vraiment top.

Merci pour votre temps et bonne journée,

Farid

 

[patricktoulon]

bonjour
il te faut le copier et paster dans le chart avant d'exporter le chart

 

[FaridP]

Bonjour Patrick,

Je ne suis pas sûr de comprendre... Tu dis que je peux copier le TCD dan le graph' ?

Merci pour ton aide,

Farid

 

[patricktoulon]

re
oui c'est ca

 

[FaridP]

Merci mais j'ai beau chercher, je ne vois vraiment pas comment faire ça.

 

[patricktoulon]

re
ton TCD c'est un range a la base non?
ben cherche comment on enregistre une plage en gif AVEC UN CHART

 

[FaridP]

Ok, merci je continue les recherches dans ce sens.

 

[_Thierry]

Bonjour @FaridP , Patrick, le Forum et .... l'OM !

J'avais un exemple sous la main...
Il fait un BMP du TCD et en prime l'affiche dans un UserForm...

Bonne soirée
@+Thierry

 

[FaridP]

Hello Thierry,

Merci beaucoup pour cette contribution qui m'aide énormément.

Juste une question : la capture du TCD est affiche les données sous la forme d'un Graph', pas sous sa forme originale, c'est normal ?

Encore merci pour ce travail.

Farid

 

[job75]

Bonjour à tous,

Chez moi sur Excel 2019 l'image bmp créée est vide,

A+

 

[job75]

C'est une chose connue, sur les versions récentes d'Excel il faut une boucle d'attente :

Do
    ChartObj.Chart.Paste
    DoEvents
Loop While TypeName(Selection) = "Range" 'en attente du collage

 

[FaridP]

Bonsoir,

Chez moi sur Excel 2019 l'image bmp créée est vide,

Il a fallu que je redéfinisse la zone d'impression et c'est passé.

Farid

 

[FaridP]

VB:Copier dans le presse-papier

Do
    ChartObj.Chart.Paste
    DoEvents
Loop While TypeName(Selection) = "Range" 'en attente du collage

Pour répondre à quelle problématique ? (c'est p'tet une question bête, désolé )

 

[job75]

La problématique c'est que le Paste (collage) ne s'exécutait pas chez moi, d'où l'image vide.

 

[FaridP]

La problématique c'est que le Paste (collage) ne s'exécutait pas chez moi, d'où l'image vide.

Merci beaucoup Job75 !!!! Merci Beaucoup Thierry !!!!
En ajoutant la boucle d'attente, ça donne EXACTEMENT ce dont j'ai besoin !

Un grand MERCI à vous tous et une excellente soirée,

Farid