Excel VBA 質問スレッド No.74 (未解決)

余白の設定をセル参照で変数にしたい

投稿者 : こねぎ     投稿日時 : 2020/05/20(Wed) 23:13:11     OS : Windows 10     EXCEL : Excel 2013
1枚のワークシートから、複数のBOOKの印刷設定ができるようなVBAを組もうとしています。ファイル、シート、印刷範囲、用紙サイズ、用紙方向まではうまくいったのですが、拡大・縮小と余白の設定でつまずいてしまいました。いろいろネットで調べてみたのですが、うまくいきません。


下記は余白の設定、印刷時の中央調整をワークシートのセルに参照させて設定しようとしています。余白の数値を変数として扱う際に、不都合が出ているのでしょうか?余白の数値がすべて「0」になってしまいます。変数部分に直接数値を書き込むとうまく動くのですが、変数に置き換えるとどうもすべて「0」と認識されるようです。どなたかご教授願います。

Sub  余白設定()

Dim TMGN As Variant
Dim BMGN As Variant
Dim LMGN As Variant
Dim RMGN As Variant
Dim HMGN As Variant
Dim FMGN As Variant

Dim i As Integer
i = 16

TMGN = Cells(i, 1).Value  (セルA16に42.5pt:1.5㎝、FALSE)など入力
BMGN = Cells(i, 2).Value  (セルB16に42.5pt:1.5㎝、FALSE)など入力
LMGN = Cells(i, 3).Value  (セルC16に42.5pt:1.5㎝、FALSE)など入力
RMGN = Cells(i, 4).Value  (セルD16に42.5pt:1.5㎝、FALSE)など入力
HMGN = Cells(i, 5).Value  (セルE16に28.3pt:1.0㎝、FALSE)など入力
FMGN = Cells(i, 6).Value  (セルF16に28.3pt:1.0㎝、FALSE)など入力

ActiveSheet.PageSetup.TopMargin = TMGN
ActiveSheet.PageSetup.BottomMargin = BMGN
ActiveSheet.PageSetup.LeftMargin = LMGN
ActiveSheet.PageSetup.RightMargin = RMGN
ActiveSheet.PageSetup.HeaderMargin = HMGN
ActiveSheet.PageSetup.FooterMargin = FMGN

Dim HC As Variant
Dim VC As Variant

HC = Cells(i, 7).Value  (セルG16にFALSE)など入力
VC = Cells(i, 8).Value  (セルH16にTrue)など入力

ActiveSheet.PageSetup.CenterHorizontally = HC
ActiveSheet.PageSetup.CenterVertically = VC

End Sub

スポンサード リンク
 
 
当掲示板について
返信入力フォーム
お 名 前  :
内  容   :
ステータス  : この質問を解決済みにする

認証コード  :
        キャプチャ画像


( 処理日時 : 2020-08-10 17:25:24 )

Page
Top