Store and Apply position of an Object

charm · #1 10-31-2014, 01:18 AM

Hello VBA experts,

I had a very tough time repositioning objects on the slides so that they all look at same place on all slides. Just wondering if it is possible with VBA. However I am new to VBA programming.

Is it possible to store the position (x,y coordinate) of selected object with a macro1 and apply it on any other object on any other slide by running macro2??

Thanks in advance.
Charm

JohnWilson · #2 10-31-2014, 01:30 AM

Not difficult in vba but Steve Rindsberg has a free addin that will do this and more

http://www.pptools.com/starterset/index.html

charm · #3 10-31-2014, 03:37 AM

Hi John,

I tried to download the demo version, but my anti virus is not allowing me to do so...

Thanks anyway.

Cheers,
Charm

JohnWilson · #4 10-31-2014, 05:20 AM

Maybe you need to think about changing the virus checker! Starter Set doesn't really have a demo there's a free version so are you sure you went to the correct place. I know the PPTools people and can vouch for them as safe.

To do it yourself:

Code:

Dim sngL As Single
Dim sngT As Single

Sub PickUpPosition()
On Error GoTo err
With ActiveWindow.Selection.ShapeRange(1)
sngL = .Left
sngT = .Top
End With
Exit Sub
err:
MsgBox "There's an error maybe you didn't select a shape", vbCritical
End Sub

Sub ApplyPosition()
On Error GoTo err
With ActiveWindow.Selection.ShapeRange(1)
.Left = sngL
.Top = sngT
End With
Exit Sub
err:
MsgBox "There's an error maybe you didn't select a shape", vbCritical
End Sub

charm · #5 10-31-2014, 05:39 AM

Thanks so much for the code, John...

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
How do I store themes?	Katarina	Word	1	05-22-2014 05:14 AM
Placing the same object/picture on all pages but on alternative (mirror position) -	alceste	Drawing and Graphics	1	09-29-2013 06:28 PM
Store the code	ubns	Misc	1	05-01-2012 01:55 AM
parse, store and email a .tmp file from wordpad?	scadaman29325	Office	0	09-28-2010 04:56 PM
Problem: object library invalid or contains references to object definitions	aligahk06	Office	0	08-19-2010 12:29 PM