Add chevron to a slide

[Rathish]

Hi Need a help,
Is there any way i can insert a chevron similar to rectangle in the given below code. and what is the syntax to adjust the node.

Please help


Sub rad_est()
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes.AddShape(Type:=msoShapeRectangle, _
Top:=144, Left:=144, Width:=72, Height:=72)

End With


End Sub


Regards
Rathish

[John Wilson]

Try this (adjust the adjustment number to suit (a number up to 1)

Sub rad_est()
Dim oshp As Shape
Dim osld As Slide
Set osld = ActivePresentation.Slides(1)
Set oshp = osld.Shapes.AddShape(Type:=msoShapeChevron, _
Top:=144, Left:=144, Width:=72, Height:=72)
oshp.Adjustments(1) = 0.3
End Sub

And I know the "myDocument" comes straight from Microsoft but a Slide is NOT a Document!

[Rathish]

Gr8.... Thanks John....
I was searching for putting a chevron for some time but found no where. So copied the insert shape macro for refernce.

Also Would say thanks to you as whenever i stuck you helped me and gave me a light to move forward...... I am a designer and looking to create Macros so that my team will get help.



Thanks once again from all of us....! Will disturb you again when i stuck......