在vb中怎样设置excel的页眉的字体大小

Question

xlSheet.PageSetup.LeftHeader = "&""黑体,加粗""&36页眉"'设为36号字体,黑体，加粗更多见
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/vbaxl10/html/xlidxPageSetupFormatCodes.asp

Answer 1

    With ActiveSheet.PageSetup
        .LeftHeader = "&""@黑体,Regular""&48aaaa"
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
        .LeftMargin = Application.InchesToPoints(0.75)
        .RightMargin = Application.InchesToPoints(0.75)
        .TopMargin = Application.InchesToPoints(1)
        .BottomMargin = Application.InchesToPoints(1)
        .HeaderMargin = Application.InchesToPoints(0.5)
        .FooterMargin = Application.InchesToPoints(0.5)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .PrintQuality = 600
        .CenterHorizontally = False
        .CenterVertically = False
        .Orientation = xlPortrait
        .Draft = False
        .PaperSize = xlPaperLetter
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = 100
    End With'///////////////////////////////////////////////
      .LeftHeader = "&""@黑体,Regular""&48aaaa"