Excel 2007 でアドインタブが表示されない

Question

こんにちは、

Excel 2007 を使用して、それに関連するアドインを利用しているのですが、

アドインタブが表示されなくなってしまいました。

大方のPCでは、Office2003、Office2007でアドインタブは表示され、

ツールバーにもボタンが表示されますが、一部のPCでは、

アドインを設定したにも拘らず、リボンにアドインタブが出てこないので、

アドイン機能を使うことができません（この問題はOSとは無関係にExcel2007で起こります）。

もちろん、アドインのインストールや設定やマクロのセキュリティ等は、

既に動いているPCと同じですので問題無いと思います。

アドインタブを表示する方法を教えてください。

よろしくお願いします。

Answer 1

◇タブが表示されるようになりました。

◇タブが表示されなくなる現象も体験できました。

1.下のようなテストアドイン.xlaを作成しました。

（コメントになっている行①②③④は、アドバイスを参考に後で追加したものです。）

（コメント行を除くと、問題のアドインソフトのオリジナル記述に近い形です。）

---

'アドインがインストールされた時の処理

Private Sub Workbook_AddinInstall()

    Dim Cmdbar  As CommandBar

    Dim Cmdbtn  As CommandBarButton

    Set Cmdbar = Application.CommandBars("Standard")

   'Cmdbar.Visible = True                                '<--①必須

   'Cmdbar.Controls.Add msoControlButton   '<--②必要ないです

    Set Cmdbtn = Cmdbar.Controls.Add(Type:=msoControlButton, Temporary:=False)

    Cmdbtn.Caption = "hoge作成"

    Cmdbtn.Tag = "hoge作成"

    Cmdbtn.Style = msoButtonCaption

   'Cmdbtn.Visible = True                                '<--③必須

    Set Cmdbtn = Nothing

    Set Cmdbar = Nothing

End Sub

'アドインがアンインストールされた時の処理

Private Sub Workbook_AddinUninstall()

    Application.CommandBars("Standard").FindControl(msoControlButton, , "hoge作成").Delete

   'Application.CommandBars("Standard").Visible = False    '<--④やっちゃいけない

End Sub

---

2.この状態で（①②③④はコメントのまま）アドインの追加や削除をすると、

　EXCEL2007のアドインタブとコマンドボタンが自動で出たり消えたりします。

3.コメント行の①②③を生かして実行すると、

　アドインタブとコマンドボタンは表示された後で、アドインを外しても空のボタンが残ってしまい、

　タブが消えなくなります（ボタンを削除するとタブも消えます）。

4.そこで④も生かして実行すると、アドインタブを無理やり消してしまいます。

　この後で気付いたのですが、④を実行するとオリジナルのアドインツールでは、

アドインタブが出なくなってしまいます。同じような現象が再現出来ました。

（本当に同じかは判らないけど）。

　私の予想ですが、コマンドバーのVisible = False を実行すると、Excelはその状態を

記憶してしまい、次に Visible = True を実行するまで、自動ではタブが表示されない

のではないかと思いました。

　結論としては①と③を実行すればこの問題は解消できる（と言うか①③を実行しておけば、

この問題は発生しなかった）という、極めて当たり前の結果に到達してしまいました。

（なんか「大山鳴動してネズミ一匹」的な感じが否めないですが．．．）

　もしもアドイン・タブやボタンが突然表示されなくなった人がいらっしゃったら、

上の①③を生かした（②④はコメント）アドインを作成して登録して解除すると、

またアドイン・タブとボタンが表示されるようになるかもしれません。

（但し私はVB6.0の経験はありますが、EXCELは苦手ですしVBAを扱ったのは初めてですので、

　落ちがあるかもしれません。）

　未だタブが自動で表示されなくなる原因が判明していません、タブが出るPCと

出ないPCの違いが判りませんが、一応アドイン・タブが出るようになったとのことです。

アドバイス頂いた、y sakudaさん、フォーラムモデレーターの石田さん有難うございました。

Answer 2

お待たせしてすみません。

下の３つを順に行ってもらいましたが、駄目だったそうです。

①単純にEXCELを再起動する。

②全てのアドインを解除して、再度目的のアドインを登録する。

③アドインファイル.xlaをexcel本体の有るフォルダにコピーして参照をやり直す。

　［例：C:\Program Files\Microsoft Office\Office12\Library］

一通りの追加や削除を繰り返してもらいましたが、

③で駄目だったので手が無くなってしまいました。

Answer 3

返事が遅くなって申し訳ありません（夏休みに入っておりました。）

早速のアドバイスありがとうございます。

ご提案のモジュールを組み込んだ簡単なブックを作ってテストしてもらいました。

（実は、現象が出るPCは私のでなく少し遠い所にあるのです）

 

◆以下の手順をシートに記述して実行してもらいました。

①このブック（Add-In Test シート）を開いた時点で（現在）、リボンに「アドイン」タブは表示されていませんね。

②Officeボタン→「Excelのオプション」でリストの「基本設定」画面を表示し、

　Excelの使用に関する基本オプション の □ [開発]タブをリボンに表示する(D) にチェックを入れてOKを押します。

③リボンの「開発」タブをクリックして、左端の「Visual Basic」ボタンを押します。

④Visual Basic Editor が起動したら、メニューの「実行」をクリックし、「Sub/ﾕｰｻﾞｰﾌｫｰﾑの実行」をクリックします。

⑤実行モジュールの選択画面が表示されますので、「実行」ボタンを押します。

⑥Visual Basic 画面を閉じ（またはウィンドウの選択で）、このAdd-In Test シートを表示する。

⑦リボンの「開発」タブの横に「アドイン」タブが表示されている。

※最後の⑦の結果を教えてください。

結果は、アドインタブが表示されたそうです。

Excel自体には問題がないということでしょうか。

 

Answer 4

y sakuda さん、コメントありがとうございます。

zuguro さん、こんにちは。

以下の情報によると。 「[アドイン] タブが表示されない場合は、Excel を終了して再起動する必要があります。」との記述がありましたが、Excel を再起動をしても [アドイン] タブが表示されませんか？

　アドインを登録または削除する

表示されないという場合は、どのような手順で、どのような名称のアドインを設定したのかもわかると、同様の現象に遭遇された方からのコメントもいただけるかもしれませんので、ご返信いただければと思います。

zuguro さんからのご返信、お待ちしていますね。

Answer 5

普通はアドインタブは表示されません。現に私の環境では2007，2010ともアドインタブは出ていません

>アドイン機能を使うことができません

ですが、機能が使えないとのことですから、コマンドバーを追加するタイプのアドインをお使いなんだと推測します。

で、皆目見当がつかないので、テストしてみてください。

Sub test()

Dim wBar As CommandBar

Set wBar = CommandBars.Add("Test", , , True)

wBar.Visible = True

wBar.Controls.Add msoControlButton

End Sub

Excel2007で標準モジュールにこのコードを張り付けて実行してみてください。

アドインタブが表示されるはずです。

（Temporaryになってますから、Excelを終わらせれば消えます）

これで、表示されるならExcel自体には問題がないということになりますが・・・