Install Steam
login
|
language
简体中文 (Simplified Chinese)
繁體中文 (Traditional Chinese)
日本語 (Japanese)
한국어 (Korean)
ไทย (Thai)
Български (Bulgarian)
Čeština (Czech)
Dansk (Danish)
Deutsch (German)
Español - España (Spanish - Spain)
Español - Latinoamérica (Spanish - Latin America)
Ελληνικά (Greek)
Français (French)
Italiano (Italian)
Bahasa Indonesia (Indonesian)
Magyar (Hungarian)
Nederlands (Dutch)
Norsk (Norwegian)
Polski (Polish)
Português (Portuguese - Portugal)
Português - Brasil (Portuguese - Brazil)
Română (Romanian)
Русский (Russian)
Suomi (Finnish)
Svenska (Swedish)
Türkçe (Turkish)
Tiếng Việt (Vietnamese)
Українська (Ukrainian)
Report a translation problem
Dim pptApp As Object
Dim pptPresentation As Object
Dim pptSlide As Object
Dim slideIndex As Integer
' Create a new PowerPoint application
Set pptApp = CreateObject("PowerPoint.Application")
pptApp.Visible = True
' Create a new presentation
Set pptPresentation = pptApp.Presentations.Add
' Slide 1: Title Slide
slideIndex = 1
Set pptSlide = pptPresentation.Slides.Add(slideIndex, ppLayoutTitle)
pptSlide.Shapes(1).TextFrame.TextRange.Text = "Security and Patrol Vessel"
pptSlide.Shapes(2).TextFrame.TextRange.Text = "An Overview"
' Slide 2: Introduction
slideIndex = slideIndex + 1
Set pptSlide = pptPresentation.Slides.Add(slideIndex, ppLayoutText)
pptSlide.Shapes(1).TextFrame.TextRange.Text = "Introduction"
pptSlide.Shapes(2).TextFrame.TextRange.Text = "Security and patrol vessels play a critical