T
tiger
Hi,
I have two questions.
1.) How can I use a template for a PowerPoint generated through Access.
2.) I would like to insert a graphic or picture in the PowerPoint slides I
generated from Access with the code below.
Dim pptApp As PowerPoint.Application
Dim pptPres As PowerPoint.Presentation
Dim pptSld As PowerPoint.Slide
Set pptApp = New PowerPoint.Application
Set pptPres = pptApp.Presentations.Add
SetSld = pptPres.Slides.Add(1, ppLayoutText)
With pptSld.Shapes(1)
.TextFrame.TextRange.text = "Hey, I am here"
With .TextFrame.TextRange.Font
.Name = "Arial"
.Bold = True
.Italic = True
.Size = 28
End With
With .TextFrame.TextRange.ParagraphFormat
.Alignment = ppAlignLeft
End Wth
.Top = 0
End With
pptApp.Activate
pptApp.Visible = True
pptPres.SlideShowSettings.Run
Set pptApp = Nothing
Set pptPres = Nothing
Application.Screen.MousePointer = 0
I have two questions.
1.) How can I use a template for a PowerPoint generated through Access.
2.) I would like to insert a graphic or picture in the PowerPoint slides I
generated from Access with the code below.
Dim pptApp As PowerPoint.Application
Dim pptPres As PowerPoint.Presentation
Dim pptSld As PowerPoint.Slide
Set pptApp = New PowerPoint.Application
Set pptPres = pptApp.Presentations.Add
SetSld = pptPres.Slides.Add(1, ppLayoutText)
With pptSld.Shapes(1)
.TextFrame.TextRange.text = "Hey, I am here"
With .TextFrame.TextRange.Font
.Name = "Arial"
.Bold = True
.Italic = True
.Size = 28
End With
With .TextFrame.TextRange.ParagraphFormat
.Alignment = ppAlignLeft
End Wth
.Top = 0
End With
pptApp.Activate
pptApp.Visible = True
pptPres.SlideShowSettings.Run
Set pptApp = Nothing
Set pptPres = Nothing
Application.Screen.MousePointer = 0