• Skip to main content
  • Skip to primary sidebar
  • Skip to footer

bVisual

  • Home
  • Services
    • How Visio smartness can help your business
    • Visio visual in Power BI
    • Visio Consulting Services
    • Visio Bureau Services
    • Visio Training and Support Services
  • Products
    • Visio Shape Report Converter
    • SS Plus
    • LayerManager
    • visViewer
    • Metro Icons
    • Rules Tools for Visio
    • The Visio 2010 Sessions App
    • Multi-Language Text for Visio
    • Document Imager for Visio
    • multiSelect for Visio
    • pdSelect for Visio
  • Case Studies
    • Case studies overview
    • Visualizing Construction Project Schedules
    • Visio Online Business Process Mapping
    • Nexans Visio Template
    • CNEE Projects, WorldCom
    • Chase Manhattan Bank
  • News
    • Recent news
    • News archive
  • Resources
    • Articles➡
      • ShapeSheet Functions A-Z
      • Comparing Visio for the Web and Desktop
      • Customising Visio Shapes for the Web App
      • Key differences between the Visio desktop and web apps
      • Using the Visio Data Visualizer in Excel
      • Using Visio in Teams
      • Creating Visio Tabs and Apps for Teams with SharePoint Framework (SPFx)
      • Designing Power Automate Flows with Microsoft Visio
      • Innovative uses of Visio Lists
    • Webcasts ➡
      • Visio in Organizations
      • My session and other Visio sessions at MSIgnite 2019
      • Power up your Visio diagrams
      • Vision up your Visio diagrams
      • The Visio 2010 MVP Sessions
    • Visio Web Learning Resources
    • Books➡
      • Mastering Data Visualization with Microsoft Visio
      • Microsoft Visio Business Process Diagramming and Validation
      • Visualizing Information with Microsoft Visio
  • Blog
    • Browse blog articles
    • Visio Power BI articles
    • Visio for Web articles
    • A history of messaging and encryption
  • About us
    • About bVisual
    • Testimonials
    • Bio of David Parker
    • Contact Us
    • Website Privacy Policy
    • Website terms and conditions
    • Ariba Network
You are here: Home / Visio / Visio 2010 / Calibrating a Map in Visio

Published on May 26, 2015 by David Parker

Calibrating a Map in Visio

Many years ago, I wrote a blog article about calibrating a map in Visio ( see http://blog.bvisual.net/2008/09/30/moving-between-visio-and-kml/ ), but I used VBA and a shape from my friend Chris Roth / VisGuy. Well, I have now worked out how to calibrate a map without code!

This could be especially useful now that MapPoint has been deprecated

image

I have created a single LL Marker master shape that does all of the work for me.

The simple graphics provides a cross-hair to locate the shape accurately on top of a map.

image

As usual with Visio, the smartness is in the ShapeSheet, :

image

For clarity, the formulas are as follows:

CellFormula
User.LLTrigger=IF(AND(NOT(Prop.Latitude=0),Prop.Position=1),
SETF(GetRef(ThePage!User.LLPosition1Lat),
Prop.Latitude)+
SETF(GetRef(ThePage!User.LLPosition1Lon),
Prop.Longitude)+
SETF(GetRef(ThePage!User.LLPosition1X),PinX)+
SETF(GetRef(ThePage!User.LLPosition1Y),PinY),
IF(AND(NOT(Prop.Latitude=0),Prop.Position=2),
SETF(GetRef(ThePage!User.LLPosition2Lat),
Prop.Latitude)+
SETF(GetRef(ThePage!User.LLPosition2Lon),
Prop.Longitude)+
SETF(GetRef(ThePage!User.LLPosition2X),PinX)+
SETF(GetRef(ThePage!User.LLPosition2Y),PinY),0))
User.LLNameTrigger=IF(ISERRVALUE(OR(INT(INDEX(0,Prop.LLName,”,”)),
INT(INDEX(1,Prop.LLName,”,”)))),0,
IF(OR(NOT(Prop.Latitude=INDEX(0,Prop.LLName,”,”)),
NOT(Prop.Longitude=INDEX(1,Prop.LLName,”,”))),
SETF(GetRef(Prop.Latitude),INDEX(0,Prop.LLName,”,”))+
SETF(GetRef(Prop.Longitude),INDEX(1,Prop.LLName,”,”)),0))
User.LLPositionTrigger=IF(AND(NOT(ThePage!User.LLPosition1Lon=ThePage!User.LLPosition2Lon),Prop.Position=0),
SETF(GetRef(Prop.Longitude),ThePage!User.LLPosition1Lon+(((PinX-ThePage!User.LLPosition1X)/
(ThePage!User.LLPosition1X-ThePage!User.LLPosition2X))*(ThePage!User.LLPosition1Lon-ThePage!User.LLPosition2Lon)))+
SETF(GetRef(Prop.Latitude),ThePage!User.LLPosition1Lat+
(((PinY-ThePage!User.LLPosition1Y)/
(ThePage!User.LLPosition1Y-ThePage!User.LLPosition2Y))*
(ThePage!User.LLPosition1Lat-ThePage!User.LLPosition2Lat)))+
SETF(GetRef(Prop.LLName),
“=Prop.Latitude&””,””&Prop.Longitude”),0)
Hyperlink.BingMaps.Address=”http://www.bing.com/maps/”
Hyperlink.BingMap.ExtraInfo=”lvl=11&sp=Point.”&Prop.Latitude&”_”&
Prop.Longitude&”_”&NAME()

This is all possible because of some User-defined cells were added to the page of the master:

image

When this master shaped is dropped on a page, then all of these User-defined cells will get copied to the page because they are referred to in the formulas of shape.

So, to calibrate the map (and indeed the whole Visio page), just two points are needed. Choose an easily recognisable feature on the map, such as a major road junction, and place an LL Marker shape.

image

Find the same feature in Bing Maps, right mouse click it to reveal the popup, and copy the Lat \ Lon text.

image

Paste the Lat / Lon text into the same named Shape Data row of the LL Marker shape in Visio, and change the Position to value = 1.

image

Then find another feature near the opposite corner of the map image, and copy its Lat / Lon text.

image

Paste the text again into a second LL Marker shape in the same position in Visio, and change the Position to 2.

image

Now, when any another LL Marker shapes are added, then they will automatically provide their Latitude and Longitude values

image

That is it. The whole Visio page is now calibrated to the map.

As proof, the LL Marker shape has a hyperlink to open Bing Maps ….

image

Bing Maps will be opened, and a marker dropped at the selected location:

image

Next time, I will use this calibrated map to drop data points in the correct locations automatically.

The example Visio 2013 document can be downloaded from LL Marker Example.vsdx

And Visio 2010- format from : LL Marker Example.vsd

Related

Filed Under: Bing Maps, Visio 2010, Visio 2013 Tagged With: Shape Data, ShapeSheet Functions

About David Parker

David Parker has 25 years' experience of providing data visualization solutions to companies around the globe. He is a Microsoft MVP and Visio expert.

Reader Interactions

Comments

  1. Surrogate™ says

    May 27, 2015 at 9:56 am

    Hi David !
    Can you add this example in not Visio2013 format? Thank you !

    Reply
    • davidjpp says

      May 27, 2015 at 10:35 am

      I have added a link to a pre-Visio 2013 file at the bottom of the article

      Reply
  2. Thomas Bohan says

    March 23, 2021 at 9:21 am

    Hi David

    I was just clicking on the link for the 2003 file – http://1drv.ms/1Ky3DG6
    and I get the following error:
    {“error”:{“code”:”generalException”,”message”:”General Exception While Processing”}}

    Is that Visio file still available please?

    Reply
    • David Parker says

      March 23, 2021 at 12:24 pm

      Hi Thomas,
      I have updated the links … thanks for the heads up.

      Reply

Trackbacks

  1. Distributing Data Points Automatically on Maps in Visio | bVisual - for people interested in Microsoft Visio says:
    May 27, 2015 at 8:23 am

    […] Calibrating a Map in Visio […]

    Reply
  2. Filter Visio External Data to Drop Shapes | bVisual - for people interested in Microsoft Visio says:
    May 28, 2015 at 9:57 pm

    […] Calibrating a Map in Visio […]

    Reply

Leave a Reply Cancel reply

Your email address will not be published. Required fields are marked *

Primary Sidebar

  • LinkedIn
  • Twitter

Recent Posts

  • Update to LayerManager add-in for non-English users
  • Pushing Data Visualizer in Visio beyond its limits
  • Pushing Data Visualizer in Visio to the limits!
  • Teams Tuesday Podcast Recording about Visio
  • Linking Data to Visio Shapes in Code

Categories

Tags

Accessibility Add-Ins Connectors Containers Data Export Data Graphics Data Import Data Visualizer Educational Excel GraphDatabase Hyperlinks Icon Sets JavaScript Layers Legend Link Data to Shapes Lists MSIgnite MVP Office365 Org Chart PowerApps PowerBI PowerQuery Processes Shape Data Shape Design ShapeSheet ShapeSheet Functions SharePoint 2013 SQL Teams Themes Validation VBA Video Visio Visio 2007 Visio 2013 Visio for the Web Visio Online Visio Services Visio Viewer Webinar

Footer

bVisual Profile

The UK-based independent Visio consultancy with a worldwide reach. We have over 25 years experience of providing data visualization solutions to companies around the globe.

Learn more about bVisual

  • LinkedIn
  • Twitter

Search this website

Recent posts

  • Update to LayerManager add-in for non-English users
  • Pushing Data Visualizer in Visio beyond its limits
  • Pushing Data Visualizer in Visio to the limits!
  • Teams Tuesday Podcast Recording about Visio
  • Linking Data to Visio Shapes in Code

Copyright © 2023 · Executive Pro on Genesis Framework · WordPress · Log in