Breaking News: Grepper is joining You.com. Read the official announcement!

vba

Oye VICKS answered on December 14, 2023 Popularity 1/10 Helpfulness 1/10

answer vba

vba

Comment

Sub CreateBasicPPT()
    ' Declare variables
    Dim pptApp As Object
    Dim pptPres As Object
    Dim slideIndex As Integer
    
    ' Create a new instance of PowerPoint
    Set pptApp = CreateObject("PowerPoint.Application")
    pptApp.Visible = True ' Show PowerPoint application
    
    ' Create a new presentation
    Set pptPres = pptApp.Presentations.Add
    
    ' Add a title slide
    slideIndex = slideIndex + 1
    With pptPres.Slides.Add(slideIndex, ppLayoutTitle)
        .Shapes(1).TextFrame.TextRange.Text = "My Basic Presentation"
        .Shapes(2).TextFrame.TextRange.Text = "Subtitle"
    End With
    
    ' Add a content slide
    slideIndex = slideIndex + 1
    With pptPres.Slides.Add(slideIndex, ppLayoutText)
        .Shapes(1).TextFrame.TextRange.Text = "Introduction"
        .Shapes(2).TextFrame.TextRange.Text = "This is a basic PowerPoint presentation created using VBA."
    End With
    
    ' Release PowerPoint objects
    Set pptPres = Nothing
    Set pptApp = Nothing
End Sub

Popularity 1/10 Helpfulness 1/10 Language vb

Source: chat.openai.com

Tags: vba

Link to this answer
Share Copy Link

Contributed on Dec 14 2023

Oye VICKS

0 Answers Avg Quality 2/10

Continue with Google

By continuing, I agree that I have read and agree to Greppers's Terms of Service and Privacy Policy.

vba

Contents

More Related Answers

vba

Grepper

Documentation

Social

Legal

Contact

Oops, You will need to install Grepper and log-in to perform this action.