Adjustments Object Example

This example draws a block arrow on the sheet, and then modifies the dimensions of the arrow head:

Sub

AddArrow()

Dim oShp As Shape

'Add an arrow head to the sheet

Set oShp = ActiveSheet.Shapes.AddShape( _

msoShapeRightArrow, 10, 10, 100,

50)

'Set the 'head' of the arrow to start 3 0% of the

way across

'and the 'shaft' to start 40% of the way down.

oShp.Adjustments(l) = 0.3 'Left/right

oShp.Adjustments(2) = 0.4 'Up/down

End

Sub

0 0

Post a comment