View Single Post

  #6 (permalink)  
Old 03-01-2005
John Meyer's Avatar
John Meyer John Meyer is offline
Senior Member
Blue Belt
 
Join Date: Jul 2002
Posts: 479
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:

Code:
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
__________________
John
http://www.support-pc.com

Order MapPoint 2006 Here
https://secure.mp2kmag.com/?refer=support-PC
Reply With Quote