7.13 アドインを組み込む、解除する
マクロを使いワークブックにアドインを組み込むときの方法で、右図のようなダイアログで行うアドインの追加や設定と同じです。

アドインの追加やインストールは、Addins()というオブジェクトを使います。
アドインを追加する
アドインを使うには、まずはアドインを追加する必要があります。上の図でいうと、参照ボタンを押してアドインファイルを選び、一覧へ追加するという手順です。

アドインを追加するときは、AddIns.Add Filename:=アドインファイル名で行います。例では、C:\happy\HappyAddins.xlaというアドインファイルを追加しています。

Sub prcAddinsAdd()

    'アドインを追加します
    AddIns.Add Filename:="C:\happy\Book4.xla"

End Sub
 ※これはエクセルマクロです
アドインをインストールする
追加したアドインをインストールする方法です。上の図でいうと、使うアドインにチェックボックスを付けてOKボタンを押す手順です。

アドインをインストールするときは、Addins("アドイン名").Installed = Trueを実行します。例では、Book3というアドインをインストールしています。

Sub prcAddinsInstall()

    'アドインをインストールします
    AddIns("Book3").Installed = True

End Sub
 ※これはエクセルマクロです
アドインをアンインストールする
使用中のアドインをアンインストールするする方法です。上の図でいうと、使わないアドインのチェックボックスを外しOKボタンを押す手順です。

アドインをアンインストールするときは、Addins("アドイン名").Installed = Falseを実行します。例では、Book3というアドインをアンインストールしています。

Sub prcAddinsUnInstall()

    'アドインをインストールします
    AddIns("Book3").Installed = False

End Sub
 ※これはエクセルマクロです
アドインをアンインストールするときにエラーが?!
アドイン側でアドインのアンインストールを行ったとき、図のようなAuto_Removeが見つからない…というエラーが発生したときの話です。

このエラー、どうやら古いバージョンのエクセルの名残のようですねぇ(汗)。回避する方法は、アドイン内の標準モジュールにAuto_Removeという何も行わないプロシジャを作っておくという、納得のいかない方法でできます(笑)

アドイン側にアンインストール機能を持たせたときは、忘れずにAuto_Removeプロシジャを入れておきましょう。例は、Auto_Removeの作成例です。もちろん何もしません。とゆーより、何もしない方がいいと思います。

Sub Auto_Remove()

    '何もしません

End Sub
 ※これはエクセルマクロです
Copyright(C) 1999-2006 結城圭介。 All rights reserved