PowerPoint Macro to paste at a fixed location

Question

0.00/5 (No votes)

See more:

Hi, I need to write a PowerPoint VB macro to paste the same image on all my slides (inserting it on the Master slide does not work as it remains in the background and gets overlaid with large pictures in the foreground).

I have found (and adapted) the following snippet:

VB

Sub SuperDuper()
    Dim x As Long

    For x = 1 To ActivePresentation.Slides.Count
        ActivePresentation.Slides(x).Shapes.Paste
    Next

End Sub

it does execute the Paste operation, but the pasting location changes from slide to slide. How can I fix this ?

Posted 7-Oct-13 4:01am

YvesDaoust

Add a Solution

2 solutions

Solution 2

Here is my final, cleaned-up script. Very simple once you know the recipe:

VB

Sub PasteToAll()
    For i = 1 To ActivePresentation.Slides.Count
        Set MyRange = ActivePresentation.Slides(i).Shapes.Paste
        MyRange(1).Left = 100
        MyRange(1).Top = 100
    Next
End Sub

Posted 7-Oct-13 4:56am

YvesDaoust

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

ZurdoDev · Accepted Answer · 2013-10-07T04:45:00

Solution 1

I have used this code:

VB

ActiveWindow.View.Paste
ActiveWindow.Selection.ShapeRange(1).Name = shapeName
With NewPres.Slides(SlideNumber).Shapes(shapeName)
    .Height = gridHeight
    .Width = gridWidth
    .Left = gridLeft
    .Top = gridTop
    .ZOrder gridZOrder
End With

After it pastes it is still selected so you can then give it a name and reference it that way and set it's various properties.

Posted 7-Oct-13 4:45am

ZurdoDev

Comments

YvesDaoust 7-Oct-13 10:57am

Thanks for the suggestion

ZurdoDev 7-Oct-13 11:10am

No problem.

YvesDaoust 7-Oct-13 11:22am

I assume (not tested) that you can do without naming the shape:
With ActiveWindow.Selection.ShapeRange(1)
...
End With

ZurdoDev 7-Oct-13 11:30am

Likely. I was using it more in the code later so I did, but yes, I believe that would also work.