A Drawing Problem

[Trentoes]

Hey guys,
I'm currently undertaking a project where I have to use VBE for Excel (which I'm not too familiar with). So the problem is... I've created a box (just a normal rectangle) for a graph and I have to draw scaled tick on... ie. marks for the axis' every increment. This is the suggested form...

Private Sub DrawScales()
If the distance increment is greater than zero Then
DrawDistScale distincrement
End If

If the elevation increment is greater than zero Then
DrawElevScale elevincrement
End If
End Sub

Does anyone know how to do this? I've attached the excel file so you can see what's going on... Just scroll down to the above section... Your help is greatly appreciated! Cheers,
Trent

 

[ck1999]

Try this

Private Sub DrawScales()

dblDistTick = frmProfile.txtDistTick.Value
dblElevTick = frmProfile.txtElevTick.Value
Dim dclicks
Dim eclicks
Dim counter
Dim yloc
dclicks = (frmProfile.txtDistMax.Value - frmProfile.txtDistMin.Value) / frmProfile.txtDistTick

yloc = MARGIN_TOP + PROF_HEIGHT
If dclicks > 1 Then

For counter = 1 To Application.WorksheetFunction.RoundUp(dclicks, 0)
If counter * frmProfile.txtDistTick * xScale <= PROF_WIDTH Then
With ActiveSheet.Shapes.BuildFreeform(msoEditingAuto, MARGIN_LEFT + counter * frmProfile.txtDistTick * xScale, yloc)
.AddNodes msoSegmentLine, msoEditingAuto, MARGIN_LEFT + counter * frmProfile.txtDistTick * xScale, yloc + 10
.ConvertToShape.Select
End With
Selection.ShapeRange.Line.Weight = 1.75
End If
Next counter

End If

If dblElevTick > 0 Then
' Please insert subprogram here
End If
End Sub

For your distance ticks. You can use the same type of code for the y ticks.

How come you are not using a chart?

ck1999