Excel -> powerpoint : collage special ?

[cricrichs]

Bonjour,
je travaille sur une présentation powerpoint faite de 20 graphiques générés sous Excel (grace à pleins d'astuces trouvées sur le forum d'ailleurs ! :kiss🙂.

Mon souci est qu'avec 20 graphiques transférés, mon fichier powerpoint destination pèse 1 tonne (ou plutôt 20 mégas).

Est-ce que qqu'un sait comment faire un 'collage spécial/ métafichier amélioré' en vba.

Ci joint mon code dans excel.

Merci d'avance !

Sub Graphique_XLtoPpt()
'necessite d'activer la reference Microsoft Powerpoint Object Library

Dim PPT As PowerPoint.application
Dim PptDoc As PowerPoint.Presentation
Dim NbShpe As Byte
Dim FILE, ONGLET, GRAPH As String
Dim NOMACTIVESHEET As String

Dim NOMACTIVESHEET As String
Set PPT = CreateObject('Powerpoint.Application') 'creation session PowerPoint
PPT.Visible = True

NOMACTIVESHEET = Cells(29, 16).Value
FILE = Sheets(NOMACTIVESHEET).Cells(2, 4).Value
Set PptDoc = PPT.Presentations.Open(FILE) 'ouverture fichier ppt

NBOCCURENCES = WorksheetFunction.CountA(Range('$B$8:$B$27'))

For i = 1 To NBOCCURENCES
Sheets(ONGLET).ChartObjects(GRAPH).Copy 'copie
PptDoc.Slides(SLIDE).Shapes.Paste 'collage dans le Slide du document Power Point
Next

PptDoc.Save
PptDoc.Close

End Sub

 

[MichelXld]

bonsoir

je n'ai pas testé mais tu pourrais essayer une procedure de style

PptDoc.Slides(SLIDE).Shapes.PasteSpecial ppPasteMetafilePicture


bonne soiree
MichelXld

 

[cricrichs]

Ca colle bien mais le poids du fichier n'a pas diminué pour autant. :S
Comme si ça n'avait pas changé le type de collage en fait.

 

[Hellboy]

Bonjour a tous

Je vois mon Grand Frère est passé avant moi.

Je te donne une alternative similaire au cas.

        '    Le truc que j'avais employé( dans mon cas pour word), c'est que j'avais créé un Logo
        '    une autre forme que j'ai groupé avec le graphique ce qui faisais en sorte que le
        '    Graphique devenais une image. Alors je pouvais utiliser le code suivant.
            Worksheets(ONGLET).Shapes(GroupName).CopyPicture
            PptDoc.Slides(SLIDE).Shapes.PasteSpecial DataType:=ppPasteMetafilePicture
        '    Tu peux prendre une autre méthode, qui consiste a exporter ton Graphique en tant qu'image
        '    Pour ensuite l'importer. Je connais le bout de code pour l'exporter, mais je ne sais pas comment
        '    l'importer encore.

a+

peut être que ppPasteGIF, serait plus légé que metafile

Message édité par: Hellboy, à: 07/11/2005 18:07

 

[cricrichs]

il ne prend pas ton code exactement comme ça : il me dit ne pas reconnaitre le PasteSpecial.
En utilisant uniquement 'Worksheets(ONGLET).Shapes(GroupName).CopyPicture' le transfert se fait en qques secondes (au lieu de 10 vraies bonnes minutes avant et le poids est divisé par 25!

PAR CONTRE : mes graphiques, qui sont des objets dans des feuilles Excels, sont rognés en partie dans ppt quand ils sont 'trops grands'. Savez-vous comment résoudre ce souci ?


Merci !

 

[Hellboy]

re cricrichs, et bonjour MichelXLD

Tu serais en mesure de joindre ton fichier. Suit le lien ds ma signature. Si ton fichier est trop gros(> 50K), si il est > 50 et < 500K passe ce site gratuit: http://cjoint.com/ sinon, passe par cette adresse: master_phil_007@hotmail.com.

a+