Store and Apply position of an Object

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

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