This project is read-only.

change point type on drawing layer in VBA

Feb 26, 2012 at 10:50 PM


I'm new to MapWinGIS, so forget me fo asking trivial questions.
I'm using MapWinGIS inside MS Excel 2003. I need to draw points from cell values. I avoid creating a shapefile for doing it, and I directly draw the points on a draw layer:


Dim draw_hndl As Integer, size As Long
Dim x1 As Double, y1 As Double
x1 = 650000
y1 = 4830000
size = 10
draw_hndl = Map1.NewDrawing(MapWinGIS.tkDrawReferenceList.dlSpatiallyReferencedList)
Map1.DrawPoint x1, y1, size, RGB(0, 0, 255)	

I would like to change the point type, e.g. using the tkPointType enumeration, but I can't figure out how to do it.
I have considered the set_ShapePointType and the set_UDPointType, using the "draw_hndl", but these subroutines aren't available in my Map1 object (they're not listed by the code completion).

Do I have to follow a different way to add point with different pointtypes to my map?