Image *.jpg: Bug ou pas avec 2007 ?

Le
Papy Jean
Bonjour

Une macro crée des images *.jpg (de devis) qui sont envoyées par courriel
aux Clients.

+ On crée d'abord un fichier *.jpg à partir d'une image de la feuille
Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture
Selection.Copy
ActiveSheet.Paste
With ActiveSheet.ChartObjects.Add(0, 0, Selection.Width,
Selection.Height).Chart
.ChartArea.Border.LineStyle = 0
.Paste
.Export FichierImage, "jpg"
End With
+ puis on envoie le Mail

Ce qui marchait bien avec Excel 2003
Avec Excel 2007,
* si la police est Arial, le texte dans l'image est (presque) illisible.
alors que l'image construite sous Excel est correcte.
* en utilisant la police "courier New", le texte redevient lisible.

Y a-t-il un paramètre à ajouter avec Arial ?

Merci d'avance
Papy Jean
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Thierry
Le #17766541
Bonjour,

Je sais que je ne vais pas faire avancer le schmilblick (quoique....), mais
pourquoi ne pas plutôt utiliser une imprimante virtuelle (PDFCreator par
exemple), qui à mon avis doit mieux gérer les polices, indépendamment des
options d'affichage.

Thierry

Papy Jean a écrit :
Bonjour

Une macro crée des images *.jpg (de devis) qui sont envoyées par courriel
aux Clients.

+ On crée d'abord un fichier *.jpg à partir d'une image de la feuille
Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture
Selection.Copy
ActiveSheet.Paste
With ActiveSheet.ChartObjects.Add(0, 0, Selection.Width,
Selection.Height).Chart
.ChartArea.Border.LineStyle = 0
.Paste
.Export FichierImage, "jpg"
End With
+ puis on envoie le Mail

Ce qui marchait bien avec Excel 2003
Avec Excel 2007,
* si la police est Arial, le texte dans l'image est (presque) illisible.
alors que l'image construite sous Excel est correcte.
* en utilisant la police "courier New", le texte redevient lisible.

Y a-t-il un paramètre à ajouter avec Arial ?

Merci d'avance
Papy Jean






Papy Jean
Le #17773871
Bonjour Thierry

Mercide ton attention.

La raison est double:
1) Cela permet d'envoyer au Client un Mail avec un fichier image en pièce
jointe, fichier qui n'est pas facilement modifiable, qui ne dépend pas de
son niveau d'Excel ou Word, ... et qu'il peut facilement archiver et
consulter.
2) En réalité, le Classeur Excel permet d'envoyer selon ce que le couple
(Fournisseur - Client) demande
un courrier, un Fax, un courriel (avec ou sans pièce jointe, ..), PDF, ou
une page htm; et comme tu le suggères, une imprimante virtuelle.
Bref, tous les goûts sont dans la nNature !

Cordialement
Papy Jean

"Thierry"
Bonjour,

Je sais que je ne vais pas faire avancer le schmilblick (quoique....),
mais pourquoi ne pas plutôt utiliser une imprimante virtuelle (PDFCreator
par exemple), qui à mon avis doit mieux gérer les polices, indépendamment
des options d'affichage.

Thierry


Misange
Le #17775251
Bonjour,

De fait, il se passe parfois de droles de trucs avec l'exportation JPEG.
Je rejoins le commentaire de Thierry. L'inconvénient du Jpeg en prime
c'est que si ton doc fait deux pages, ça te fait deux fichiers.
Un pdf est modifiable certes, mais on peut le protéger (la protection
d'adobe est quand même un cran au dessus de celle d'office, tu me diras
c'est pas très difficile). Un JPEG est tout aussi modifiable et pour peu
que les gens soient malhonnêtes, ça devient un vrai boulot que de
verrouiller toutes les possibilités de modifs. Face à une personne de ce
genre, le papier signé envoyé par la poste reste un must :-)
Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.net

Papy Jean a écrit :
Bonjour

Une macro crée des images *.jpg (de devis) qui sont envoyées par courriel
aux Clients.

+ On crée d'abord un fichier *.jpg à partir d'une image de la feuille
Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture
Selection.Copy
ActiveSheet.Paste
With ActiveSheet.ChartObjects.Add(0, 0, Selection.Width,
Selection.Height).Chart
.ChartArea.Border.LineStyle = 0
.Paste
.Export FichierImage, "jpg"
End With
+ puis on envoie le Mail

Ce qui marchait bien avec Excel 2003
Avec Excel 2007,
* si la police est Arial, le texte dans l'image est (presque) illisible.
alors que l'image construite sous Excel est correcte.
* en utilisant la police "courier New", le texte redevient lisible.

Y a-t-il un paramètre à ajouter avec Arial ?

Merci d'avance
Papy Jean






Publicité
Poster une réponse
Anonyme