Untitled
unknown
vbscript
2 years ago
706 B
4
Indexable
```vba Sub CreateEthicalHackingPresentation() Dim pptApp As PowerPoint.Application Dim pptPres As PowerPoint.Presentation Dim pptSlide As PowerPoint.Slide Dim pptLayout As PowerPoint.CustomLayout Dim pptShape As PowerPoint.Shape ' Create a new PowerPoint instance Set pptApp = New PowerPoint.Application pptApp.Visible = True ' Create a new presentation Set pptPres = pptApp.Presentations.Add ' Set the layout for the slides Set pptLayout = pptPres.Designs(1).SlideMaster.CustomLayouts(1) ' Add slide 1 Set pptSlide = pptPres.Slides.AddSlide(1, pptLayout) Set pptShape = pptSlide.Shapes.Title pptShape.TextFrame.TextRange.Text = "Ethical
Editor is loading...