0

ExcelＶＢＡ 配布したアドインファイルが上手く動かない？お世話になっています。職場にて、よく使用するコマンドを自作ツールバーやコンテキストメニューに登録するVBAをアドインに組み込んでいるのですが、他の社員の方も使用されたいということでアドインファイルを渡したのですが、コンテキストメニューの方が上手く表示されません。具体的に言いますと、「値貼付」というコマンドをコンテキストメニューに表示したいので、Sub valpaste() On Error Resume Next Selection.PasteSpecial Paste:=xlPasteValuesEnd SubというコードをModule1に記述し、Module3にSub AddMenu() Dim Newb Set Newb = Application.CommandBars("Cell").Controls.Add _ (Type:=msoControlButton, before:=3, Temporary:=True) With Newb .Caption = "値貼付" .OnAction = "valpaste" .FaceId = 370 End WithEnd SubSub delmenu()On Error Resume Next With Application.CommandBars("cell") .Controls("値貼付").Delete End WithEnd Subという形で、追加・削除を行うコードを作成、ThisworkbookのモジュールにPrivate Sub Workbook_BeforeClose(Cancel As Boolean) On Error Resume Next Application.CommandBars("オリジナル").Delete Call delmenuEnd SubPrivate Sub Workbook_Open() Call MakeToolBar Call AddMenuEnd Subと記述し、ファイルを開くと追加、閉じるときに削除をするようにしています。（オリジナルのツールバーも同様に）これらを「Book1.xla」というアドインファイルに保存しており、このファイルをそのまま別の方にメールで添付してアドインに組み込んでいただきました。私のパソコンでは問題なく動作するのですが、配布先のパソコンでは、「値貼付」が表示されたりされなかったりします。動作順に書きますと、①新規ブックを開く→表示されない②「開く」から別のブックを開く→表示される③更に別のブックを開く→消える他にも新規ブックを開く→表示されないので、Addmenuを直接VBEから実行→表示されない仕方が無いので新規ブックを閉じてから既存のファイルを開く→「値貼付」いっぱい出てきたといった具合。コードも全く同じだし、Excelのバージョンも同じです（2003）。正直何がおかしいのか分かりません・。不勉強でお恥ずかしいのですが、助言をいただきたく思います。よろしくお願いいたします。PS わけあってこのYahooＩＤはもう使えなくなるので、コイン500枚差し上げます。

質問者が選んだベストソリューション

Yahoo!知恵袋 5014日前