Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
using mappoint in Excel VB
I am trying to call this routine to publish a list of pushpins in mappoint.
The application was compiled in VB and works fine, but I want to tie it to my data in a seamless application and to change a couple of variables like the radius size and the background color. Can anyone tell me how to call this app in VB for Excel? Sub mappoint() Option Explicit Dim MpApp As mappoint.Application Dim Map As mappoint.Map Private Sub Command1_Click() Dim DS As mappoint.DataSet Dim RS As mappoint.Recordset Set DS = Map.DataSets.Item("My Pushpins") Set RS = DS.QueryAllRecords Do Until oRS.EOF Dim oShp As mappoint.Shape Set oShp = Map.Shapes.AddShape(geoShapeRadius, _ RS.Location, 7, 7) Shp.ZOrder geoSendBehindRoads Shp.Line.Visible = False Shp.SizeVisible = False Shp.Fill.ForeColor = vbBlue ohp.Fill.Visible = True RS.MoveNext Loop End Sub Private Sub Form_Load() ' Try to attach to running instance of MapPoint On Error Resume Next Set MpApp = GetObject(, "MapPoint.Application") On Error GoTo 0 If MpApp Is Nothing Then ' Attaching failed - try creating an object On Error Resume Next Set MpApp = CreateObject("MapPoint.Application") On Error GoTo 0 If MpApp Is Nothing Then MsgBox "Could not create MapPoint object" End End If ' make the app visible MpApp.Visible = True End If ' Ensure MapPoint survives when app terminates MpApp.UserControl = True ' Retrieve the active map Set Map = MpApp.ActiveMap End Sub End Sub Thanks -- Mike |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Excel to MapPoint datamap | Excel Discussion (Misc queries) | |||
Excel Versions Compatible with Mappoint 2009? | Excel Discussion (Misc queries) | |||
Insert PDF from MapPoint into Excel or Word | Excel Discussion (Misc queries) | |||
how do I integrate MapPoint into Excel? | Excel Discussion (Misc queries) | |||
Uninstall of mappoint has caused errors with excel | Excel Discussion (Misc queries) |