Copie graphique Excel vers Powerpoint (incorporer classeur)
Bonjour
je cherche à copier des graphiques Excel vers Powerpoint par macros
j'arrive à le copier mais les données restent liées à la feuille Excel
je voudrais que chaque graphique soit indépendant de la feuille Excel (données incorporées dans le fichier PPT)
j'arrive à faire la copie à la main en choisissant "collage spécial incorporer le fichier Excel", mais je n'arrive pas à trouver le code VBA pour le faire (même en enregistrant la macro manuellement)
Si quelqu'un connaît l'option pour le code VBA, ça me ferait gagner un temps fou
===============
Sub NouvellePresentation()
Dim PptApp As PowerPoint.Application
Dim PptDoc As PowerPoint.Presentation
Dim Diapo As PowerPoint.Slide
Dim Sh As PowerPoint.Shape
Dim Cs1 As ColorScheme
Dim nbshpe As Integer
Dim Gr As Workbook
Set PptApp = CreateObject("Powerpoint.Application")
Set PptDoc = PptApp.Presentations.Add
With PptDoc
.Slides.Add Index:=1, Layout:=ppLayoutBlank
Set Sh = .Slides(1).Shapes.AddLabel(Orientation:=msoTextOrientationHorizontal, _
Left:=100, Top:=100, Width:=150, Height:=60)
Sh.TextFrame.TextRange.Text = Range("A1")
Sh.TextFrame.TextRange.Font.Color = RGB(255, 100, 255)
Set Diapo = .Slides.Add(Index:=2, Layout:=ppLayoutBlank)
'copie le 1er graphique contenu dans la feuille Excel active
ActiveSheet.ChartObjects(1).Copy
Diapo.Shapes.PasteSpecial
=================================================
=================================================
j'ai teste avec les options de PAsteSPecial et je ne trouve pas
================================================
================================================
nbshpe = Diapo.Shapes.Count
With Diapo.Shapes(nbshpe)
.Name = "monGraph" 'personnalise le nom
.Left = 150 'définit la position horizontale dans le slide
.Top = 100 'définit la position verticale dans le slide
.Height = 300 'hauteur
.Width = 400 'largeur
End With
PptDoc.SaveAs Filename:=ThisWorkbook.Path & "\" & "Eddie.pptx"
PptDoc.Close
PptApp.Quit
End Sub
======================
merci !
Eddie
Bonjour,
Je suis désolé de remonter ce message mais je suis toujours coincé sur mon problème
merci pour votre aide
Eddie