Moving the shape

Closed
mohmmad - May 15, 2015 at 01:39 PM
 Blocked Profile - May 15, 2015 at 05:14 PM
Hello,
i'm trying to moving the shape to page number 2 ,,, how i can do it ?

my code is

Option Explicit

Sub Document_Open()
Application.OnTime When:=Now + TimeValue("00:00:01"), Name:="ShapeMover"


End Sub

Sub ShapeMover()
Dim oSH As Shape

Beep

Set oSH = ActiveDocument.Shapes(1)


oSH.IncrementRotation 10


Application.OnTime When:=Now + TimeValue("00:00:01"), Name:="ShapeMover"
End Sub





1 reply

Blocked Profile
May 15, 2015 at 05:14 PM
Truly fascinating. Let us know what you are trying to accomplish and maybe we can wire frame a solution for you.

What language are you attempting? Is this VBA?

What error do you get when you run it?
0