Office関連

「図のリセット」を実行するExcelマクロ

Msdn フォーラムに「Excel2010-VBA 画像「図の書式設定」のリセット」という質問がありました。

リボンの書式タブ → 調整グループ → 図のリセット(スプリットボタン) → 「図のリセット」を実行したい、という質問で、マクロの記録機能ではコードが記録されないようでした。

Excelに限らずOfficeアプリケーションの機能をマクロで実行する方法は色々とありますが、こんなときはCommandBarsオブジェクトの「ExecuteMso」メソッドを使うのが便利です。

Public Sub ResetPicture()
  '[図のリセット]が有効な場合のみ実行
  With Application.CommandBars
    If .GetEnabledMso("PictureReset") = True Then .ExecuteMso "PictureReset"
  End With
End Sub

ResetPicture_01

ExecuteMsoメソッドは、引数として機能(コントロール)のIDを渡すことで、そのコントロールを実行するメソッドで、上記コードでは「GetEnabledMso」メソッドを使ってコントロールが有効な状態か無効な状態かを判断し、有効な場合のみ処理を実行するようにしています。

コントロールのIDは、下記Webページで紹介しているコントロールIDリストから探しても良いし、

・Office製品のコントロール IDリスト – Curah!
http://curah.microsoft.com/33208/office%E8%A3%BD%E5%93%81%E3%81%AE%E3%82%B3%E3%83%B3%E3%83%88%E3%83%AD%E3%83%BC%E3%83%AB-id%E3%83%AA%E3%82%B9%E3%83%88

下記Webページで紹介しているように、クイック アクセス ツール バーから調べることもできます。

・マクロで実行したいコマンドのIDを調べる簡単な方法
//www.ka-net.org/blog/?p=4438

ちなみに「図とサイズのリセット」の場合は、下記コードのようになります。

Public Sub ResetAndSizePicture()
  '[図とサイズのリセット]が有効な場合のみ実行
  With Application.CommandBars
    If .GetEnabledMso("PictureResetAndSize") = True Then .ExecuteMso "PictureResetAndSize"
  End With
End Sub

関連記事

  1. アイコン一覧

    Office 2013 アイコン一覧(G)

    ・Office 2013 アイコン一覧 NUM…

  2. Office関連

    ページ毎に処理を行うWordマクロ

    Wordのマクロで「ページ毎に○○したい」という要望があったので、簡単…

  3. Office関連

    Office 2016でACROBATタブが表示されない!?(Acrobat DC)

    2015/10/16 追記:先日公開されたアップデート「15.00…

コメント

  1. この記事へのコメントはありません。

  1. この記事へのトラックバックはありません。

Time limit is exhausted. Please reload CAPTCHA.

最近の記事

アーカイブ

RapidSSL_SEAL-90x50
PAGE TOP