J'ai écris le module VBA ci-dessous, qui me crée une diapo PPT et me copier
le graphique de ma feuille Excel dans ma diapo PPT mais je n'arrive pas à
centrer cette image dans le centre de ma diapo.
Sub test()
Dim PPApp As Object
Set PPApp = CreateObject("Powerpoint.Application")
ActiveWorkbook.Worksheets(1).Activate
With PPApp
.Presentations.Add
.Visible = True
.ActivePresentation.Slides.Add(1, 11).Select
With .ActiveWindow.Selection.SlideRange.Shapes
.Title.TextFrame.TextRange.Text = "Mon titre"
End With
ActiveWorkbook.Worksheets(1).Activate
ActiveWorkbook.ActiveSheet.ChartObjects.Select
Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture
With .ActiveWindow.Selection
.SlideRange.Shapes.Paste
End With
ActiveWorkbook.Worksheets(1).Activate
End With
End Sub
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
anonymousA
Bonjour,
Aucune idée mais n'y a t-il pas un forum ppt car ce que tu demandes me semble t-il relève du langage VBA de ppt qui a des méthodes et des propriétés différentes du VBA d'Excel , langage pour lequel ce forum est fait .
A+
Bonjour
J'ai écris le module VBA ci-dessous, qui me crée une diapo PPT et me copier le graphique de ma feuille Excel dans ma diapo PPT mais je n'arrive pas à centrer cette image dans le centre de ma diapo.
Sub test() Dim PPApp As Object
Set PPApp = CreateObject("Powerpoint.Application")
ActiveWorkbook.Worksheets(1).Activate With PPApp .Presentations.Add .Visible = True .ActivePresentation.Slides.Add(1, 11).Select With .ActiveWindow.Selection.SlideRange.Shapes .Title.TextFrame.TextRange.Text = "Mon titre" End With ActiveWorkbook.Worksheets(1).Activate ActiveWorkbook.ActiveSheet.ChartObjects.Select Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture With .ActiveWindow.Selection .SlideRange.Shapes.Paste End With ActiveWorkbook.Worksheets(1).Activate End With End Sub
Merci d'avance pour votre aide
Jean
Bonjour,
Aucune idée mais n'y a t-il pas un forum ppt car ce que tu demandes me
semble t-il relève du langage VBA de ppt qui a des méthodes et des
propriétés différentes du VBA d'Excel , langage pour lequel ce forum est
fait .
A+
Bonjour
J'ai écris le module VBA ci-dessous, qui me crée une diapo PPT et me copier
le graphique de ma feuille Excel dans ma diapo PPT mais je n'arrive pas à
centrer cette image dans le centre de ma diapo.
Sub test()
Dim PPApp As Object
Set PPApp = CreateObject("Powerpoint.Application")
ActiveWorkbook.Worksheets(1).Activate
With PPApp
.Presentations.Add
.Visible = True
.ActivePresentation.Slides.Add(1, 11).Select
With .ActiveWindow.Selection.SlideRange.Shapes
.Title.TextFrame.TextRange.Text = "Mon titre"
End With
ActiveWorkbook.Worksheets(1).Activate
ActiveWorkbook.ActiveSheet.ChartObjects.Select
Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture
With .ActiveWindow.Selection
.SlideRange.Shapes.Paste
End With
ActiveWorkbook.Worksheets(1).Activate
End With
End Sub
Aucune idée mais n'y a t-il pas un forum ppt car ce que tu demandes me semble t-il relève du langage VBA de ppt qui a des méthodes et des propriétés différentes du VBA d'Excel , langage pour lequel ce forum est fait .
A+
Bonjour
J'ai écris le module VBA ci-dessous, qui me crée une diapo PPT et me copier le graphique de ma feuille Excel dans ma diapo PPT mais je n'arrive pas à centrer cette image dans le centre de ma diapo.
Sub test() Dim PPApp As Object
Set PPApp = CreateObject("Powerpoint.Application")
ActiveWorkbook.Worksheets(1).Activate With PPApp .Presentations.Add .Visible = True .ActivePresentation.Slides.Add(1, 11).Select With .ActiveWindow.Selection.SlideRange.Shapes .Title.TextFrame.TextRange.Text = "Mon titre" End With ActiveWorkbook.Worksheets(1).Activate ActiveWorkbook.ActiveSheet.ChartObjects.Select Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture With .ActiveWindow.Selection .SlideRange.Shapes.Paste End With ActiveWorkbook.Worksheets(1).Activate End With End Sub
