PowerPoint VB issue

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

Code:

---

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

---

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

Code:

---

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

---

The original looked like Excel macro recorder produced code :)

This is a little cleaner and includes John's fix

Code:

---

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

---

Quote:

---

Originally Posted by 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

Code:

---

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.

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)

Code:

---

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

---

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.