XL 2019 Enregistrer une image d'un TCD

FaridP · 17 Juin 2020

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 :

VB:

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 · 17 Juin 2020

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

FaridP · 17 Juin 2020

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 · 17 Juin 2020

re
oui c'est ca

FaridP · 17 Juin 2020

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

patricktoulon · 17 Juin 2020

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

FaridP · 17 Juin 2020

Ok, merci je continue les recherches dans ce sens.

_Thierry · 17 Juin 2020

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 · 17 Juin 2020

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 · 17 Juin 2020

Bonjour à tous,

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

A+

job75 · 17 Juin 2020

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

VB:

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

FaridP · 17 Juin 2020

Bonsoir,

job75 à dit:
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 · 17 Juin 2020

job75 à dit:
VB:Copier dans le presse-papier

Code:

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 · 17 Juin 2020

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

FaridP · 17 Juin 2020

job75 à dit:
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

XL 2019 Enregistrer une image d'un TCD

FaridP

XLDnaute Occasionnel

patricktoulon

XLDnaute Barbatruc

FaridP

XLDnaute Occasionnel

patricktoulon

XLDnaute Barbatruc

FaridP

XLDnaute Occasionnel

patricktoulon

XLDnaute Barbatruc

FaridP

XLDnaute Occasionnel

_Thierry

XLDnaute Barbatruc

Pièces jointes

FaridP

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

FaridP

XLDnaute Occasionnel

FaridP

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

FaridP

XLDnaute Occasionnel

Discussions similaires