Hi,

The user of a spreadsheet I created would like me to incorporate some
fancier graphics. As of now I'm using "Autoshape" trapezoids and rectangles
-- I was wondering if anyone knows where I can find more "fancy" graphics
which will allow me to set their size through a macro. Below is an example
of the clode I am using now:

Sub level3recresizedet()


Sheets("3rd Level Groundwater").Select

thirdrecsel.Select

If thirdrec = 0 Then
Selection.ShapeRange.Width = 124

Else

checkthirdrec = thirdrec 0 And thirdrec <= recvariable
If checkthirdrec = True Then
Selection.ShapeRange.Width = 137.7222222

Else

checkthirdrec = thirdrec recvariable And thirdrec <= 2 * recvariable
If checkthirdrec = True Then
Selection.ShapeRange.Width = 151.4444444


Any help is appreciated!

Robert