Convert .ptm to .jpg

dkirk
04-22-2004, 02:47 PM
Can this be done? How

Syd
04-23-2004, 09:46 AM
You can do it with e.g. the Lead Tool Control.

hound
03-01-2005, 08:26 AM
Hi Syn,

I am trying to find a way to convert Map Point's .ptm file into a jpg or perhaps a .png file.

I picked up this old thread were you mentioned it was possible with
a "Lead Tool Control".

Can you tell me what this is and such informtion please?

Cheers

John Meyer
03-01-2005, 10:39 AM
No need to convert a ptm really. use the "SaveAs method" (use geoFormatHTMLMap) to save as a web page. It will generate a .gif of the map.

hound
03-01-2005, 02:04 PM
Thanks!
However, saving it as an html page, then saving this html image as a gif, only produces a 'screen shot' of the image, thus any zoom-in functionality becomes redundent.

John Meyer
03-01-2005, 02:32 PM
Your not saving it as an html page, then saving this html image as a gif.
I have no idea what you mean by "thus any zoom-in functionality becomes redundent" If you create a jpg or a gif of a map in mappoint there will not be any zooming, it will be a static graphic. I'm sure you know that so I dont know what you are saying?

Try this, save as a webpage interactivly using mappoint (from the
file menu click save as webpage) The gif file will be in the subfolder that is created based on the filename you provide. When you open the dialog to save as webpage you will see you can specify the size of the image.

or if you were doing it in code it might look like this:

Dim objApp As New MapPoint.Application
Dim objMap As MapPoint.Map
Dim objRoute As MapPoint.Route
Dim objSW As MapPoint.SavedWebPage

'Set up the application
Set objMap = objApp.ActiveMap
Set objRoute = objMap.ActiveRoute
objApp.Visible = True
objApp.UserControl = True

'Create a route
objRoute.Waypoints.Add objMap.FindResults("Seattle, WA").Item(1)
objRoute.Waypoints.Add objMap.FindResults("Redmond, WA").Item(1)
objRoute.Calculate

'Use SavedWebPages property to create a saved Web page
Set objSW = objMap.SavedWebPages.Add("SavedWeb", _
objRoute.Waypoints.Item(1).Location, "New Title", _
True, False, True, 760, 570, False, True, False, True)
objSW.Save

hound
03-03-2005, 06:10 AM
Got little confused in my description there.

What I was trying to get was a close-up image (with detail) of an extent, of a large area, say an area of a major city, which would result in a rather large file. Hence, I wished to learn how to convert the original map file to antoher format.

Thanks anyway.

 
Web mp2kmag.com
mapforums.com