Bonjour Michel, le Forum

Est-ce que il y a la possibilité d'activer la vue aérienne, comme les Zoom?
Qu'elle est la  ligne de code?

A+

Re Michel,

j'ai trouvé ceci sur Msdn.

1. C#

   // Scroll method for the Zoom trackbar control.
   private void zoomTrackBar_Scroll(object sender, EventArgs e)
   {
       webBrowserMap.Document.InvokeScript("SetMapZoomLevel", new object[] { zoomTrackBar.Value });
   }
   
   // Adding the CheckedChanged Event method.
   private void rdRoad_CheckedChanged(object sender, EventArgs e)
   {
       webBrowserMap.Document.InvokeScript("SetMapStyle", new object[] { "r" });
   }
   
   // Adding the CheckedChanged Event method.
   private void rdAerial_CheckedChanged(object sender, EventArgs e)
   {
       webBrowserMap.Document.InvokeScript("SetMapStyle", new object[] { "a" });
   }
   
   // Adding the CheckedChanged Event method.
   private void rdHybrid_CheckedChanged(object sender, EventArgs e)
   {
       webBrowserMap.Document.InvokeScript("SetMapStyle", new object[] { "h" });
   }
   
   

2. JScript

   function SetMapZoomLevel(zoomLevel)
   {
       map.SetZoomLevel(zoomLevel);
   }
   
   function SetMapStyle(mapStyle)
   {
       map.SetMapStyle(mapStyle);
   }
   

mais je ne sais pas comment modifier le code (Vue aérienne). Et j'aimerais l'avoir directement sur un bouton, au lieu d'une checkbox.


A+ 

Bonsoir Didier, Le Forum.

Tout d'abord, toutes mes excuses pour les précendents messages. Je ne sais pas pourquoi j'ai écrit Michel et je ne t'ais pas remercié pour l'excellent tuto que tu as fais sur Virtual Earth.

Voici une adaptation sur une feuille Excel pour les Versions 2007 et 2010.

Mode d'emploi:

Ne pas modifier les boutons d'options, laissez-les tel-quels.

Faites la recherche, ensuite vous pouvez cliquez sur le bouton Page d'impression, pour pouvoir imprimer l'itinéraire. Pour revenir sur la page par défaut de Virtual Earth, cliquez sur  le bouton << Page.

Petit incovénient: il se peut que, suivant les résolutions d'écran, les lignes soient décalées. Il faudra alors modifier dans le Module Md_GH, celles-ci en gras:

If cel = "" Then cel.Delete
 End If
 Feuil2.[A51:A60].Copy Feuil1.[F8]
 Feuil1.optKms = True
 Feuil1.chkNav = True
 Next cel

lien: ICI

A bientôt.

Bonjour Jacky, le Forum,

A ce jour, je n'ai plus suffisamment de dispo pour me consacrer à nouveau sur ce projet et, à vrai dire, comme je l'ai précisé à plusieurs reprises sur le présent site (ICI ou LA par exemple), l'exploitation que je fais de l'API BingMap (ex- Virtual Earth) relève plus de JavaScript que d'Excel et VBA. On s'éloigne du véritable sujet du site...

Pour ne pas te laisser cette fois sans réponse et tenter de répondre à ton interrogation, la piste à suivre pour activer la vue aérienne me semble être sous ce lien :
MSDN Microsoft : méthode SetMapStyle de la classe VEMap
L'exemple Javascript donné me semble suffisamment explicit pour pouvoir être exploité via VBA.

D'une manière générale, tu devrais trouver l'ensemble des méthodes utiles pour satisfaire tes expérimentations.

Par ailleurs, il est toujours de bon ton de préciser dans les messages la source de tes travaux et tests.
Aussi, même si tu as quand même laissé l'info et un lien dans ton fichier (ce qui est bien !), je précise aux visiteurs que ton classeur est basé partiellement sur un travail de Lone-wolf sur le site Excel-Downloads. (sans doute connais-tu )

Rappeler l'auteur d'un travail est toujours un signe de respect pour le travail accompli et partagé, et donc, un moyen de le remercier (quoi qu'en pensent certains... ).

Ensuite, et pour info seulement, je précise que ton fichier fait appel, pour la partie itinéraires, non pas à l'API BingMap de Microsoft (d'où sont issus mes travaux), mais à l'API GoogleMap.

Cordialement,

Bonsoir Didier,

hier j'ai répondu à ton message, mais j'ai du faire une fausse manip vu qu'il n'est pas passé.

Je te remercie d'avoir répondu et j'aurais juste une dernière question concernant ceci:

dans & "shape.SetDescription('" & nom & "');", comment inserer une nouvelle ligne? .

J'ai chercher dans les liens que tu as mis, mais j'ai rien trouvé, vu qu'en plus, l'anglais n'est pas vraiment mon fort.


A bientôt.