|
|
#11
01-16-2015, 09:10 AM
|
|||
|
|||
This is how to modify Steve's code. I'll leave you to incorporate it as a little exercise!
Sub SuperDuper() Dim oSh As ShapeRange Dim x As Long Set oSh = ActivePresentation.Slides(2).Shapes.Range oSh.Copy For x = 3 To ActivePresentation.Slides.Count ActivePresentation.Slides(x).Shapes.Paste Next End Sub 
|
|
|
Similar Threads
|
||||
| Thread | Thread Starter | Forum | Replies | Last Post |
 macro, data import from the ONLY text file in current folder
|
ue418 | Excel Programming | 5 | 10-28-2017 12:52 PM |
| Import from .CUB files in MS Access | vamsikrishnad | Office | 0 | 12-30-2014 03:19 AM |
| Import msg-files to Outlook | Jeff10 | Outlook | 0 | 01-19-2013 10:56 AM |
|
Import Multiple XML Files
|
TallKewlOnez | Excel Programming | 1 | 04-09-2012 05:19 PM |
| How might I group a bunch of text boxes without getting a space around the edge? | Augusta | PowerPoint | 0 | 08-25-2011 01:42 AM |
Windows 7 64bit 
Office 2010 32bit
Threaded Mode