XL 2019 Enregistrer une image d'un TCD

Un dernier point, existe-t-il une astuce pour définir la zone d'impression sur un TCD dont la taille est amenée à évoluer ?
J'ai essayer en utilisant son nom mais ça ne passe pas.

et oui c'est un problème bien connu qui est apparu avec 2013 et c'est empiré avec 2016 et 2019 ne semble pas déroger a la série

en effet l’accès au clipboard pour des data de picture est beaucoup plus long qu'avec 2007
des pistes sérieuses me font supputer que comme le buffer est maintenant supérieur a 2 giga (dont dispose pour 2007) font que la lecture ET !! l’écriture !!!! prend plus de temps

d'autres pistes mettent en cause l’intégration de powerquery qui utilise allègrement le clipboard

mais ça n'est que des supputations
cela dit il existe une api pour ca

@job75 tu m’intéresse
en quoi cette boucle fait que la gestion d'attente stop quand c'est pasté
quel est le rapport du typename selection (range)

patricktoulon à dit:

@job75 tu m’intéresse
en quoi cette boucle fait que la gestion d'attente stop quand c'est pasté
quel est le rapport du typename selection (range)

Cliquez pour agrandir...

Ta question m'étonne.
Quand l'image est collée dans le graphique le TypeName de Selection passe à "Picture".

re
et qu'est ce qui te fait croire que le picture ne soit pas une image blanche collée puisque le clip n'a pas fini de digérer le bitmap

Bonsoir à tous

Pour ceci :

FaridP à dit:

Un dernier point, existe-t-il une astuce pour définir la zone d'impression sur un TCD dont la taille est amenée à évoluer ?

Cliquez pour agrandir...

Essaies d'ajouter cette ligne sur mon exemple :
Sheet.PageSetup.PrintArea = Sheet.Range("K2:M" & Sheet.Range("M5000").End(xlUp).Row).Address
(Juste après le Set de Sheet)


Et pour :

FaridP à dit:

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 ?

Cliquez pour agrandir...

Chez moi c'est bien le TCD que je vois dans le USF :



Sous Office 2013 Pro Plus 32, (Win 8.1 64) pas besoin de gestion d'attente pour ma part.

Le moins qu'on puisse dire apparemment selon les versions ça n'a pas l'air d'être très pérenne on dirait...

Bonne soirée
@+Thierry

_Thierry à dit:

Essaies d'ajouter cette ligne sur mon exemple :
Sheet.PageSetup.PrintArea = Sheet.Range("K2:M" & Sheet.Range("M5000").End(xlUp).Row).Address
(Juste après le Set de Sheet)

Cliquez pour agrandir...

Excellent, ça fonctionne parfaitement !
Il ne me reste plus qu'à faire quelques adaptations mais tout ceci m'a incroyablement facilité la tâche.

Encore un grand et sincère MERCIIII !

Farid