Untitled
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...