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

    VBAの力量をはかる3つの質問

    先日、Twitterではけた氏の面白いツイートがありました。3…

  2. Office関連

    ファイルをBase64エンコード・デコードするVBAマクロ

    以前書いたファイルのBase64エンコード・デコード処理を行うVBAマ…

  3. Office関連

    ヘッドレス ChromeとSeleniumBasicでWebページ全体のスクリーンショットを撮る方法…

    先日、ヘッドレス ChromeでWebページ全体のスクリーンショットを…

  4. Office関連

    VBAでTTSエンジンの各種情報を列挙する

    今回はTTSエンジンの各種情報を列挙するマクロを紹介します。Mic…

  5. アイコン一覧

    Office 2013 アイコン一覧(V)

    ・Office 2013 アイコン一覧 NUM…

  6. Office アドイン

    [Office用アプリ]「ActiveViewChanged」イベントと「getActiveView…

    v1.1で追加された、ビューが変更された時に発生するイベント「Acti…

コメント

  • コメント (0)

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

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

Time limit is exhausted. Please reload CAPTCHA.

※本ページはプロモーションが含まれています。

Translate

最近の記事

アーカイブ

PAGE TOP