[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『座標値の位置をGoogleMapsに表示』（高齢者マクラー）
次のページを参考に、セルに入力されている座標値の位置をGoogleMapsに表示させています。 https://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q11151940996
Sub GoogleMaps_Show1(ByRef co_Col As Long)
'' 始点側の座標値の位置をGoogleMapsに表示
Dim JS As Object
Dim URL
'' GoogleMapsに表示
Set JS = CreateObject("ScriptControl")
JS.Language = "JScript"
URL = JS.CodeObject.encodeURIComponent(Cells(ActiveCell.Row, co_Col).Value)
CreateObject("Wscript.Shell").Run "http://www.google.co.jp/maps/@/serch?q=" & URL, 1
End Sub
現在、これでMaps上に正しく表示され問題はないのですが、2点目以降を表示さ せるとその都度新しいタブを開いて表示するために時間が掛かりますし、タブが 増えて煩わしくなってきます。 このため、2点目以降については1点目で開いたタブのMaps上に表示させるために はどのようにすればよろしいのでしょうか？
もう一点、最初に表示される画像はMapsの地形図ですが航空写真の表示に変える ことができるのでしょうか？
参考にしているページのコードの内容は全く分からないままコピーして利用させ ていただいているレベルの者です(例えば、最後の",1"など)。 よろしくお願いします。
＜ 使用 Excel：Excel2007、使用 OS：Windows10 ＞
ただし、その後、GoogleMap API はキーを求めるようになったようです。
そのこともあって、上記をそのままでは動作しませんが、参考になるはずです。
APIのキーの取得方法もネットで調べれば分かると思います。
Googleさんのサイトを見て下さい。
# それ以外の変更もあるかもしれませんが、とりあえず。
（γ） 2019/01/14(月) 21:52
（γ）さんありがとうございます。
このページで質問する前に、この学校内の [[20121108090727]] の記事を参考にと思ったのですが、私にとってはかなりハードルが高いと思い、 「1点だけの表示なら簡単にできるので複数の点でも何とかなるかな？」と安易に考えました。
GoogleMapsのAPIについては、 写真の座標値の修正をフリーソフトを使って処理していた際に1日2500回の制限回数を超えたことがあり、 またこのソフトについては昨年6月からは予めAPIを申請しキーを入力しないとGoogleMapsが使用出来なく なってしまいました。 APIの方は私にとっては壁のような気もしていますが少し勉強してみます。 教えていただいたあたりを少し勉強してみます。
（高齢者マクラー） 2019/01/14(月) 23:20
urlに必要情報を連結していくだけで複数のものを表示できます。
手元のBookを改めて見ると、複数の場所を表示する加工をやっていたようです。
素人の私にもできたことなので、そう難しい話ではないはずです。
頑張って下さい。
（γ） 2019/01/15(火) 00:19
（γ）さんありがとうございます。
URLの連結について少し時間が掛かりますが、検討してみます。 （高齢者マクラー） 2019/01/15(火) 01:26
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.