MapForums

Anonymous · #1 (**permalink**) 02-23-2005

Is it possible to change the symbol for multiple pushpins simultaneously?

For example: If I placed 50 apples and 50 oranges in different locations on a map and then imported that map from MapPoint into Pocket, all of my produce will share the same pushpin symbol. How can I select all of the apples and change the symbol for each so as to tell them apart from the oranges.

Jeurink · #2 (**permalink**) 02-24-2005

Hi,

you can add your pushpins to a data set or a pushpin set.

From MS: Working with Pushpins in the MapPoint object model (you can find it in the MSDN)

Quote:

Whether Pushpins are created by the user or by calling the AddPushpin method, they are added to the default Pushpin set named My Pushpins. A Pushpin set is a DataSet object that doesn't have imported or linked fields. DataSet objects, including Pushpin sets, are listed in the map legend and are accessible in the object model through the DataSets collection.

You can create new Pushpin sets by calling the AddPushpinSet method. To add Pushpins to the new set, first create them with the AddPushpin method, and then move them to the new set using the MoveTo method. Pushpins created by the AddPushpin method can be moved to other Pushpin sets but not to imported or linked sets. If you attempt to move a Pushpin to an incompatible data set, the MoveTo method returns False. If the move was successful, it returns True. A Pushpin can belong to only one set at a time.

Sub NewPushpinSet()
Dim oMap As MapPoint.Map
Set oMap = GetObject(, "MapPoint.Application").ActiveMap

Dim oPPSet As MapPoint.DataSet
Dim oPin As MapPoint.Pushpin
Dim oDS As MapPoint.DataSets

Set oPin = oMap.AddPushpin(oMap.FindResults( _
"Space Needle, Seattle, WA")(1))

Set oDS = oMap.DataSets
Set oPPSet = oMap.DataSets.AddPushpinSet("Deliveries")
oPin.MoveTo oPPSet
End Sub
When this code runs, you end up with two Pushpin sets: the My Pushpins set created automatically by the AddPushpin method and the Deliveries set created by the call to the AddPushpinSet method.

You can remove Pushpin sets the same way that you do any other set by using the Delete method on the DataSet object. See About mapping data with the MapPoint object model for more information.

and with this code:

Code:

Sub ChangePushpinSymbol()
    Dim objApp As New MapPoint.Application
    Dim objDataSet As MapPoint.DataSet

    Set objDataSet = objApp.OpenMap(objApp.Path & "\Samples\Clients.ptm").DataSets("Clients")
    objApp.Visible = True
    objApp.UserControl = True

    'Change the symbol of the current data set
    objDataSet.Symbol = 224
  End Sub

you can change the symbol of the data set

Anonymous · #3 (**permalink**) 02-24-2005

Jeurink,

I may not have been clear enough in the initial explanation of my problem.

I am attempting to simulteneously change multiple pushpin symbols in Pocket Streets.

Does Pocket Streets offer the pushpin functionality that you kindly detailed in your previous posting?

Thanks

Jeurink · #4 (**permalink**) 02-24-2005

Hi Ropa,

is it about programmaticly changing the symbols after they are imported into pocket streets?

I don't know the interface for Pocket Streets, and after a few quick searches I'm wondering if it is posible automate Pocket streets... ?

In normal MapPoint you can right click your pushpin set and then go to propoperties and set a symbol for the whole set, but i'm afraid you already know that...

Anonymous · #5 (**permalink**) 02-25-2005

Jeurink,

Yes I am trying to programmaticly change multiple pushpins in Pocket Streets.

I am beginning to think that what I am attempting to do is impossible in the 2005 version of pocket streets.

Do you know of another forum devoted specifically to Pocket Streets?

Thanks.

Jeurink · #6 (**permalink**) 02-28-2005

Hi,

No sorry, I've just started with MapPoint 2004, I don't know a lot about it.

Succes with your search.

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Having trouble getting symbols to match MapPoint's symbols	BobFromBoston	MapPoint 2006/2009 Discussion	1	05-07-2006 02:06 PM
Custom Pushpins symbols	mionut	MapPoint 2006/2009 Discussion	1	11-18-2005 11:24 AM
Changing Multiple Pushpins Simultaneously In Pocket Streets	Anonymous	MapPoint 2006/2009 Discussion	1	03-08-2005 03:31 PM
Changing Multiple Pushpins Simultaneously in Pocket Streets.	Anonymous	MapPoint 2006/2009 Discussion	0	03-04-2005 12:33 PM
Connect pushpins and then remove the symbols?	Anonymous	MapPoint 2006/2009 Discussion	4	08-03-2004 03:25 AM

MapForums

Changing symbols of multiple pushpins.

Changing symbols of multiple pushpins.

Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)

Similar Threads

MapForums

Changing symbols of multiple pushpins.

Changing symbols of multiple pushpins.

Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)

Similar Threads