PowerPoint Slide from Template

[Forestq]

Hi,

I'm adding empty slide. Then I want to set Template (slide 6 from 4x3_Cool_Template.potx). But I dont know how to use it?

newPowerPoint.ActivePresentation.Slides.Add newPowerPoint.ActivePresentation.Slides.Count + 1, ppLayoutBlanknewPowerPoint.ActiveWindow.View.GotoSlide newPowerPoint.ActivePresentation.Slides.Count
Set activeSlide = newPowerPoint.ActivePresentation.Slides(newPowerPoint.ActivePresentation.Slides.Count)
activeSlide.ApplyTemplate "C:\Program Files (x86)\Microsoft Office\Templates\Cisco\4x3_Cool_Template.potx"

 

[mickmack84]

Have any luck with your question Forestq? I'm running into a similar issue trying to set the template for my newly created PPT.

 

[Forestq]

Hi,

I made empty formated template, I open it by vba and there I into selected slide I put all my charts and stats from excel file.
I can share the code if you want.

 

[mickmack84]

Yes, that would be great if you could share. Thanks a ton!

 

[Forestq]

here you go:

Application.DisplayAlerts = False
Application.ScreenUpdating = False

Dim wb As Workbook
Dim ws2, ws_SOP As Worksheet

Set wb = ActiveWorkbook
Set ws2 = wb.Worksheets("Sheet1")
Set ws_SOP = wb.Worksheets("Sheet2")

repored_period = ws_SOP.Range("B1").Value
theatr = ws_SOP.Range("B2").Value
filepathsave = ws_SOP.Range("B9").Value
file_template = ws_SOP.Range("B10").Value

Dim newPowerPoint As PowerPoint.Application
Dim activeSlide As PowerPoint.Slide
Dim cht As Excel.ChartObject
         
Set newPowerPoint = New PowerPoint.Application
newPowerPoint.Presentations.Open file_template

'********************************************* adding shapes
Set activeSlide = newPowerPoint.ActivePresentation.Slides(1)

activeSlide.Shapes.AddTextbox msoTextOrientationHorizontal, Left:=40, Top:=128, Width:=500, Height:=50
With activeSlide.Shapes(1).TextFrame
    .TextRange.Text = "TS Delivery Deck"
    .TextRange.Font.Color = RGB(255, 255, 254)
    .TextRange.Font.Name = "Arial (Headings)"
    .TextRange.Font.Size = 52
    .WordWrap = msoCTrue
End With
.
..
...
Set activeSlide = newPowerPoint.ActivePresentation.Slides(5)

ws2.Activate
ws2.ChartObjects("Chart 1").Chart.CopyPicture Appearance:=xlScreen, Size:=xlScreen, Format:=xlPicture
activeSlide.Shapes.Paste
        With activeSlide.Shapes(1)
            If .Type = msoPicture Then
                .Top = 60
                .Left = 20
                .Height = 200
                .Width = 200
            End If
        End With

ws2.Range("B20").CurrentRegion.Copy
activeSlide.Shapes.PasteSpecial ppPasteOLEObject
activeSlide.Shapes(4).Width = 500
activeSlide.Shapes(4).Height = 160
activeSlide.Shapes(4).Left = 40
activeSlide.Shapes(4).Top = 190
Application.CutCopyMode = False
.
..
...
newPowerPoint.ActivePresentation.SaveAs filepathsave & "\" & "your file name - " & theatr & " " & repored_period & ".pptx"
newPowerPoint.Quit

ws_SOP.Activate

Application.DisplayAlerts = True
Application.ScreenUpdating = True

 

[mickmack84]

That's great, thanks! Let me see if I can get this to work now.

Is there any way you could provide the workbooks as well? I'm having a tough time following the commands.

 

[mickmack84]

Is there any way you could also attach the workbook you're using? I'm having some trouble following the code at first glance. Thanks in advance.

 

[Forestq]

Provide me your email, i will sent it tomorow

 

[mickmack84]

Sent you a private message. Thanks in advance Forestq.

 

[Forestq]

sent