#1
|
|||
|
|||
Store and Apply position of an Object
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 |
#2
|
|||
|
|||
Not difficult in vba but Steve Rindsberg has a free addin that will do this and more
http://www.pptools.com/starterset/index.html |
#3
|
|||
|
|||
Hi John,
I tried to download the demo version, but my anti virus is not allowing me to do so... Thanks anyway. Cheers, Charm |
#4
|
|||
|
|||
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 |
#5
|
|||
|
|||
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 |