两个问题50′（VB控制EXCEL）

Question

问题一、
    如何写代码设置纸张格式，例如我想将纸张设置成“横向”打印？
问题二、
    如何在表头插入一张图片？

Answer 1

问题二:
ActiveSheet.Pictures.Insert("图片路径").Select

Answer 2

问题二我已经如是拿下了：
With xlSheet.PageSetup.LeftHeaderPicture
        .FileName = "D:\MASBU6\bmp\sae.bmp"
        .Height = 29
        .Width = 90
        End With
    xlSheet.PageSetup.LeftHeader = "&G"就等问题一了，另外再加个问题：
        在EXCEL里通过设置可以重复打某几行作为报表的行标题，可是在VB里如何用代码控制啊？

Answer 3

With ActiveSheet.PageSetup
        ……
        .Orientation = xlLandscape
（或者）
        .Orientation = xlPortrait        .PaperSize = xlPaperA4（设置纸型）    End With