Generating PowerPoint from Access

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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top