Rapport de message :*
 

Bing Maps API

Titre du sujet : Bing Maps API
par VisiteurXL le 08/08/2013 12:42:30

Bonjour,

 

Suite au tutoriel sur la Cartographie et la Localisation Géographique et au passage de 'Visual Earth' à 'Bing Maps' je souhaiterais réaliser le même genre d'application mais en utilisant le 'AJAX Control, Version 7.0' puisque c'est désormais celui-ci qui est recommandé.

 

J'ai utilisé pour la connexion:

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html>
   <head>
      <title></title>
      <meta http-equiv="Content-Type" content="text/html; charset=utf-8"/>

      <script type="text/javascript" src="http://ecn.dev.virtualearth.net/mapco ... "></script>

      <script type="text/javascript">

        function GetMap()
        {
			var map = new Microsoft.Maps.Map(document.getElementById("mapDiv"), {credentials:"******"});
        }
		
      </script>
   </head>
   
   <body onload="GetMap();"> 
      <div id='mapDiv' style="position:absolute; width:700px; height:700px;"></div>
   </body>
   
</html>

Et puis au niveau du 'Userform':

Option Explicit

Private Sub cmbCentrer_Click()
  EnvoiScript "map.setView({center: new Microsoft.Maps.Location(47, -122), zoom: 14, animate: false });"
End Sub

Private Sub UserForm_Initialize()
  wbrBrowser.Navigate ThisWorkbook.Path & "\connexion.html"
End Sub

Private Sub EnvoiScript(Js As String)
  wbrBrowser.Document.parentWindow.execScript Js, "Javascript"
End Sub

Mais sans succès. Cette méthode ne fonctionne pas.

Est-ce que quelqu'un aurait quelques pistes quant à l'utilisation du contrôle dans sa version 7.0 ?

 

Par avance merci