[[20170223091644]] 『マクロのバージョンによる修正』(太郎23) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『マクロのバージョンによる修正』(太郎23)

以前,WindowsXPでEXCEL2000あたりで以下のマクロを作って使っていたのですが

 パソコンがWindows7に切り替わって,同時にEXCEL2007に切り替わってしまって
同じEXECLのワークシートで下記のマクロを実行したところ動きません。
 というより反応がありません。
 どこをどう直せばいいにでしょうか。
以前マクロを勉強して作ったのですが,何年も経過してマクロをみんな忘れてしまい直しようがありません。助けてください。
  内容は「ボタン作成表示」というマクロを実行スすると,
 ワークシートに「図面表示ボタン」が浮いて現れるというものです。
 これが反応しないのです。

Sub ボタン作成表示()

Dim MyBar As CommandBar
Dim MyMenu As CommandBarButton

         On Error Resume Next

         CommandBars("MyMenu").Delete

       Set MyBar = Application.CommandBars.Add(Name:="MyMenu", Position:=msoBarFloating, Temporary:=True)

       Set MyMenu = MyBar.Controls.Add(Type:=msoControlButton)

         With MyMenu
             .Caption = "図面表示ボタン           "
             .Style = msoButtonIconAndWrapCaption
              .TooltipText = "このボタンでセルにある図面を開きます。"
             .FaceId = 2949
             .OnAction = "マクロ1"
         End With

         Application.CommandBars("MyMenu").Visible = True
         MyMenu.Width = 130

End Sub

< 使用 Excel:Excel2007、使用 OS:Windows7 >


メニューバーのアドイン・タブに表示されませんか
(mm) 2017/02/23(木) 09:43

 2007 は持っていないので検証できませんが

http://officetanaka.net/excel/excel2007/028.htm

 こういったページに、この悩ましい現象の説明と対応策がかかれていますので参照してみてください。

( β) 2017/02/23(木) 09:50


 回答ありがとうございました。
    アドインのメニュの内部にできていました。
  これはEXCEL2007空の欠点・,問題点のようですね。
ネットには以下のように書いてありました。
今まで当たり前に操作していたメニューとツールバーがなくなってしまったのですから。これは従来のマクロにも影響を与えます。たとえばマクロでツールバーを作成したり、独自のメニューを追加しているようなシステムは、Excel 2007ではエラーにはならないものの、今までと同じUIを提供することはできなくなりました。
          (太郎23)

コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.