ExcelVBAでのページ設定

質問

ExcelVBAで、新しいブックを開き、そのページ設定をしたく、以下のような記述をしたのですが、余白の値が変わりません。
Private Sub Workbook_Open()
Workbooks.Add
With ActiveSheet.PageSetup
.TopMargin = Application.CentimetersToPoints(1.7)
.BottomMargin = Application.CentimetersToPoints(1.7)
.LeftMargin = Application.CentimetersToPoints(0.9)
.RightMargin = Application.CentimetersToPoints(1.1)
.HeaderMargin = Application.CentimetersToPoints(1.3)
.FooterMargin = Application.CentimetersToPoints(1.3)
End With
（以下省略）

Workbooks.Addを記述せず、新しいをブックを開かなければ、思い通りの動作をします。
外部ファイルを読み込んで、帳票を作るVBAなので、起動時に新しいブックを開きページ設定をしたいのですが、Workbook_Open()で、このような使い方は出来ないのでしょうか？

よろしくお願いします。
尚、会社のLANからgooの閲覧が規制されており、返事が遅れるかもしれません。ご理解の程、お願いします。

回答No.1

papayuka · ベストアンサー

アクティブシートではなく、明示的にシートを指定してやれば良いと思います。

Private Sub Workbook_Open()
Dim wb As Workbook
　Set wb = Workbooks.Add(xlWBATWorksheet)
　With wb.Worksheets(1).PageSetup
　　　 .TopMargin = Application.CentimetersToPoints(1.7)
　　　 .BottomMargin = Application.CentimetersToPoints(1.7)
　　　 .LeftMargin = Application.CentimetersToPoints(0.9)
　　　 .RightMargin = Application.CentimetersToPoints(1.1)
　　　 .HeaderMargin = Application.CentimetersToPoints(1.3)
　　　 .FooterMargin = Application.CentimetersToPoints(1.3)
　End With
End Sub

お礼

papayukaさん
早々にご回答頂き、ありがとうございます。
教えて頂いた方法で、正しく設定することが出来ました。
これまでVBは結構使ってきたのですが、VBAは初めてで、似て非なるものがあり、四苦八苦しております。

よろしければ１点教えて欲しいのですが、
wb.Worksheets(1)
の引数１は、何を表すのでしょうか？

よろしくお願いします。

回答No.2

papayuka

#1です。

> wb.Worksheets(1)の引数１は、何を表すのでしょうか？

シートの Index 番号です。
一番左のシートから 1,2,3・・・・のようになります。

お礼

papayuka様

深夜にもかかわらず早々に回答を頂ながら、お礼が遅くなり失礼しました。
少しずつVBAが分かって来ました。

ありがとうございました。