AnnMove example for Access 2.0

Note: This topic is for Document/Medical only.

This example moves one or more selected annotation objects.

'Declare local variables.
Dim DeltaX, DeltaY

'Use twips. 
Me![LEAD1].Object.ScaleMode = 1

'Specify arbitrary delta values. 
DeltaX = +2000 
DeltaY = -2000

'Move the selected annotations.
Me![LEAD1].Object.AnnMove DeltaX, DeltaY, True