(cache)Office 2016で"ヤツ"を召喚してみた。

ホーム
Office関連, Excel, リボン関連, Office 2016
Office 2016で“ヤツ”を召喚してみた。

Office関連

2015.04.3

Office 2016で“ヤツ”を召喚してみた。

4月1日にMicrosoft Office公式アカウント、MSOfficeJP(@MSOfficeJP)さんが呟いた一言。

そう、“ヤツ”が、「お前を消す方法」で有名な“ヤツ”がOffice 2016で帰ってくるというのです。

・Office 2016のヘルプ画面に人気キャラクターのアイツが復帰 – 日本MSが予告 | マイナビニュース
http://news.mynavi.jp/news/2015/04/01/308/

早速手元のOffice 2016 Previewで確認してみると・・・

いました！
“ヤツ”です。
超人気Office アシスタントキャラクターのカイル君です。

久しぶりに青い彼に会うことができました。
相も変わらず元気にExcelの上を泳ぎ回っています。

Office 2007で廃止された彼を、Office アシスタントを復活させるというMicrosoftの決断は、まさに英断。素晴らしい！！

でもこの決断はもちろん嘘です。
エイプリルフールのネタです。
件のツイートにも「#エイプリルフール」タグが付いています。

・・・なんだ嘘か。

よろしい、ならば召喚だ！

というわけで、実際にOffice 2016 Previewでカイル君を呼び出すことにしました。

召喚に必要なもの

・Office 2003

彼を呼び出すにはOffice 2003が必要です(カイル君が搭載されている過去のバージョンであれば2003以外でも大丈夫だと思いますが、私の方では試していません)。

もっと言うならば、彼の実体である「DOLPHIN.ACS」ファイルが必要となります。

召喚環境

・Windows 7

カイル君を呼び出すには後述のMicrosoft Agentが必要になりますが、Windows 7の場合Microsoft Agentを動作させるための修正モジュールが配信されているので、楽に呼び出すことができます。

召喚手順

上で書いたOffice 2003(DOLPHIN.ACS ファイル)を用意します。
「Download Agent 2.0 Core components」からMicrosoft Agentコンポーネントをダウンロード、インストールします。

「Microsoft エージェント対応のプログラムが Windows 7 で動作しない」から修正プログラムをダウンロード、インストールします。

※ Microsoft Agentのインストールに関しては「Windows7でMS-Agentを利用する方法」や「PowerShell から com を呼ぶ～ Windows 7 で MSAgent！」に詳しい説明が記載されています。

カイル君を召喚する。

準備ができたら、いよいよカイル君を召喚します。
召喚するにはマクロを使いますが、ちゃんと「ヘルプ」を押したらカイル君が出てくるように、リボンのカスタマイズも行います。

・リボンXML

<?xml version="1.0" encoding="utf-8"?>
<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
  <commands>
    <command idMso="Help" onAction="Help_onAction" />
  </commands>
  <ribbon>
    <tabs>
      <tab idMso="TabHome">
        <group id="grpHelp" label="ヘルプ">
          <button idMso="Help" size="large" />
        </group>
      </tab>
    </tabs>
  </ribbon>
</customUI>

・VBAコード

'標準モジュール
Option Explicit
 
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
 
Public Sub Help_onAction(control As IRibbonControl, ByRef cancelDefault)
  cancelDefault = True
  With CreateObject("Agent.Control")
    .Connected = True
    .Characters.Load "Dolphin", "C:\Program Files\Microsoft Office\OFFICE11\DOLPHIN.ACS"
    With .Characters("Dolphin")
      .MoveTo 400, 350
      .Show
      .Speak "みんなのお手伝いをします。"
      .Play "Writing"
      Sleep 4000
      .Stop
      .Play "GetAttention"
      .Play "GetWizardy"
      .Play "GoodBye"
      Sleep 10000
    End With
    .Characters.Unload "Dolphin"
    .Connected = False
  End With
End Sub