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関連

    OneNoteの指定したセクションをページごとに指定した形式で出力するマクロ

    今回はOneNoteの指定したセクションをページごとに指定した形式で出…

  2. Office アドイン

    Excel向けPower BI カスタム ビジュアル機能の紹介

    Power BI ブログの記事「Excel announces new…

  3. Office アドイン

    [Office用アプリ]アプリ開発コンテスト・受賞者発表

    以前書いた記事でお知らせしていた「Apps for Office アプ…

  4. Office関連

    [Excel Services ECMAScript]ActiveWorkbookのシート数を取得す…

    埋め込んだExcelワークブックのシート数を取得するコードです。 …

コメント

  • コメント (0)

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

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

Time limit is exhausted. Please reload CAPTCHA.

Translate

Chinese (Simplified)Chinese (Traditional)EnglishFrenchGermanJapaneseKoreanRussianSpanish

最近の記事

アーカイブ

PAGE TOP