アドインが削除されない。

Question

office 2013  Excel x32　環境でアドインが消えない現象が出ています。

ご教授願います。

●アドインの追加手順

・VBAマクロを使用して

　AddIns("AAAAAA").Installed = True

　にいております。

●アドインの削除手順

・VBAマクロを使用して

　AddIns("AAAAAA").Installed = False

　にいております。

●削除手順後の現象

１．「Excelのオプション」‐「アドイン」で「アクティブでないアプリケーションアドイン」に登録されています。(問題ないと思う)

2．Excelのメニューに「アドイン」タブが残ります。(問題あり)

office 2010までは、動作していた実績のあるソースコードです。

何か改善策を知っている方ご教示ください。

Answer 1

ありがとうございます。

AddIns("AAAAAA").Installed = False

は、削除ではないということは理解しました。

削除は下記のような処理を行っていました。

   With CommandBars("File")

        For i = .Controls.count To 1 Step -1

            If InStr(.Controls(i).Caption, "aaaaaa") > 0 Then

                .Controls(i).Delete

            End If

        Next

    End With

    With CommandBars("Standard")

        For i = .Controls.count To 1 Step -1

            If InStr(.Controls(i).Caption, "AAAAAA") > 0 Then

                .Controls(i).Delete

            End If

        Next

    End With

◇ Visual Basic for Application(VBA)

へ投稿してみます。

Answer 2

​hideharufuruki さん、こんにちは。

マイクロソフト コミュニティをご利用いただき、ありがとうございます。

Excel のメニューにアドイン タブが残り、削除されないということなのですね。

情報を探してみたところ、参考となりそうなスレッドが見つかりました。

投稿内容から状況が似ているかなと思うので、以下のスレッドで y sakuda さんが紹介されている削除方法を確認してみてはいかがでしょう。

◇ VBAマクロでExcel2013のアドインツール バーを削除できない。

上記スレッドで紹介されている方法でもうまくいかないようであれば、専門の VBA フォーラムに投稿をしてみて削除方法について情報を集めてみるとよいと思います。

◇ Visual Basic for Application(VBA)

まずは紹介されている削除方法を参考にしてみてくださいね。