Instalar Steam
iniciar sesión
|
idioma
简体中文 (Chino simplificado)
繁體中文 (Chino tradicional)
日本語 (Japonés)
한국어 (Coreano)
ไทย (Tailandés)
български (Búlgaro)
Čeština (Checo)
Dansk (Danés)
Deutsch (Alemán)
English (Inglés)
Español - España
Ελληνικά (Griego)
Français (Francés)
Italiano
Bahasa Indonesia (indonesio)
Magyar (Húngaro)
Nederlands (Holandés)
Norsk (Noruego)
Polski (Polaco)
Português (Portugués de Portugal)
Português - Brasil (Portugués - Brasil)
Română (Rumano)
Русский (Ruso)
Suomi (Finés)
Svenska (Sueco)
Türkçe (Turco)
Tiếng Việt (Vietnamita)
Українська (Ucraniano)
Informar de un error de traducción
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