ShapeRange.IncrementTop Method
Moves the specified shape range vertically by the specified number of points.
Namespace: Microsoft.Office.Interop.PowerPoint
Assembly: Microsoft.Office.Interop.PowerPoint (in Microsoft.Office.Interop.PowerPoint.dll)
Syntax
'Declaration
Sub IncrementTop ( _
Increment As Single _
)
'Usage
Dim instance As ShapeRange
Dim Increment As Single
instance.IncrementTop(Increment)
void IncrementTop(
float Increment
)
Parameters
- Increment
Type: System.Single
Specifies how far the shape range is to be moved vertically, in points. A positive value moves the shape range down; a negative value moves it up.
Examples
This example duplicates shape one on myDocument, sets the fill for the duplicate, moves it 70 points to the right and 50 points up, and rotates it 30 degrees clockwise.
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes(1).Duplicate
.Fill.PresetTextured msoTextureGranite
.IncrementLeft 70
.IncrementTop-50
.IncrementRotation 30
End With