Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


3280 / 13645 ツリー ←次へ | 前へ→

【63145】2003で作ったVBAが2007で動かない 古希 09/10/10(土) 20:27 質問[未読]
【63146】Re:2003で作ったVBAが2007で動かない kanabun 09/10/10(土) 20:45 発言[未読]
【63147】Re:2003で作ったVBAが2007で動かない 古希 09/10/10(土) 20:47 お礼[未読]
【63148】Re:2003で作ったVBAが2007で動かない kanabun 09/10/10(土) 21:02 発言[未読]
【63153】Re:2003で作ったVBAが2007で動かない 古希 09/10/10(土) 23:05 お礼[未読]

【63145】2003で作ったVBAが2007で動かない
質問  古希  - 09/10/10(土) 20:27 -

引用なし
パスワード
   数年前2003で作ったVBAの右クリックメニューが2007で動きません。
勿論VBA可能にしたExcel2007です。
原因と対策をお教えください。

This WorkBook に書いたコード↓

Sub Workbook_Open()

On Error Resume Next

With Application.CommandBars("Worksheet Menu Bar").Controls.Add(Type:=msoControlPopup)
  .Caption = "はがき印刷"

  With .Controls.Add(Type:=msoControlButton)
   .Caption = "汎用宛名印刷"
   .OnAction = "MainCord"
  End With

  With .Controls.Add(Type:=msoControlButton)
   .Caption = ""
  End With
 
  With .Controls.Add(Type:=msoControlButton)
   .Caption = "返信用印刷"
   .OnAction = "返信面印刷"
  End With

  With .Controls.Add(Type:=msoControlButton)
   .Caption = ""
  End With
 
  With .Controls.Add(Type:=msoControlButton)
   .Caption = "送信者情報入力"
   .OnAction = "送信者情報入力"
  End With
End With
 
End Sub

【63146】Re:2003で作ったVBAが2007で動かない
発言  kanabun  - 09/10/10(土) 20:45 -

引用なし
パスワード
   ▼古希 さん:

> CommandBars("Worksheet Menu Bar")
これは 右クリックメニューではなく、いわゆるメニューバーそのもの
ですね。

>数年前2003で作ったVBAの右クリックメニューが2007で動きません。
>勿論VBA可能にしたExcel2007です。
>原因と対策をお教えください。

動かないのでなく、リボンの「アドイン」タブに潜んでいて、
見えないからではないですか?

【63147】Re:2003で作ったVBAが2007で動かない
お礼  古希  - 09/10/10(土) 20:47 -

引用なし
パスワード
   お騒がせしました。
リボン<アドイン>の中に有りました。
2007の大変化は混乱の極みですが、一応互換性は保っているようで安心しました。

【63148】Re:2003で作ったVBAが2007で動かない
発言  kanabun  - 09/10/10(土) 21:02 -

引用なし
パスワード
   ▼古希 さん:
>お騒がせしました。
>リボン<アドイン>の中に有りました。
>2007の大変化は混乱の極みですが、一応互換性は保っているようで安心しました。
ですよね。(^^

それから、ついでに
「右クリックメニュー」に登録なら、

              "Worksheet Menu Bar"
                ↓ 
With Application.CommandBars("Cell").Controls.Add(Type:=msoControlPopup, Temporary:=True)

です。
"Cell" というメニューバーは2つありますが。

【63153】Re:2003で作ったVBAが2007で動かない
お礼  古希  - 09/10/10(土) 23:05 -

引用なし
パスワード
   kanabunさんへ

> 「右クリックメニュー」に登録なら、
>
>              "Worksheet Menu Bar"
>                ↓ 
>With Application.CommandBars("Cell").Controls.Add(Type:=msoControlPopup, Temporary:=True)
>
>です。
>"Cell" というメニューバーは2つありますが。

いろいろご親切に有難うございました!

3280 / 13645 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free