ShapeRange.IncrementTop method (Publisher)

Moves the specified shape or shape range vertically by the specified distance.

Syntax

expression.IncrementTop (Increment)

expression A variable that represents a ShapeRange object.

Parameters

Name	Required/Optional	Data type	Description
Increment	Required	Variant	The vertical distance to move the shape or shape range. A positive value moves the shape or shape range down; a negative value moves it up. Numeric values are evaluated in points; strings can be in any units supported by Microsoft Publisher (for example, "2.5 in").

Return value

Nothing

Remarks

Use the IncrementLeft method to move shapes or shape ranges horizontally.

Example

This example duplicates the first shape on the active publication, sets the fill for the duplicate, moves it 70 points to the right and 50 points up, and rotates it 30 degrees clockwise.

With ActiveDocument.Pages(1).Shapes(1).Duplicate 
 .Fill.PresetTextured PresetTexture:=msoTextureGranite 
 .IncrementLeft Increment:=70 
 .IncrementTop Increment:=-50 
 .IncrementRotation Increment:=30 
End With

Support and feedback

Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.