Bonjour
Je suis un débutant, mais grace à ce forum, j'ai réussi à automatiser mon reporting.
En voulant simplifier mon code et utiliser des fonctions, je n'arrive plus à piloter powerpoint ...
Please help.
Mon code actuel :
Dim Sh As PowerPoint.Shape
Dim pptslide As PowerPoint.Slide
Dim NbShpe As Byte
Templates_Path_id = "D:\Template"
Set PPT = CreateObject("Powerpoint.Application") 'creation session PowerPoint
Set PptDoc = PPT.Presentations.Open(Filename:=Templates_Path_id & "\" & Template_Name, Untitled:=msoTrue)
Set pptslide = PptDoc.Slides.Add(3, ppLayoutBlank)
With PptDoc
Set Sh = .Slides(slide_position).Shapes.AddLabel(Orientation:=msoTextOrientationHorizontal, _
Left:=-40, Top:=360, Width:=300, Height:=60)
Sh.TextFrame.TextRange.Text = Titre
Sh.TextFrame.TextRange.Font.Color = RGB(255, 255, 255)
End With
Que je veux faire passer avec une fonction :
Call Titre_slide(Titre, 50, 100, slide_position)
Function Titre_slide(Titre As String, position_left As Integer, position_top As Integer, slide_position As Integer)
Dim presPPT As PowerPoint.Presentation
Dim Diapo As PowerPoint.Slide
Dim Forme As PowerPoint.Shape
With Diapo
Set Forme = .Slides(slide_position).Shapes.AddLabel(Orientation:=msoTextOrientationHorizontal,
Left:=500, Top:=10, Width:=300, Height:=60)
Sh.TextFrame.TextRange.Text = Titre
Sh.TextFrame.TextRange.Font.Color = RGB(255, 255, 255)
End With
End Function