Copy slide then insert Text

Nick70 · #1 06-07-2016, 09:47 AM

Hi,

I have some code that looks for a specific slide (ie.slide 2) in a Presentation (eg. PresentationA.pptx) then copies it into the active Presentation (eg. PresentationB.pptx) in a specific order (ie. in slide 12).

Code:

Sub Copy()
Dim objPres As Presentation
Dim i As Integer
Dim target As Presentation
Set target = ActivePresentation
src = Array(2)                                       ' source position
tgt = Array(12)                                      ' target position
Set objPres = Presentations.Open("C:\Users\PresentationA.pptx") 'target file
For i = LBound(src) To UBound(src)
    objPres.Slides(src(i)).Copy
    target.Slides.Paste tgt(i)
    target.Slides(tgt(i)).Design = target.Slides(src(i)).Design
Next i
objPres.Close
End Sub

I would now like to insert some text in slide which has been copied so that when I look at PresentationB.pptx I can recognize it easily.

I was thinking of inserting a text saying "NEW" in bold red.

How can I amend my code so that once the slide is copied into PresentationB.pptx it will also have such text saying "NEW"?

Thanks,
Nic

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Insert 4/3 presentation on 16/9 slide	judithvg	PowerPoint	3	09-04-2015 12:02 AM
Need macro to copy object on slide 4 to current slide	djlee	PowerPoint	2	02-11-2015 10:37 AM
Lyric slide show - using a variable to pull text from next slide	elfman12	PowerPoint	3	03-08-2013 12:27 AM
Text typed on slide x ports to slide y automatically?	Thinker	PowerPoint	5	07-26-2012 11:59 PM
slide image wont copy with text to new slide	lewis.mulhollen	PowerPoint	1	12-17-2011 03:17 AM