Office関連

「印刷の向き」の変更を検知するExcelマクロ

MSDNフォーラムに「「印刷の向き」の「縦」「横」ボタンがクリックされた時のイベントを取得したい」という質問があり、回答用にコードを書きました。

'ThisWorkbook
Option Explicit

Private WithEvents cbars As Office.CommandBars
Private flgPo As XlPageOrientation

Private Sub Workbook_Open()
  Set cbars = Application.CommandBars
  flgPo = ActiveSheet.PageSetup.Orientation
End Sub

Private Sub cbars_OnUpdate()
  Dim po As XlPageOrientation
  
  po = ActiveSheet.PageSetup.Orientation
  If po <> flgPo Then
    Select Case po
      Case xlLandscape: MsgBox "印刷の向きが「横」になりました。"
      Case xlPortrait: MsgBox "印刷の向きが「縦」になりました。"
    End Select
    flgPo = po
  End If
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
  flgPo = Sh.PageSetup.Orientation
End Sub

下記記事で紹介しているように、コマンドバーのイベントやリボンのカスタマイズ(command要素のonAction属性)で対応できれば良かったのですが、今回は難しそうだったので、CommandBarsオブジェクトのOnUpdateイベントを利用しました。

【スナックワールド】でんぢゃらすソードをLv.8まで強化してみました。前のページ

【スナックワールド】ドラゴンナイトの限界突破攻略次のページ

関連記事

  1. Office関連

    GetSpellingSuggestionsメソッドで文法上の誤りの修正候補は取得できない?

    前回と前々回の記事でスペルチェック、文章校正に関するWordマクロを扱…

  2. Office関連

    [Office]「タッチ」タブの正体!?

    最近下記のようにOfficeのリボンにある「タッチ」タブについての質問…

  3. Windows 10

    起動中のMicrosoft EdgeからタイトルとURLを取得するVBAマクロ(DOM編)

    前回の記事で、UI Automationを使って起動中のMicroso…

コメント

  • コメント (0)

  • トラックバックは利用できません。

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

Time limit is exhausted. Please reload CAPTCHA.

Translate

Chinese (Simplified)Chinese (Traditional)EnglishFrenchGermanJapaneseKoreanRussianSpanish

最近の記事

アーカイブ

PAGE TOP