Untitled

mail@pastecode.io avatar
unknown
plain_text
a year ago
2.7 kB
1
Indexable
Never
Sub CreateWarsawUprisingPowerPoint()
    'Create a new PowerPoint presentation
    Dim PPTApp As PowerPoint.Application
    Dim PPTPresentation As PowerPoint.Presentation
    Set PPTApp = New PowerPoint.Application
    Set PPTPresentation = PPTApp.Presentations.Add
    
    'Add a title slide
    Dim TitleSlide As PowerPoint.Slide
    Set TitleSlide = PPTPresentation.Slides.Add(1, ppLayoutTitle)
    TitleSlide.Shapes.Title.TextFrame.TextRange.Text = "The Warsaw Uprising"
    
    'Add a slide with general information
    Dim GenInfoSlide As PowerPoint.Slide
    Set GenInfoSlide = PPTPresentation.Slides.Add(2, ppLayoutText)
    GenInfoSlide.Shapes.Title.TextFrame.TextRange.Text = "General Information"
    GenInfoSlide.Shapes.Placeholders(2).TextFrame.TextRange.Text = "The Warsaw Uprising was a major World War II operation, in which the Polish resistance Home Army attempted to liberate Warsaw from Nazi German occupation. The uprising began on August 1, 1944, and lasted for 63 days, until the Polish resistance surrendered on October 2, 1944. The Warsaw Uprising was one of the largest and most significant acts of resistance during World War II."
    
    'Add a slide with the causes of the uprising
    Dim CausesSlide As PowerPoint.Slide
    Set CausesSlide = PPTPresentation.Slides.Add(3, ppLayoutText)
    CausesSlide.Shapes.Title.TextFrame.TextRange.Text = "Causes of the Uprising"
    CausesSlide.Shapes.Placeholders(2).TextFrame.TextRange.Text = "The Warsaw Uprising was a response to the brutal occupation of Poland by Nazi Germany during World War II. The Polish resistance had been preparing for an uprising for months, and the decision to launch the operation was made after the Soviet Red Army stopped its advance on the eastern bank of the Vistula River, leaving the city of Warsaw to face the full might of the German army alone."
    
    'Add a slide with the course of the uprising
    Dim CourseSlide As PowerPoint.Slide
    Set CourseSlide = PPTPresentation.Slides.Add(4, ppLayoutText)
    CourseSlide.Shapes.Title.TextFrame.TextRange.Text = "Course of the Uprising"
    CourseSlide.Shapes.Placeholders(2).TextFrame.TextRange.Text = "The Warsaw Uprising began on August 1, 1944, with the aim of liberating the city from Nazi occupation. The Polish resistance forces quickly took control of many parts of the city, but the German army soon launched a brutal counterattack. The fighting was intense and street-by-street, and the Polish resistance faced overwhelming odds. After 63 days of fighting, the Polish resistance was forced to surrender on October 2, 1944. The Warsaw Uprising was one of the largest and most significant acts of resistance during World War