VBA - Export Excel vers PPT - pb de couleur

Bonsoir à tous,

J'utilise un macro VBA pour exporter une plage de celulles depuis Excel vers Powerpoint.
Dans certains cas l'image n'est pas restituée correctement, certaines couleurs apparaissent en N&B dans ppt (environnement Office 2000).
J'ai pensé que c'était dû au format par défaut sur le poste vu que j'utilise xlPrinter, mais sur une même plage d'autres couleurs sont bien restituées...

Des idées pour éviter ça ??

Code:

---

1 2 3 4 5 6 7 8 9

'copie d'excel mySheet.myRange.CopyPicture xlPrinter   'collage dans powerpoint With pwpt.ActiveWindow .View.gotoslide Index:=mySlide .View.Paste End With

---

Merci pour votre aide !

bonjour

Refait un essai en remplaçant

Code:

---

CopyPicture xlPrinter

---

par

Code:

---

CopyPicture xlScreen, xlBitmap

---

bonne journée
michel

Bonjour,
Merci pour ta réponse qui a presque réglé mon problème !

en fait, le code que tu donnes exporte des images blanches (je vois le contour mais rien à l'intérieur). Par contre le code suivant fonctionne :

Code:

---

mySheetmyRange.CopyPicture xlScreen, xlPicture

---

Par ailleurs j'ai un autre soucis : je souhaite exporter des plages assez larges, qui sont systématiquement tronquées arrivées dans powerpoint.

sous 2003 le code ci-dessous fonctionne parfaitement, mais par contre pas moyen de le faire tourner sous ppt 2000. Est-ce que tu connais un moyen d'utiliser la fonction pastespecial ou à défaut une solution de contournement pour avoir toute ma range exportée dans powerpoint ?

Merci pour ton aide !

Code:

---

1 2 3 4 5 6

With pwpt.ActiveWindow .View.gotoslide Index:=myNumSlide .View.PasteSpecial ppPasteEnhancedMetafile end with End With

---

(je précise que j'ai défini la variable ppPasteEnhancedMetafile = 2 dans mon module)

Bon, pour ceux que ça intéresse, après quelques tests le problème résidait dans l'utilisation de screenupdating = false. Pour une raison mystérieuse (sous Excel 2000) cette instruction empechait le copypicture en bitmap...

A+