Power Point Macro pour PowerPoint 2007

[Carphil]

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]

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]

Re : Macro pour PowerPoint 2007

Re

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

En attendant j'ai remplacé

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

par

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

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

par

    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]

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]

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