印刷位置を中央に設定(CenterHorizontally, CenterVertically)
PageSetup.CenterHorizontally プロパティ
PageSetup.CenterHorizontally プロパティを使用して、印刷位置を水平方向の中央(余白を除く)に設定することができます。値の取得および設定が可能で、ブール型(Boolean)の値を使用します。
<取得>
object.PageSetup.CenterHorizontally
<設定>
object.PageSetup.CenterHorizontally = boolean
引数・戻り値
- object ・・・ 対象となる Worksheet オブジェクト を指定します。
- boolean ・・・ ブール型(Boolean)の値を指定します。True を指定すると、印刷位置を水平方向の中央(余白を除く)に設定します。
PageSetup.CenterVertically プロパティ
PageSetup.CenterVertically プロパティを使用して、印刷位置を垂直方向の中央(余白を除く)に設定することができます。値の取得および設定が可能で、ブール型(Boolean)の値を使用します。
<取得>
object.PageSetup.CenterVertically
<設定>
object.PageSetup.CenterVertically = boolean
引数・戻り値
- object ・・・ 対象となる Worksheet オブジェクト を指定します。
- boolean ・・・ ブール型(Boolean)の値を指定します。True を指定すると、印刷位置を垂直方向の中央(余白を除く)に設定します。
CenterHorizontally プロパティ・CenterVertically プロパティ 使用例
サンプルVBAソース
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 |
Sub Sample_Center() Dim w As Worksheet Set w = ActiveSheet '用紙の中央(余白除く)に印刷するように設定 w.PageSetup.CenterHorizontally = True w.PageSetup.CenterVertically = True '印刷プレビューを表示 w.PrintPreview End Sub |
実行結果
関連記事
-
-
ワークシートにクリップボードの内容を貼り付ける(Paste メソッド)
Paste メソッド 指定したワークシート上にクリップボードのデータを貼り付けま …
-
-
別のブックのマクロを実行(Run メソッド)
別のブックのマクロを実行 別のブックのマクロを実行するには、Run メソッド を …
-
-
ワークシートの非表示・再表示(Visible プロパティ)
ワークシートの表示・非表示 ワークシートを非表示にしたり、非表示にしたワークシー …
-
-
ワークシートの数を数える(Count プロパティ)
Count プロパティ 指定したWorksheets コレクションやSheets …
-
-
共有ファイルを開いているユーザー情報を取得(UserStatus プロパティ)
共有ファイルを開いているユーザー情報を取得 UserStatus プロパティは、 …
-
-
印刷品質を設定(PageSetup.PrintQuality プロパティ)
PageSetup.PrintQuality プロパティ PageSetup.P …
-
-
新しいウィンドウを開く(NewWindow メソッド)
NewWindow メソッド NewWindow メソッドで、任意のブックのコピ …
-
-
シートが保護されているか確認(ProtectContents プロパティ)
ProtectContents プロパティ ワークシートが保護されているかどうか …
-
-
印刷時の改ページ設定(Add,ResetAllPageBreaks)
改ページの追加と解除 印刷時に改ページを指定するには、HPageBreaks コ …
-
-
ページ数に合わせて印刷(FitToPagesTall, FitToPagesWide)
PageSetup.FitToPagesTall プロパティ PageSetup …