Home » エクセルマクロ・Excel VBAの使い方 » ページ設定・PageSetup » VBAでコメントをシート内に表示する

VBAでコメントをシート内に表示する

対象：Excel2007, Excel2010, Excel2013

「excel vba 印刷プレビューコメント画面表示」
という検索で、このサイト・インストラクターのネタ帳へのアクセスがありました。

Excelでは［ページ設定］ダイアログ－［シート］タブ－［印刷］－［コメント］欄で、

コメントをシート内に表示して印刷プレビューするExcelマクロ

コメントをどう印刷するのかを指定できます。

［ページ設定］ダイアログ－［シート］タブ－［印刷］－［コメント］欄で「シートの末尾」を選択するとシートとは別にコメントだけを印刷でき、「画面表示イメージ」では画面に表示されているのと同じように印刷することができます。

［スポンサードリンク］

「excel vba 印刷プレビューコメント画面表示」
という検索キーワードは、「画面表示イメージ」を指定したのと同じ状態で印刷プレビューするVBA（Visual Basic for Applications）のコードを探していたのでしょう。

コメントをシート内に表示して印刷プレビューするサンプルマクロ

以下のようなマクロで、コメントをシート内に表示した状態で印刷プレビューすることができます。

Sub コメントをシート内に表示して印刷プレビュー()
　Application.DisplayCommentIndicator _
　　= xlCommentAndIndicator

　With ActiveSheet
　　.PageSetup.PrintComments = xlPrintInPlace
　　.PrintPreview
　End With
End Sub

サンプルマクロの解説

まず、ApplicationオブジェクトのDisplayCommentIndicatorプロパティに、定数・xlCommentAndIndicatorを指定することで、
　　Application.DisplayCommentIndicator _
　　　= xlCommentAndIndicator
すべてのコメントをワークシート上に表示します。

［ページ設定］ダイアログ－［シート］タブ－［印刷］－［コメント］欄で「画面表示イメージ」を選択したのと同じように、PageSetupオブジェクトのPrintCommentsプロパティに、定数・xlPrintInPlaceを指定して、
　　With ActiveSheet
　　　.PageSetup.PrintComments = xlPrintInPlace

印刷プレビューをしています。
　　　.PrintPreview

［スポンサードリンク］