Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Global pp_Final As New Presentation ' No need for new word in XP
Global pp_Tools As Presentation ' This Presentation
Sub example
Dim sld_Temp As Slide 'tempoary slide
'create a new presentation
Set pp_Final = Application.Presentations.Add
'My actual code this is coming from contains a loop here which
'calls different elements and copies slides from another presentation inserting them
'into the new presentation, you will need to change the below to suit your needs
pp_Vert.Slides("sldifa").Copy 'this is the line that needs changing
pp_Final.Slides.Paste 'this is the paste
Set sld_Temp = pp_Final.Slides(2) ' number being the new slide i have bought in ' again change for needs
'Now we come to the tag!
sld_Temp.Tags.Add "Orient", "V" ' the V is the value im assigning to this tag
end sub
For Each var In pp_Final.Slides
debug.print var.Tags("Orient")
next