VBAで経路を取得する地図を作成してみた



The following two tabs change content below.
アバター

taka

あることがキッカケでVBAを独学で勉強しました、今ではブログを通してVBAでできることを解説しつつ、VBAや他の言語の勉強、ブログ運営の勉強をしています(^^♪

どうも、taka(@takabou63)です(^^♪

さて、最近よく「YahooAPI」を使用した地図を趣味で作っていたりするわけですが、皆さんのお役に立てているのか正直不安な今日この頃・・・(笑)

さて、今回もそんなYahooAPIを使用して「経路を取得できる地図」を作成してみたという記事になります(^.^)
前にも『VBA YahooAPIを使って2つの場所の経路を取得してみた』という似たような記事を作成したのですが、あれは『画像の地図』だったんですよね(;・∀・)
なので表示される経路もなんかさみしい感じで、しかも動かすことができないので不便・・・

YahooAPI画像地図イメージ

YahooAP『I画像』地図イメージ

このように経路の部分しか地図も表示されないものでした。

なので今回は『VBAで住所録からアイコンを立てるマップを作成してみた』で使用したようなjavascriptを使用した地図を使って、VBAのユーザーフォーム上に経路地図を表示させてみます(‘ω’)

今回作成したVBA経路地図イメージ

今回作成したVBA経路地図イメージ

余りにもニッチな内容ですので読者の方が置いてけぼりにならないか心配ですがどうかお付き合いください(笑)

VBAで『Yahoo! JavaScriptマップAPI』を使用して経路地図を作る

毎度同じみ、この説明

Yahoo!APIを使用したプログラムの関係図

Yahoo!APIを使用したプログラムの関係図

  1. 経路地図作成VBAファイル(ユーザーフォームも作成する) map.xlsm
  2. HTMLファイルを作成するためその元となるデータ  mapdate.txt
  3. Yahoo!APIキー【Yahoo!APIキーを取得はこちらから、取得方法は「VBA 郵便番号から住所を取得する方法」で紹介しています。】

この後、map.xlsmでHTMLファイルを作成しますがとりあえずはこの3つを用意します。

経路地図のHTMLファイルの元になるtxtファイルを用意する

今回は経路地図ですので、前回使用したmapdate.txtは使用できません。

今回のmapdate.txtは下記のようにします。

参考:『Yahoo! JavaScriptマップAPIで経路検索プラグインを使い、初期表示で経路を表示する

経路地図を表示するユーザーフォームを用意

今回は経路地図なので前に『VBA YahooAPIを使って2つの場所の経路を取得してみた』で使用したフォームをそのまま流用しました(笑)面倒だったから・・・

経路地図フォーム

経路地図フォーム

コントロール役割
TextBox1YahooAPIキーを入力
TextBox2出発地の住所やキーワードを入力
TextBox3取得した出発地の座標を表示
TextBox4出発地住所をもとにUTF-8エンコードした文字列を表示
TextBox5到着地の住所やキーワードを入力
TextBox6取得した到着地の座標を表示
TextBox7到着地住所をもとにUTF-8エンコードした文字列を表示
CommandButton1取得した座標をもとにYahoo!へリクエストを送る
WebBrowser1Yahoo!から得た地図を表示する

VBAで経路地図を表示させるサンプルコード

今回のサンプルコードは『VBAで住所録からアイコンを立てるマップを作成してみた』で使用した内容を改変して作成しました。

今回は急ごしらえで作成しましたので、不細工な内容があるかもしれません、もし何かありましたらコメントか何かで「やさしく指摘」してください(笑)

ダウンロードファイルは下にありますので気軽にどうぞ。

ダウンロード

当サイトの免責事項をお読みになってからお使いください。

フォロー・チャンネル登録お願いします

■Twitterフォロー

■YouTubeチャンネル登録

ファイルやコードの利用、WEBサイトの利用について

サンプルコードなどは当サイトの免責事項をよくお読みになってからお使いください。

Sponsored Link

 

WordPressでブログを始めるなら

WordPress簡単インストール&安心の安定性

レンタルサーバー Xserver