Discussion :

[Larion]

Bonjour,

Ma fonction : créer une image à partir d'un groupe de cellule.
Mon problème : lorsque que je fais la manipulation à la main, la qualité de l'image est normale, mais la macro (de la même manipulation) me donne une image dégradée.
Pourquoi, et comment résoudre ce problème.
Merci de votre aide.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
    Range("A1:M12").Select
    Selection.CopyPicture Appearance:=xlScreen, Format:=xlBitmap
    Sheets("Feuil1").Select
    ActiveSheet.Paste

Ci-joint une capture d'écran des 2 résultats obtenus :
- en haut, obtenu manuellement
- en bas, par macro

[DarkVader]

C'est le jeu des 7 erreurs ?

[Larion]

Sur mon lieu de travail, je suis sur un écran 19'. On voit bien mieux.
Chez moi (24'), on ne voit pas grand chose.
Alors je vous ai fait un agrandissement...

[Larion]

Je me réponds à moi même ... cela peut servir à ceux qui rencontrent le même problème.

C'est bien un bug de Excel qui, en fait, gère mal la transparence des images.
Plusieurs cas de figure :
- la transparence est géré par excel (ce qui est le cas dans mon exemple) : la copie écran est fortement dégradées
- la transparence est dans l'image source : la copie écran est faiblement dégradé.

La solution : se passer de la transparence de l'image insérée et la copie écran est sans défaut.