Sub Test() Dim d As Document Dim s As Shape Dim b As Boolean Set d = ActiveDocument Set s = ActiveLayer.CreateEllipse2(4, 4, 2) b = d.ApplyToDuplicate ' store previous state d.ApplyToDuplicate = True s.Move 1, 0 d.ApplyToDuplicate = b ' restore stateEnd Sub