|
This will only change the pushpin if it is highlighted.
Dim objDataSet As MapPointCtl.DataSet
Dim objmap As MapPointCtl.Map
Dim objRecordset As MapPointCtl.Recordset
Set objmap = MPC.ActiveMap
For Each objDataSet In objmap.DataSets
If InStr(objDataSet.Name, "My Pushpins") Then
Set objRecordset = objDataSet.QueryAllRecords
'objDataSet.ZoomTo
Do Until objRecordset.EOF
If objRecordset.Pushpin.Highlight = True Then
objRecordset.Pushpin.Symbol = 20
End if
objRecordset.MoveNext
Loop
End If
Next |