Discussion :

[Neodyme]

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 :

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

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 !

[SilkyRoad]

bonjour

Refait un essai en remplaçant

Code :

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

CopyPicture xlPrinter

par

Code :

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

CopyPicture xlScreen, xlBitmap

bonne journée
michel

[Neodyme]

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 :

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

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 :

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

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)

[Neodyme]

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+