[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『エクセルシートの中にGoogleの地図を表示できますか？』（ゆみ）
WebBrowserコントロールをシートに貼り付けて 運用してみたら いかがですか？ 詳細は、このコントロールの名称で検索してみてください
ichinose
>詳細は、このコントロールの名称で検索してみてください
検索はされたのでしょうか？
(十利須賀利)
WebBrowserコントロールをシートに貼り付け？？？ 詳細は、このコントロールの名称で検索してみました もしもGooglemapを入れたい場合はGooglemapのアドレスを 入れればいいんですか？？？ ちんぷんかんぷんで困ってますσ(^_^;) 誰か助けて下さい（≧∇≦）
ゆみ
Sheet1にこのWebBrowserコントロール（WebBrowser1）が貼り付けが成功しているとして・・・。
VBAで登録する必要があります。
Sheet1のシートモジュールに
'==============================================================
Option Explicit
Public 表示住所 As Variant
Sub web_clear()
WebBrowser1.Navigate "about:blank"
End Sub
Sub map_disp()
Dim idoc
With WebBrowser1
.FullScreen = True
.Navigate "about:blank"
Do While .Busy = True Or .readyState <> 4
DoEvents
Loop
.Navigate "http://www.google.co.jp/maps?ie=UTF-8&oe=UTF-8&hl=ja&tab=wl&q="
Do While .Busy = True Or .readyState <> 4
DoEvents
Loop
Set idoc = .Document
On Error Resume Next
With idoc
.forms(0).all("q").Value = 表示住所
.forms(0).all("q-sub").Click
End With
Set idoc = Nothing
On Error GoTo 0
End With
End Sub
標準モジュールに
Option Explicit
Sub test()
With Worksheets("sheet1")
.表示住所 = "東京都墨田区押上１丁目 "
.map_disp
End With
End Sub
マクロを実行する前に 一度保存してください
保存後、testを実行してください
地図が表示されるはずです。
ichinose
>住所検索機能
何のことかわかりませんが、↓が参考になると思います。
三流君VBAでIE操作 InternetExplorer.Applicationを操作する http://www.ken3.org/cgi-bin/group/vba_ie.asp
(十利須賀利)
エクセル2003では無理ですか？？？？
ゆみ3
しかしながら、またまた問題発生しました。
必要な表示は地図のみとなりますが
Googleマークとか他の表示も一緒にされてしまいます。
地図のみで表示する方法はありませんか？？？？？？？
手抜きレスになっちゃいますが。
[[20090925210933]]
『googleの地図をエクセルに張り付ける方法とは？』（ミロ）
ただ、googleに限らず二次利用については制限があると思いますのでよく 調べてからご利用になったほうがいいと思いますよ。
GoogleMapでは未検証ですが,XPの場合は「Temporary Internet Files」 にあるキャッシュから該当の画像を探して貼付け、というのが出来たと思います。
(十利須賀利)
出来るかできないかで言えば、出来ると思いますがある程度の知識が必要な方法です。
下記の Static Maps API あたりを参考にしてはどうでしょうか。 https://developers.google.com/maps/?hl=ja http://www.ajaxtower.jp/googlemaps/ http://www.ajaxtower.jp/googlemaps/charset/index6.html
このあたりの敷居が高いようであれば、読み飛ばしてください。 (Mook)
この内容は、エクセルのどこに入れれば出来ますか＞＞＞？？？？
ゆみ
XHTML はまずメモ帳などで作成し、ブラウザで目的の地図が表示できるように作成します。 置く場所は EXCEL のファイルと同じ場所でも構いません。
たとえば、上のページの map6_1.html のリンク先を名前を付けて保存で、 EXCEL ファイルと同じフォルダに保存します。
WebBrowserコントロール の Navigate で
WebBrowser1.Navigate "file://" & Replace(ThisWorkbook.Path, "\", "/") & "/map6_1.html"
とすれば、同じページが表示されるでしょう。
動的に表示場所を変えるには、オブジェクトでの HTML操作や JavaScript の知識が必要 となりますが、指定した静的ページを表示するだけなら、上記の座標 (var latlng = new google.maps.LatLng(35.709984,139.810703); の部分） を変えるだけでできるかと思います。 (Mook)
>Googleマークとか他の表示も一緒にされてしまいます。 これは、Mookさんのリンク先を参考にして下さい。以下で妥協できるなら、参考にしてください
Sheet1にWebBrowserコントロールが貼り付けられているとして（WebBrowser1）、
sheet1のモジュールに
'=====================================================================================
Option Explicit
Public 表示住所 As Variant
Private nowurl As Variant
Private ook As Long
Sub web_clear()
WebBrowser1.Navigate "about:blank"
End Sub
Sub map_disp()
Dim idoc
Dim ele
With WebBrowser1
.FullScreen = True
.Navigate "about:blank"
Do While .Busy = True Or .readyState <> 4
DoEvents
Loop
.Navigate "http://www.google.co.jp/maps?ie=UTF-8&oe=UTF-8&hl=ja&tab=wl&q="
Do While .Busy = True Or .readyState <> 4
DoEvents
Loop
Set idoc = .Document
On Error Resume Next
With idoc
.forms(0).all("q").Value = 表示住所
.forms(0).all("q-sub").Click
End With
Debug.Print "start2"
ook = 0
Do While ook <= 6
DoEvents
Loop
Application.Wait Now() + TimeValue("00:00:01")
For Each ele In idoc.getElementsByTagName("IMG")
If ele.classname = "collapse-left3" Then
ele.Click
Exit For
End If
Next
Set idoc = Nothing
On Error GoTo 0
End With
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
ook = ook + 1
End Sub
Private Sub WebBrowser1_DownloadComplete()
ook = ook + 1
End Sub
標準モジュ−ルに
Option Explicit
Sub test()
With Worksheets("sheet1")
.表示住所 = "東京都墨田区押上１丁目 "
.map_disp
End With
End Sub
testを実行してみてください。
ichinose
http://news.mynavi.jp/articles/2012/04/24/excelvba/index.html
ここに書いてある手順でブックを作成出来れば実現出来ますよ。
（ウッシ）
あと、印刷出来るようには出来ないんでしょうか＿？
ゆみ
これ読んでみました。
まさにこんな内容をやってみたいのですが
すごっく難しくて分かりません。
どなたか初心者でも分かる様な説明を出来る方いらっしゃいませんか？？？ ゆみ
どこで引っかかっているのか全く不明です。
VBA自体が理解できていない、ということでしたら、 とりあえず、VBA入門サイトで勉強されてはいかが でしょう？
Excel VBA 入門講座 http://excelvba.pc-users.net/
(十利須賀利)
難しいですか？
http://news.mynavi.jp/articles/2012/04/24/excelvba/002.htmlのSheet2の名前定義というのは、
例えばサイトの表4の1行目は、
Sheet2のB1セルを選択して数式バーの左の名前ボックスに「latitude」と入力してEnterキーを押す。
という事です。
同様に表4の名前定義を行ったら、表5の関数の設定をします。
「move」に「=360*2^(-zoom)」というのはSheet2のB8セルに「=360*2^(-zoom)」という関数をセット
するという事です。
セルB8以下に表5の関数を全てセットします。
http://news.mynavi.jp/articles/2012/04/24/excelvba/003.htmlの表6はSheet1にセットする
オブジェクト一覧です。
既にWebBrowser1 ウェブブラウザはセットした事があるはずなので同様にスピンボタン等をセットし
プロパティのオブジェクト名を表6の通りに変更します。
表7〜に従って各オブジェクトのプロパティを開いてHeight等を変更します。
後は参照設定とコードのセットだけです。
慣れている人なら10分も掛らないですけど・・・
分からない部分はまた聞いて下さい。
（ウッシ）
っゆみ
もしよろしければ、教えてください。 ゆみさんではないのですが、出来たらいいなと思い、同じように挑戦しているものなのですが・・・・。
マクロを実行させて ここで ’オブジェクトが必要です’ がでるのですが、どこらあたりがよくないのでしょうか？
Sub RedrawMap()
Dim url As String
url = "http://maps.google.com/maps/api/staticmap?size=512x512&sensor=false¢er="
url = url & Sheet2.Range("latitude")
url = url & "," & Sheet2.Range("longitude")
url = url & "&zoom=" & Sheet2.Range("zoom")
Dim strType As String
If Sheet2.Range("roadmap") Then strType = "roadmap"
If Sheet2.Range("satellite") Then strType = "satellite"
If Sheet2.Range("terrain") Then strType = "terrain"
If Sheet2.Range("hybrid") Then strType = "hybrid"
url = url & "&maptype=" & strType
Sheet1.WebBrowser1.Navigate url ＜−−−−−ここでとまります。
End Sub
よろしくお願いいたします。 （ハッシー）
新規に質問した方がいいですよ。
Sheet1.WebBrowser1
Sheet1 が無いか、Sheet1 に WebBrowser1 が無いか。
どちらかでは？
有無とオブジェクト名の確認が必要です。
（ウッシ）
確認して、新規に質問させていただきます。
ありがとうございました。 （ハッシー）
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.