ExcelVBAにて、下記の住所リストをGoogleMAP表示できますがそれをルート表示するには？

Sub マップリンク表示()
Dim i As Integer
For i = 2 To 36
ActiveSheet.Hyperlinks.Add Anchor:=Range("H" & i), _
Address:="http://maps.google.co.jp/maps?q=" & Range("G" & i).Value, _
TextToDisplay:="Map表示"

※G列に住所、H列にMAPリンク表示。

と記述すればマップリンクができますが、決まった拠点から（例えば東京駅）この住所のルート先表示をしたいです。どのように表記すればよろしいでしょうか？

質問者からの補足コメント

• ご回答ありがとうございます。
  上記のを参考にして、反映いたしましたが、ルート表示ができずに
  目的地だけのGoogleMAP表示だけとなってしまいました。　一体何が違うのかご教授頂けますでしょうか？　ちなみに、nicotinismさんと同じWin7_64bit + Excel2010_32bit + IE11
  環境です。& EncodeURL(Range("G1").Value) 部分を直接住所で指定しても構いません。
  よろしくお願いいたします。

  No.1の回答に寄せられた補足コメントです。 補足日時：2015/04/30 23:49

No.1 ベストアンサー 回答者： nicotinism 回答日時： 2015/04/29 22:53

詳しくはありませんが、hatena さんの所でAccessでの解説をしてくれていましたので

参考（もとい パクらせて）いただきました。
http://hatenachips.blog34.fc2.com/blog-entry-384 …

G1 に東京駅 （起点）
G2 に日比谷公園
G3 に気象庁の場合です。
標準モジュールにて
（タブインデント代わりに全角スペースを使用しています）

Private Function EncodeURL(ByVal sWord As String) As String
　　With CreateObject("ScriptControl")
　　　　.Language = "JScript"
　　　　EncodeURL = .CodeObject.encodeURIComponent(sWord)
　　End With
End Function

Sub マップリンク表示()
　　Dim i As Integer
　　For i = 2 To 3　'6
　　ActiveSheet.Hyperlinks.Add Anchor:=Range("H" & i), _
　　Address:="http://maps.google.co.jp/maps?hl=ja&dirflg=d&sad … _
　　　　& EncodeURL(Range("G1").Value) _
　　　　& "&daddr=" & EncodeURL(Range("G" & i).Value), _
　　　　TextToDisplay:="Map表示"
　　Next
End Sub

※Win7_64bit + Excel2010_32bit + IE11 では機能しました。

No.3 回答者： nicotinism 回答日時： 2015/05/02 15:35

コピペすると当方では

Address: ～中略～ hl=ja&dirflg=d&sad … _
のようにおしまいが三点リーダーになってしまいます。

なので全角文字で載せてイミディエイトウィンドウで半角にしてもらおうと
思った次第。
hl=ja&dirflg=d&sad … _は
hl=ja&dirflg=d&saddr=" _
です。

No.2 回答者： nicotinism 回答日時： 2015/05/01 00:17

？

Gooさんの小さな親切が仇になってます。。。
Address:="htt・・・・
の１行を全角文字で表示します。

イミディエイトウィンドウで
?strconv("ｈｔｔｐ：／／ｍａｐｓ．ｇｏｏｇｌｅ．ｃｏ．ｊｐ／ｍａｐｓ？ｈｌ＝ｊａ＆ｄｉｒｆｌｇ＝ｄ＆ｓａｄｄｒ＝",vbNarrow)
の１行をコピペしEnter
出た結果を
Address:="htt・・・・ と差し替えてください。
行継続 『 _』をお忘れなく。