Exporting mappoint map into power point

Help,

I need to export a map I created in mappoint into power point or any microsoft picture format.

I havn't been able to accomblish this task.

Can any one help?

Thanks

Gwheeler

Havent tried it, but I reckon you need a picture control and then something like:

Dim oUtil As New MapPoint.MapPointUtilities
Picture1.Picture = oUtil.GetPictureFromObject(oMap)
SavePicture Picture1.Picture, "<filename>"

would at least get the image into a file that you could use.

HTH

M.

Or, a quick and dirty way is to send to as picture. Copy the picture from the email, then paste it into powerpoint.

Probably the best way is from the File menu, select Save as Web Page.

Choose a suitable size for the map (max is 3500x3500), and ultimatley you will end up with a folder that amongst other things contains a file called image_map.gif.

You can then import or insert this GIF file into whatever application you like.

I am in the same boat, and have been trying to get a programatic solution to this. For some reason the GetPictureFromObject method only copies data from the map after it has been saved.

Picture box only saves to bmp format, which is somewhat lame. I have been trying to use ImagXpress to load the image and save it to JPG or GIF, but I am still stuck with the original problem of not being able to get the map image out when I want to.

Can we get a real programatic answer other than "FILE SAVE AS"

Here is my 2 cents

(Sample is VB6)
Make sure you have a Picture ctrl and make the visible = flase also make the autosize = true
Put this code in a command button.
In PowerPoint all you need to do is "Paste"

Dim objmap As MapPointCtl.Map
Dim objSW As MapPoint.SavedWebPage
Set objmap = MappointControl1.ActiveMap
Set objSW = objmap.SavedWebPages.Add(App.Path & "\SavedWeb", , "MapPoint Map", _
True, False, False, 1200, 800, False, False, False, False)
objSW.Save

Clipboard.Clear
Picture1.AutoRedraw = -1
Picture1.Picture = LoadPicture(App.Path & "\SavedWeb_files\image_map.gif")
Clipboard.SetData Picture1.Image, 2

In MapPoint try left clicking anywhere on your map to highlight it.

Edit menu, click copy.


In PowerPoint or Word click your pointer where you want your map to be placed.

Edit menu, click Paste Special,
follow by clicking Device Independant Bitmap-ok

This should bring the legend as well.

Stephen Kilbee