#1
|
|||
|
|||
Copy slide then insert Text
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 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 |
#2
|
|||
|
|||
It's not clear why you specified an Array but maybe there is code you are not showing.
If it's just slide 2 being inserted at 12 try this (not tested) Code:
Sub Copy() Dim newslide As SlideRange Dim pasteFrom As Long Dim pasteTo As Long Dim objPres As Presentation Dim i As Integer Dim target As Presentation Set target = ActivePresentation pasteFrom = 2 ' source position pasteTo = 12 ' target position 'Note I changed the Path Set objPres = Presentations.Open("C:\PresentationA.pptx") 'target file objPres.Slides(pasteFrom).Copy Set newslide = target.Slides.Paste(pasteTo) With newslide(1).Shapes.AddShape(msoShapeRectangle, 10, 10, 100, 20) .Fill.Visible = False .TextFrame.TextRange = "NEW" .TextFrame.TextRange.Font.Color.RGB = vbRed End With target.Slides(pasteTo).Design = target.Slides(pasteFrom).Design objPres.Close End Sub |
#3
|
|||
|
|||
Great thanks I will try this code.
Reason for the array is that I have to copy more than 1 slide (so the array) I put 1 to make simplify things. Thanks, Nic |
Thread Tools | |
Display Modes | |
|
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 |