PowerPoint VB issue

[hannas3]

Hi all

I've done a lot of Excel VB but only just starting with VB in PowerPoint. A colleague had the following VB created by Chat GPT (no really!) so no idea if it's just rubbish or if it just needs a minor tweak. When we run the code, it brings up a run time error at the line in bold, below. It creates the title slide and the first content slide but goes no further; unfortunately I have no PPT VB knowledge, so don't know if this should work! TIA


Sub CreatePrescribingConsiderationsDeck()
Dim PowerPointApp As Object
Dim PowerPointPres As Object
Dim PowerPointSlide As Object

' Create a new PowerPoint application
Set PowerPointApp = CreateObject("PowerPoint.Application")
PowerPointApp.Visible = True

' Create a new PowerPoint presentation
Set PowerPointPres = PowerPointApp.Presentations.Add

' Add a title slide
Set PowerPointSlide = PowerPointPres.Slides.Add(1, 1)
PowerPointSlide.Shapes.Title.TextFrame.TextRange.Text = "Prescribing Considerations in Older People"

' Add content slide - Problems with Polypharmacy
Set PowerPointSlide = PowerPointPres.Slides.Add(2, 11)
PowerPointSlide.Shapes.Title.TextFrame.TextRange.Text = "Problems with Polypharmacy"
PowerPointSlide.Shapes.Placeholders(2).TextFrame.TextRange.Text = "Polypharmacy, the use of multiple medications, can pose significant challenges in older people:"
PowerPointSlide.Shapes.Placeholders(2).TextFrame.TextRange.Text = PowerPointSlide.Shapes.Placeholders(2).TextFrame.TextRange.Text & vbCrLf & "- Increased risk of drug interactions"
PowerPointSlide.Shapes.Placeholders(2).TextFrame.TextRange.Text = PowerPointSlide.Shapes.Placeholders(2).TextFrame.TextRange.Text & vbCrLf & "- Higher likelihood of medication non-adherence"
PowerPointSlide.Shapes.Placeholders(2).TextFrame.TextRange.Text = PowerPointSlide.Shapes.Placeholders(2).TextFrame.TextRange.Text & vbCrLf & "- Increased potential for adverse drug reactions"

' Add content slide - Cholinergic Burden
Set PowerPointSlide = PowerPointPres.Slides.Add(3, 11)
PowerPointSlide.Shapes.Title.TextFrame.TextRange.Text = "Cholinergic Burden"
PowerPointSlide.Shapes.Placeholders(2).TextFrame.TextRange.Text = "Cholinergic burden refers to the cumulative effect of medications with anticholinergic properties. In older people:"
PowerPointSlide.Shapes.Placeholders(2).TextFrame.TextRange.Text = PowerPointSlide.Shapes.Placeholders(2).TextFrame.TextRange.Text & vbCrLf & "- Anticholinergic medications can contribute to cognitive impairment, falls, and delirium"
PowerPointSlide.Shapes.Placeholders(2).TextFrame.TextRange.Text = PowerPointSlide.Shapes.Placeholders(2).TextFrame.TextRange.Text & vbCrLf & "- Assess the cholinergic burden when prescribing medications"
PowerPointSlide.Shapes.Placeholders(2).TextFrame.TextRange.Text = PowerPointSlide.Shapes.Placeholders(2).TextFrame.TextRange.Text & vbCrLf & "- Consider non-pharmacological alternatives when appropriate"

' Add content slide - Pain Management
Set PowerPointSlide = PowerPointPres.Slides.Add(4, 11)
PowerPointSlide.Shapes.Title.TextFrame.TextRange.Text = "Pain Management"
PowerPointSlide.Shapes.Placeholders(2).TextFrame.TextRange.Text = "Pain management in older people requires careful consideration:"
PowerPointSlide.Shapes.Placeholders(2).TextFrame.TextRange.Text = PowerPointSlide.Shapes.Placeholders(2).TextFrame.TextRange.Text & vbCrLf & "- Balance the need for effective pain relief with the risk of adverse effects"
PowerPointSlide.Shapes.Placeholders(2).TextFrame.TextRange.Text = PowerPointSlide.Shapes.Placeholders(2).TextFrame.TextRange.Text & vbCrLf & "- Consider individualized approaches based on pain intensity, comorbidities, and functional status"
PowerPointSlide.Shapes.Placeholders(2).TextFrame.TextRange.Text = PowerPointSlide.Shapes.Placeholders(2).TextFrame.TextRange.Text & vbCrLf & "- Non-pharmacological interventions, such as physical therapy or heat/cold therapy, should be explored"

' Save the PowerPoint presentation
PowerPointPres.SaveAs "H:\PrescribingConsiderations.pptx"

' Close the PowerPoint application
PowerPointApp.Quit

' Release the PowerPoint objects from memory
Set PowerPointSlide = Nothing
Set PowerPointPres = Nothing
Set PowerPointApp = Nothing

MsgBox "PowerPoint deck created successfully!"
End Sub

[John Wilson]

It is pretty bad coding but the initial problem is:

Set PowerPointSlide = PowerPointPres.Slides.Add(2, 11)

This adds a type 11 slide at number 2 (the other similar lines do the same,

THE PROBLEM IS type 11 is title only so there is no second placeholder. As a quick fix try type 2


Set PowerPointSlide = PowerPointPres.Slides.Add(2, 2) etc

[Paul_Hossler]

The original looked like Excel macro recorder produced code :)

This is a little cleaner and includes John's fix




Option Explicit


Sub CreatePrescribingConsiderationsDeck()
Dim PowerPointPres As Object

' Create a new PowerPoint presentation
Set PowerPointPres = Application.Presentations.Add

' Add a title slide
With PowerPointPres.Slides.Add(1, ppLayoutTitle)
.Shapes.Title.TextFrame.TextRange.Text = "Prescribing Considerations in Older People"
End With

' Add content slide - Problems with Polypharmacy
With PowerPointPres.Slides.Add(2, ppLayoutText)
.Shapes(ppPlaceholderTitle).TextFrame.TextRange.Text = "Problems with Polypharmacy"
.Shapes.Placeholders(ppPlaceholderBody).TextFrame.TextRange.Text = _
"Polypharmacy, the use of multiple medications, can pose significant challenges in older people:" & vbCrLf & _
"- Increased risk of drug interactions" & vbCrLf & _
"- Higher likelihood of medication non-adherence" & vbCrLf & _
"- Increased potential for adverse drug reactions"
End With

' Add content slide - Cholinergic Burden
With PowerPointPres.Slides.Add(3, ppLayoutText)
.Shapes(ppPlaceholderTitle).TextFrame.TextRange.Text = "Cholinergic Burden"
.Shapes(ppPlaceholderBody).TextFrame.TextRange.Text = _
"Cholinergic burden refers to the cumulative effect of medications with anticholinergic properties. In older people:" & vbCrLf & _
"- Anticholinergic medications can contribute to cognitive impairment, falls, and delirium" & vbCrLf & _
"- Assess the cholinergic burden when prescribing medications" & vbCrLf & _
"- Consider non-pharmacological alternatives when appropriate"
End With

' Add content slide - Pain Management
With PowerPointPres.Slides.Add(4, ppLayoutText)
.Shapes(ppPlaceholderTitle).TextFrame.TextRange.Text = "Pain Management"
.Shapes(ppPlaceholderBody).TextFrame.TextRange.Text = _
"Pain management in older people requires careful consideration:" & vbCrLf & _
"- Balance the need for effective pain relief with the risk of adverse effects" & vbCrLf & _
"- Consider individualized approaches based on pain intensity, comorbidities, and functional status" & vbCrLf & _
"- Non-pharmacological interventions, such as physical therapy or heat/cold therapy, should be explored"
End With

' Save the PowerPoint presentation
' PowerPointPres.SaveAs "H:\PrescribingConsiderations.pptx"
'
' ' Close the PowerPoint application
' PowerPointApp.Quit
'
' ' Release the PowerPoint objects from memory
' Set PowerPointSlide = Nothing
' Set PowerPointPres = Nothing
' Set PowerPointApp = Nothing

MsgBox "PowerPoint deck created successfully!"
End Sub