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