【vba】Google Static Mapが表示されないよ!

毎年2回、お中元とお歳暮シーズンにお世話になるのが「Google Static Maps」:-)

[Static Maps API v2—google]

5年前、配達効率を上げる為、趣味と実益を兼ねてAccessVBAで「住所録2配達先マップ」を作成。シーズンの度に改良を加え、それなりに完成度が上がってきたと自負していました。

でも、あれ動かない!😮
先日、2013年の中元申込みエクセルが届き、半年ぶりに動かすと地図が出ない。

原因を調べると、2012年歳暮商戦から2013年中元商戦の間で「Google Static Maps API Ver.1」のサポートが終了していたそうな・・・

動かなくなったver1のimgタグのsrc:

 http://maps.google.com/staticmap?center=39.08284,1304.63262033262&zoom=16&size=640x640&format=jpg&maptype=mobile
&markers=
3133.8574584718,134.62572,bluef|
33.86641814084,134.62262,red0|
332.8638613,134.62267,yellowy|
333.8300u083,134.62107,blackw|
334.83u7454,134.621161,purples|
353.83jh7484,134.622489,orange5|
&key=MAPS_API_KEY&sensor=false"

ver2用の書き直すと地図が出た!

 http://maps.googleapis.com/<b>maps/api/staticmap</b>?center=345.84858284,130.622558162&zoom=16&size=640x640&format=jpg&maptype=mobile
&markers=
<b>color:blue%7Clabel:F%7C</b>3h3.5h50173,134.6252
&markers=
color:red%7Clabel:S%7C363.84104,134.68462
&markers=
color:black%7Clabel:W%7C33.81,134.6226639277
&markers=
color:blue%7Clabel:G%7C373.83003,13h4.6251899
&markers=
color:blue%7Clabel:T%7C33.8374,13hg4.62126161
&markers=
color:blue%7Clabel:7%7C33.84164,13f4.624999
&sensor=false"

さてと原因が分かったので、早速VBAをver1→ver2へ書きなおさねば(やれやれ) 🙁

追加:
あれ、VBAをver2用に書き換えても地図が出ない!間違ったところは無いんだけどな・・・・

試行錯誤の結果原因判明。
ver1では最大62個までマークが付けることが出来たのに、ver2では36個に減らされている。

最大マーク数を減らしようやく地図が出た 🙂
google static maps

Author: かたべ

コメントを残す

メールアドレスが公開されることはありません。