desenhar+com+vba

[|http://msdn.microsoft.com/en-us/library/aa175667(office.11).aspx] []l
 * Alguns Links e Bibliografia**

Sub Macro1

With myWS With .Shapes.AddLine(Xmin, Ymin, Xmax, Ymax).Line .EndArrowheadStyle = msoArrowheadTriangle .EndArrowheadLength = msoArrowheadLengthMedium .EndArrowheadWidth = msoArrowheadWidthMedium .Weight = 3# End With End With

End Sub