RYUさんに教えてもらったコーディングを、あれこれ操作しているうちに出来ました。(私の後輩が発見) ありがとうございました。 Set ExcelObj = CreateObject ("Excel.Application") ExcelObj.Visible = True ExcelObj.Workbooks.Add Dim sheet As Variant ' ページ設定 Set sheet = ExcelObj.worksheets(1) '全体の制御 With sheet.PageSetup .Orientation = 2 ' = xlLandscape ' 横方向 .PaperSize = 9 ' = xlPaperA4 ' A4用紙 End With