Ｐａｇｅ 20 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼ツールバーの移動 のそのそ 02/9/2(月) 11:17 ─────────────────────────────────────── ■題名 ： ツールバーの移動 ■名前 ： のそのそ ■日付 ： 02/9/2(月) 11:17 -------------------------------------------------------------------------
| おはようございます。 エクセル2000で作ったマクロで、2002でうまくいかなくて困っています。 ツールバーを1行にするところなのですが、メニューバーをRowIndex = １にし、 ツールバーをRowIndex = 2にする方法を使いましたが、何かをRowIndex = ２に すると、それまでRowIndex = 2だったものが下に移動してしまいます。 1行に1種類のツールバーしか入らず、5行、6行となってしまいます。 質問箱３のログ10520を参考にleft値を設定してもだめでした。 何かよい方法を教えてください。 'メニューバーは1行目に Application.CommandBars("Worksheet Menu Bar").RowIndex = 1 Application.CommandBars("Chart Menu Bar").RowIndex = 1 '表示されているすべてのコマンドバーを2行目に With Application For intCommandBars = 1 To .CommandBars.Count If .CommandBars(intCommandBars).Enabled = True Then If .CommandBars(intCommandBars).RowIndex = 1 Then Else .CommandBars(intCommandBars).RowIndex = 2 End If Else End If Next End With |