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

[Annaat29]

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
PowerPoint slides typically have specific placeholders (e.g., Title, Content, etc.), but the indexing for placeholders might not be consistent depending on the slide layout. For instance, you are using PowerPointSlide.Shapes.Placeholders(2) to access the content placeholder, which may not exist or may be in a different position depending on the layout used.

[John Wilson]

The problem (apart from ChatGPT being rubbish and creates very poor code) is you are adding a type 11 slider (Title ONLY. There is no Placeholder2) and it is bound to error when you try top adapt Placeholder (2). Try adding a type 7 - Content (or maybe type 2 text )

Example (do similar for 3 and 4 etc)


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

[Aussiebear]

Sorry to have troubled you on this thread John, but for the second time Annaat29 has posted with spam in the content, hence the saying "Elvis has left the building" when referring to Annaat29.