Steam installeren
inloggen
|
taal
简体中文 (Chinees, vereenvoudigd)
繁體中文 (Chinees, traditioneel)
日本語 (Japans)
한국어 (Koreaans)
ไทย (Thai)
Български (Bulgaars)
Čeština (Tsjechisch)
Dansk (Deens)
Deutsch (Duits)
English (Engels)
Español-España (Spaans - Spanje)
Español - Latinoamérica (Spaans - Latijns-Amerika)
Ελληνικά (Grieks)
Français (Frans)
Italiano (Italiaans)
Bahasa Indonesia (Indonesisch)
Magyar (Hongaars)
Norsk (Noors)
Polski (Pools)
Português (Portugees - Portugal)
Português - Brasil (Braziliaans-Portugees)
Română (Roemeens)
Русский (Russisch)
Suomi (Fins)
Svenska (Zweeds)
Türkçe (Turks)
Tiếng Việt (Vietnamees)
Українська (Oekraïens)
Een vertaalprobleem melden
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