Untitled

 avatar
unknown
plain_text
2 years ago
3.1 kB
0
Indexable
Sub CreateTrendsAndFashionSlides()
    ' Create a new PowerPoint presentation
    Dim ppt As PowerPoint.Application
    Dim pres As PowerPoint.Presentation
    Set ppt = New PowerPoint.Application
    Set pres = ppt.Presentations.Add(msoTrue)
    
    ' Set slide dimensions and background color
    pres.PageSetup.SlideWidth = 720
    pres.PageSetup.SlideHeight = 540
    pres.SlideMaster.Background.Fill.ForeColor.RGB = RGB(235, 235, 235)
    
    ' Add title slide
    Dim slide As PowerPoint.Slide
    Set slide = pres.Slides.Add(1, ppLayoutTitleOnly)
    slide.Shapes.Title.TextFrame.TextRange.Text = "Trends and Fashion"
    
    ' Add trend slide 1
    Set slide = pres.Slides.Add(2, ppLayoutPictureWithCaption)
    slide.Shapes.Title.TextFrame.TextRange.Text = "Vintage Clothing"
    slide.Shapes.Placeholders(2).Select
    ppt.ActiveWindow.Selection.ShapeRange.Fill.UserPicture "C:\Users\Username\Pictures\trend1.jpg"
    slide.Shapes.Placeholders(1).TextFrame.TextRange.Text = "Vintage clothing is making a comeback with the rise of sustainable fashion."
    
    ' Add trend slide 2
    Set slide = pres.Slides.Add(3, ppLayoutPictureWithCaption)
    slide.Shapes.Title.TextFrame.TextRange.Text = "Chunky Sneakers"
    slide.Shapes.Placeholders(2).Select
    ppt.ActiveWindow.Selection.ShapeRange.Fill.UserPicture "C:\Users\Username\Pictures\trend2.jpg"
    slide.Shapes.Placeholders(1).TextFrame.TextRange.Text = "Chunky sneakers are a popular trend in streetwear fashion."
    
    ' Add trend slide 3
    Set slide = pres.Slides.Add(4, ppLayoutPictureWithCaption)
    slide.Shapes.Title.TextFrame.TextRange.Text = "Oversized Blazers"
    slide.Shapes.Placeholders(2).Select
    ppt.ActiveWindow.Selection.ShapeRange.Fill.UserPicture "C:\Users\Username\Pictures\trend3.jpg"
    slide.Shapes.Placeholders(1).TextFrame.TextRange.Text = "Oversized blazers are a versatile fashion trend that can be dressed up or down."
    
    ' Add trend slide 4
    Set slide = pres.Slides.Add(5, ppLayoutPictureWithCaption)
    slide.Shapes.Title.TextFrame.TextRange.Text = "Athleisure"
    slide.Shapes.Placeholders(2).Select
    ppt.ActiveWindow.Selection.ShapeRange.Fill.UserPicture "C:\Users\Username\Pictures\trend4.jpg"
    slide.Shapes.Placeholders(1).TextFrame.TextRange.Text = "Athleisure wear combines comfort and style for a trendy, casual look."
    
    ' Add trend slide 5
    Set slide = pres.Slides.Add(6, ppLayoutPictureWithCaption)
    slide.Shapes.Title.TextFrame.TextRange.Text = "Bold Prints"
    slide.Shapes.Placeholders(2).Select
    ppt.ActiveWindow.Selection.ShapeRange.Fill.UserPicture "C:\Users\Username\Pictures\trend5.jpg"
    slide.Shapes.Placeholders(1).TextFrame.TextRange.Text = "Bold prints, such as animal prints and florals, add a fun and lively touch to fashion."
    
    ' Add fashion slide 1
    Set slide = pres.Slides.Add(7, ppLayoutPictureWithCaption)
    slide.Shapes.Title.TextFrame.TextRange.Text = "Classic Pieces"
    slide.Shapes.Placeholders(2).Select
    ppt.ActiveWindow.Selection.ShapeRange.Fill.UserPicture "C:\
Editor is loading...