ほたえて 業務旬報（※コマンドはキャラが右向きの場合です）

_ 本日買ったヤクルトの賞味期限・・・07.03.06

今さらな話題ですが、Google Earthで遊んでます。

ひとまず世界の観光名所を次々と飛び回ってみたりして。
こんな面白凄いソフトがネットからタダで手に入るたあ、本当に便利な世の中になったもんです。チョロいもんです。

Google Earthでアメリカのディズニーランドにズームインしていく様は、『あたかもアクトレイザーで神様が下界に降りる時のようだ』。
こんな感想を述べた人は、世界で634人（フィルモアの最大人口 ）くらいはいるんじゃないかと思います。

でも、本家アクトレイザーでは、神様はきりもみ回転しながら地面へ突入していたはず。
なんとかGoogle Earthで好きなときにアクトレイザー回転（命名）できないもんか。

カメラの位置を好き勝手にいじくれる「Google Earth COM API」を叩けば、やってやれないことはないんじゃないか。
ということで、やってみました。

【サンプルコード（VBA版）】
※以下に記載する内容を試してみて問題が発生しても、おっちゃんは一切責任をとらんのよ！
自己責任・自己反省・自己分析・自己修復・自己満足でお願いよ。

'きめもんく
Option Explicit
Private Declare Sub Sleep Lib "KERNEL32.dll" (ByVal dwMilliseconds As Long)
 
Sub ActRaiser()
    'せんげん
    Dim ge As ApplicationGE
    Const lon As Double = -1.82641596237255
    Const lat As Double = 51.1788538403211
    Dim range As Long
    Dim azimuth As Double
    
    'しょきち せってい
    Set ge = New EARTHLib.ApplicationGE
    range = 4000
    azimuth = 0
    
    'てんくうじょう いどう
    Call ge.SetCameraParams(lat, lon, 0, RelativeToGroundAltitudeGE, range, 0, azimuth, 1#)
    Sleep 2000
 
    'とつにゅう かいし
    Do While range > 0
        range = range - 50
        azimuth = azimuth + 10
        Sleep 100
        Call ge.SetCameraParams(lat, lon, 0, RelativeToGroundAltitudeGE, range, 0, azimuth, 4#)
    Loop
    
    'よいん
    Call ge.SetCameraParams(lat, lon, 0, RelativeToGroundAltitudeGE, 10, 0, azimuth + 10, 4#)
 
End Sub

【用意するもの】
・Google Earthが牧歌的に動かせる環境
・Google Earth（無料版でよい）
・VBA(Visual Basic for Applications)のはいったMicrosoft Excel

【手順】
・Google Earthをインストールしましょう。
・Google EarthをCOMレジストリ登録しましょう。
・Excelを起動して、そっからVisual Basic Editor（VBE）を起動しましょう。
・VBEの参照設定から、EARTHLibを参照するように設定しましょう。

　ここまでは、参考文献[1]が詳しいです。

・VBEにて、サンプルコードを打ち込みましょう。
・Google Earthを起動しときましょう。
・サンプルコードを実行しましょう。

全てがうまくいけば、ストーンヘンジに神様が降臨するはずです。
マシンパワーによっては、ズーム速度や回転速度がちぐはぐになってしまう可能性があります。
そんときは、Sleepする時間を変えたり、rangeやazimuthの増減値を変えてみたりしてみましょう。
サンプルコードは古いExcelで動作確認しました。もしかしたら違うバージョンのExcelでは動かないかもしれませんし、まんざらでもないかもしれません。
なにごとも創意工夫です。
既にお気づきかと思いますが、この段落はダメなときに言い訳するための段落です。

【あなたの生活を変えるためのヒント】
なお、神様が降臨する場所を替えたい場合は、8・9行目のLonLat（緯度経度）の値を、下記のように変えてみてはいかがでしょうか。

    'ブラッドプール
    Const lon As Double = 146.165899607797
    Const lat As Double = -43.4166795753927

    'マラーナ
    Const lon As Double = 134.102057648566
    Const lat As Double = 34.5634293763139

わからない人は、身近に沢山いる、独身男性のプログラマにやってもらえば良いでしょう。
貴方が結婚適齢期の女性ならば、お礼に婚約してしまっても良いでしょう。

【参考文献（クリックすると別窓で開きます）】
[1]B-Wiki - Google Earth COM API - Kyosho.net
[2]Google Earth COM API Documentation - Google, Inc.
[3]Ｅｘｃｅｌ全開ＶＢＡ - http://www.sigoto.co.jp/
[4]Googleで「アクトレイザー 攻略」を検索した結果 - http://www.google.co.jp/
[5][第240回] 2002年6月2日放送 「タスマニア」 ～時を止めた赤い海～ - 素敵な宇宙船地球号 公式HP
[6]まさか私が……!?　“結婚詐欺師”の常套手段 - All About