Copier d'excel dans powerpoint

  • Initiateur de la discussion Initiateur de la discussion PATPAT
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

PATPAT

XLDnaute Nouveau
Bonjour,

J'avais une discussion en cours mais qui a été perdue dans l'incident du site. Je reprend donc là où j'en sui resté car il me reste encore un petit problème :

Je ressitue le problème :
Je voudrais exécuter, à partir d'une macro excel, un "copier" depuis excel et un "collage spécial image" dans powerpoint (nouvelle présentation .PPT).

Pour ce faire, on m'avait donné le bout de code suivant :

'necessite d'activer la reference Microsoft Powerpoint Object Library
Dim PPT As PowerPoint.Application
Dim PptDoc As PowerPoint.Presentation
Dim pptslide As PowerPoint.Slide
Dim NbShpe As Byte

Set PPT = CreateObject("Powerpoint.Application") 'creation session PowerPoint
PPT.Visible = True
Set PptDoc = PPT.Presentations.Add ' ("C:\maPresentation.ppt") 'ouverture fichier
Set pptslide = PptDoc.Slides.Add(1, ppLayoutBlank)


Feuil1.Range("A1:H10").Copy 'copie plage cellules de la feuille active
PptDoc.Slides(1).Shapes.Paste 'collage dans le Slide 2

'compte le nombre de shapes dans le 2eme slide
'le dernier objet inséré correspond à l'index le plus élevé
NbShpe = PptDoc.Slides(1).Shapes.Count

With PptDoc.Slides(1).Shapes(NbShpe)
.Name = "monTableau" 'personnaliser le nom de l'objet inséré
.Left = 150 'position horizontale dans le slide
.Top = 100 'position verticale dans le slide
.Height = 300 'hauteur image
.Width = 400 'largeur image
End With




Cela fonctionne sauf que ça ne fait pas un "collage spécial image" mais un "coller" classique. J'ai eu beau chercher différentes solutions en m'inspirant de ce code, mais je n'ai pas trouvé.

J'envoi donc un appel à l'aide pour faire un "collage spécial Image" dans PPT.

Par avance, merci !

P.S. : J'avais cherché à me connecter au forum ce WE, mais sans succès. Je disais bien qu'il y avait un problème. Merci à ceux qui ont oeuvrer pour le remettre en état. Beau travail !
 
Re : Copier d'excel dans powerpoint

Salut PatPat,

EssayeS avec la méthode :
Code:
PptDoc.Slides(1).Shapes.[B][COLOR=blue]PasteSpecial ppPasteMetafilePicture[/COLOR][/B]

Ca devrait te convenir 😉
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour