Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
3281 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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 -
引用なし
パスワード
   お騒がせしました。
リボン＜アドイン＞の中に有りました。
２００７の大変化は混乱の極みですが、一応互換性は保っているようで安心しました。
【63148】Re:2003で作ったVBAが2007で動かない
発言  kanabun  - 09/10/10(土) 21:02 -
引用なし
パスワード
   ▼古希 さん：
>お騒がせしました。
>リボン＜アドイン＞の中に有りました。
>２００７の大変化は混乱の極みですが、一応互換性は保っているようで安心しました。
ですよね。(^^

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

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

です。
"Cell" というメニューバーは２つありますが。
【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" というメニューバーは２つありますが。

いろいろご親切に有難うございました！
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
3281 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free