Power Point Macro pour PowerPoint 2007

Carphil · 22 Septembre 2014

Bonjour
Je suis à la recherche d'une macro pour power point 2007
Je voudrais copier le texte d'une case excel dans une zone texte de power point pour faire une présentation
J'ai 50 zones de texte à remplir correspondantes à autant de cases Excel
Je souhaite que cela se fasse en automatique car je risque d'avoir des modifications dans Excel.

Quelqu'un pourrai - t-il m'indiquer la démarche ou me dire si cette macro existe déjà

merci d'avance

chris · 6 Octobre 2014

Re : Macro pour PowerPoint 2007

Re

PpPasteDataType.ppPasteBitmap = 1
PpPasteDataType.ppPasteDefault = 0
PpPasteDataType.ppPasteEnhancedMetafile = 2
PpPasteDataType.ppPasteGIF = 4
PpPasteDataType.ppPasteHTML = 8
PpPasteDataType.ppPasteJPG = 5
PpPasteDataType.ppPasteMetafilePicture = 3
PpPasteDataType.ppPasteOLEObject = 10
PpPasteDataType.ppPastePNG = 6
PpPasteDataType.ppPasteRTF = 9
PpPasteDataType.ppPasteShape = 11
PpPasteDataType.ppPasteText = 7
MsoTriState.msoCTrue = 1
MsoTriState.msoFalse = 0
MsoTriState.msoTriStateMixed = -2
MsoTriState.msoTriStateToggle = -3
MsoTriState.msoTrue = -1

chris · 6 Octobre 2014

Re : Macro pour PowerPoint 2007

Re

Cela correspond à cette erreur excel vba - VBA Office2010 Shapes.PasteSpecial fails - Stack Overflow

En attendant j'ai remplacé

Code:

Set newShape = pptShape.Parent.Shapes.PasteSpecial(8, 0, , , , 0)(1)

par

Code:

Set newShape = pptShape.Parent.Shapes.PasteSpecial(2)

et cela fonctionne avec les tableaux sous forme image ou dessin. A noter que seul les types 2, 3 et 10 ne plantent pas.

Edit :

Donc pour toutes versions remplacer

Code:

Set newShape = pptShape.Parent.Shapes.PasteSpecial(8, 0, , , , 0)(1)

par

Code:

    On Error Resume Next
        Set newShape = pptShape.Parent.Shapes.PasteSpecial(8, 0, , , , 0)(1)
        If newShape Is Nothing Then Set newShape = pptShape.Parent.Shapes.PasteSpecial(2) 
    On Error GoTo 0

mromain · 7 Octobre 2014

Re : Macro pour PowerPoint 2007

Bonjour Chris, Nono, le forum

Merci pour le retour

Je viens de mettre la main sur un PC avec Office 2010 et j’ai pu regarder. Effectivement, le problème semble venir lors du collage au format HTML (action qui ne pose aucun problème manuellement…).
Comme tu l’as préconisé, si le collage au format HTML ne fonctionne pas, on colle au format image. On perd le moyen d’éditer manuellement le tableau après coup, mais au moins la macro ne plante plus ici.

Du coup, je vais éditer mon message précédent avec une nouvelle version du fichier intégrant cette modification.

Merci encore et bonne journée !

Excel_Dynamo · 2 Janvier 2019

J'ai récupéré et légèrement modifier la macro (ci-jointe: XLSX2PPTX) écrite par "mromain" pour avoir une Macro relativement générique pour me générer des rapports en powertpoint

Merci

Power Point Macro pour PowerPoint 2007

Carphil

XLDnaute Nouveau

chris

XLDnaute Barbatruc

chris

XLDnaute Barbatruc

mromain

XLDnaute Barbatruc

Excel_Dynamo

XLDnaute Nouveau

Pièces jointes

Discussions similaires