Copie graphique Excel vers Powerpoint (incorporer classeur)

-1

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
		Diapo.Shapes.PasteSpecial

J'ai testé 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

Posté le 2 décembre 2016, 16:15
par Eddie69003
Répondre
0

pourquoi tu ne colles pas ton graphique en tant qu'image ??

Tom Posté le 6 décembre 2016, 12:46
par Tom
-1

Je ne peux pas coller mes graphiques en image

Mon client souhaite pouvoir modifier les graphiques sans que les données soit liées au fichier excel source

Le but final de cette macro : j'ai 40 produits, je crée un fichier PPT de 60 slides par produit

Le responsable de chaque produit aura la possibilité de modifier ou mettre en forme ses graphiques

Eddie


Posté le 7 décembre 2016, 10:40
  • ah d'accord, désolé mes connaissances en VBA sont nulles. – Tom 12 décembre 2016, 13:56

Si vous n'êtes pas inscrit sur le site, vous pouvez poster librement (en tant qu'invité).
Pour cela, indiquez un pseudonyme (nom d'utilisateur) et une adresse email :