View Single Post
  #2 (permalink)  
Old February 19th, 2004, 07:22 PM
virtualdave virtualdave is offline
Authorized User
 
Join Date: Feb 2004
Location: Sacramento, CA, USA.
Posts: 18
Thanks: 0
Thanked 0 Times in 0 Posts
Default

You'll have to instance and work with the line object. Something like this:
    With myWS
        'Draw the distance axis
        With .Shapes.AddLine(Xmin, Ymin, Xmin, Ymax).Line
            .EndArrowheadStyle = msoArrowheadTriangle
            .EndArrowheadLength = msoArrowheadLengthMedium
            .EndArrowheadWidth = msoArrowheadWidthMedium
            .Weight = 3#
        End With
    End With
will draw a single line that has an arrow head. You will need to pass it the four points to draw your rectangle. You could also use a polyline or "shape" and pass its ordinates.

Dave
Reply With Quote