EXCEL VBA user1

エクセル
FROG ふろっぐ
 
  • オプション

    本文印刷

    お気に入りに追加

  • 検索

    Googlewwwjp-ia
     

    Googlewwwjp-ia
     
  • 情報

  • 関連

[エクセル][EXCEL VBA user1]


[ユーザー設定]-[ツールバー]
''[標準]
Application.CommandBars("Standard").Visible = False
Application.CommandBars("Standard").Visible = True
''[書式設定]
Application.CommandBars("Formatting").Visible = False
Application.CommandBars("Formatting").Visible = True
''[3-Dの設定]
Application.CommandBars("3-D Settings").Visible = False
Application.CommandBars("3-D Settings").Visible = True
''[Visual Basic]
Application.CommandBars("Visual Basic").Visible = False
Application.CommandBars("Visual Basic").Visible = True
''[Web]
Application.CommandBars("Web").Visible = True
Application.CommandBars("Web").Visible = False
''[グラフ]
Application.CommandBars("Chart").Visible = True
Application.CommandBars("Chart").Visible = False
''[グラフメニューバー]
Application.CommandBars("Chart Menu Bar").Visible = True
Application.CommandBars("Chart Menu Bar").Visible = False
''[クリップボード]
Application.CommandBars("Clipboard").Visible = True
Application.CommandBars("Clipboard").Visible = False
''[コントロールツールボックス]
Application.CommandBars("Control Toolbox").Visible = False
Application.CommandBars("Control Toolbox").Visible = True
''[チェック/コメント]
Application.CommandBars("Reviewing").Visible = False
Application.CommandBars("Reviewing").Visible = True
''[デザインモードの終了]
Application.CommandBars("Exit Design Mode").Visible = True
Application.CommandBars("Exit Design Mode").Visible = False
''[ビボットテーブル]
Application.CommandBars("PivotTable").Visible = True
Application.CommandBars("PivotTable").Visible = False
''[フォーム]
Application.CommandBars("Forms").Visible = True
Application.CommandBars("Forms").Visible = False
''[ワークシートメニューバー]
Application.CommandBars("Worksheet Menu Bar").Visible = False
Application.CommandBars("Worksheet Menu Bar").Visible = True
''[ワークシート分析]
Application.CommandBars("Auditing").Visible = True
Application.CommandBars("Auditing").Visible = False
''[ワードアート]
Application.CommandBars("WordArt").Visible = True
Application.CommandBars("WordArt").Visible = False
''[影の設定]
Application.CommandBars("Shadow Settings").Visible = True
Application.CommandBars("Shadow Settings").Visible = False
''[外部データ]
Application.CommandBars("External Data").Visible = True
Application.CommandBars("External Data").Visible = False
''[記録終了]
Application.CommandBars("Stop Recording").Visible = False
Application.CommandBars("Stop Recording").Visible = True
''[更新]
'’記録不可
''[循環参照]
Application.CommandBars("Circular Reference").Visible = True
Application.CommandBars("Circular Reference").Visible = False
''[図]
Application.CommandBars("Picture").Visible = False
Application.CommandBars("Picture").Visible = True
''[図形描画]
Application.CommandBars("Drawing").Visible = False
Application.CommandBars("Drawing").Visible = True
''[全画面表示]
Application.CommandBars("Full Screen").Visible = True
Application.CommandBars("Full Screen").Visible = False

[新規作成]
Application.CommandBars.Add(Name:="ユーザー設定 1").Visible = True
[名前の変更]
Application.CommandBars("ユーザー設定 1").Name = "ユーザー設定 2"
[削除]
Application.CommandBars("ユーザー設定 2").Delete





Production Japan Import Application. Since 1998