Excel 在图表工作表的页脚中放置一系列文本

我在单元格N27:N30中有文本，我希望将该文本复制到图表页的页脚中。有人知道这是否可以做到，以及如何做到吗？我不熟悉如何使用VBA创建页脚…谢谢诸如此类的东西

Application.PrintCommunication = False
With ActiveChart.PageSetup
    .LeftHeader = ""
    .CenterHeader = ""
    .RightHeader = ""

'These lines are where you use data from the worksheet for you footer values
    .LeftFooter = ActiveWorkbook.Sheets("ChartSheet").Range("N27").Value
    .CenterFooter = ActiveWorkbook.Sheets("ChartSheet").Range("N28").Value & " " & ActiveWorkbook.Sheets("ChartSheet").Range("N29").Value
    .RightFooter = ActiveWorkbook.Sheets("ChartSheet").Range("N30").Value

    .LeftMargin = Application.InchesToPoints(0.7)
    .RightMargin = Application.InchesToPoints(0.7)
    .TopMargin = Application.InchesToPoints(0.75)
    .BottomMargin = Application.InchesToPoints(0.75)
    .HeaderMargin = Application.InchesToPoints(0.3)
    .FooterMargin = Application.InchesToPoints(0.3)
    .ChartSize = xlScreenSize
    .CenterHorizontally = False
    .CenterVertically = False
    .Orientation = xlLandscape
    .Draft = False
    .OddAndEvenPagesHeaderFooter = False
    .DifferentFirstPageHeaderFooter = False
    .EvenPage.LeftHeader.Text = ""
    .EvenPage.CenterHeader.Text = ""
    .EvenPage.RightHeader.Text = ""
    .EvenPage.LeftFooter.Text = ""
    .EvenPage.CenterFooter.Text = ""
    .EvenPage.RightFooter.Text = ""
    .FirstPage.LeftHeader.Text = ""
    .FirstPage.CenterHeader.Text = ""
    .FirstPage.RightHeader.Text = ""
    .FirstPage.LeftFooter.Text = ""
    .FirstPage.CenterFooter.Text = ""
    .FirstPage.RightFooter.Text = ""
    .PaperSize = xlPaperLetter
    .FirstPageNumber = xlAutomatic
    .BlackAndWhite = False
    .Zoom = 100
End With
Application.PrintCommunication = True

像这样的

Application.PrintCommunication = False
With ActiveChart.PageSetup
    .LeftHeader = ""
    .CenterHeader = ""
    .RightHeader = ""

'These lines are where you use data from the worksheet for you footer values
    .LeftFooter = ActiveWorkbook.Sheets("ChartSheet").Range("N27").Value
    .CenterFooter = ActiveWorkbook.Sheets("ChartSheet").Range("N28").Value & " " & ActiveWorkbook.Sheets("ChartSheet").Range("N29").Value
    .RightFooter = ActiveWorkbook.Sheets("ChartSheet").Range("N30").Value

    .LeftMargin = Application.InchesToPoints(0.7)
    .RightMargin = Application.InchesToPoints(0.7)
    .TopMargin = Application.InchesToPoints(0.75)
    .BottomMargin = Application.InchesToPoints(0.75)
    .HeaderMargin = Application.InchesToPoints(0.3)
    .FooterMargin = Application.InchesToPoints(0.3)
    .ChartSize = xlScreenSize
    .CenterHorizontally = False
    .CenterVertically = False
    .Orientation = xlLandscape
    .Draft = False
    .OddAndEvenPagesHeaderFooter = False
    .DifferentFirstPageHeaderFooter = False
    .EvenPage.LeftHeader.Text = ""
    .EvenPage.CenterHeader.Text = ""
    .EvenPage.RightHeader.Text = ""
    .EvenPage.LeftFooter.Text = ""
    .EvenPage.CenterFooter.Text = ""
    .EvenPage.RightFooter.Text = ""
    .FirstPage.LeftHeader.Text = ""
    .FirstPage.CenterHeader.Text = ""
    .FirstPage.RightHeader.Text = ""
    .FirstPage.LeftFooter.Text = ""
    .FirstPage.CenterFooter.Text = ""
    .FirstPage.RightFooter.Text = ""
    .PaperSize = xlPaperLetter
    .FirstPageNumber = xlAutomatic
    .BlackAndWhite = False
    .Zoom = 100
End With
Application.PrintCommunication = True

像这样的

Application.PrintCommunication = False
With ActiveChart.PageSetup
    .LeftHeader = ""
    .CenterHeader = ""
    .RightHeader = ""

'These lines are where you use data from the worksheet for you footer values
    .LeftFooter = ActiveWorkbook.Sheets("ChartSheet").Range("N27").Value
    .CenterFooter = ActiveWorkbook.Sheets("ChartSheet").Range("N28").Value & " " & ActiveWorkbook.Sheets("ChartSheet").Range("N29").Value
    .RightFooter = ActiveWorkbook.Sheets("ChartSheet").Range("N30").Value

    .LeftMargin = Application.InchesToPoints(0.7)
    .RightMargin = Application.InchesToPoints(0.7)
    .TopMargin = Application.InchesToPoints(0.75)
    .BottomMargin = Application.InchesToPoints(0.75)
    .HeaderMargin = Application.InchesToPoints(0.3)
    .FooterMargin = Application.InchesToPoints(0.3)
    .ChartSize = xlScreenSize
    .CenterHorizontally = False
    .CenterVertically = False
    .Orientation = xlLandscape
    .Draft = False
    .OddAndEvenPagesHeaderFooter = False
    .DifferentFirstPageHeaderFooter = False
    .EvenPage.LeftHeader.Text = ""
    .EvenPage.CenterHeader.Text = ""
    .EvenPage.RightHeader.Text = ""
    .EvenPage.LeftFooter.Text = ""
    .EvenPage.CenterFooter.Text = ""
    .EvenPage.RightFooter.Text = ""
    .FirstPage.LeftHeader.Text = ""
    .FirstPage.CenterHeader.Text = ""
    .FirstPage.RightHeader.Text = ""
    .FirstPage.LeftFooter.Text = ""
    .FirstPage.CenterFooter.Text = ""
    .FirstPage.RightFooter.Text = ""
    .PaperSize = xlPaperLetter
    .FirstPageNumber = xlAutomatic
    .BlackAndWhite = False
    .Zoom = 100
End With
Application.PrintCommunication = True

像这样的

Application.PrintCommunication = False
With ActiveChart.PageSetup
    .LeftHeader = ""
    .CenterHeader = ""
    .RightHeader = ""

'These lines are where you use data from the worksheet for you footer values
    .LeftFooter = ActiveWorkbook.Sheets("ChartSheet").Range("N27").Value
    .CenterFooter = ActiveWorkbook.Sheets("ChartSheet").Range("N28").Value & " " & ActiveWorkbook.Sheets("ChartSheet").Range("N29").Value
    .RightFooter = ActiveWorkbook.Sheets("ChartSheet").Range("N30").Value

    .LeftMargin = Application.InchesToPoints(0.7)
    .RightMargin = Application.InchesToPoints(0.7)
    .TopMargin = Application.InchesToPoints(0.75)
    .BottomMargin = Application.InchesToPoints(0.75)
    .HeaderMargin = Application.InchesToPoints(0.3)
    .FooterMargin = Application.InchesToPoints(0.3)
    .ChartSize = xlScreenSize
    .CenterHorizontally = False
    .CenterVertically = False
    .Orientation = xlLandscape
    .Draft = False
    .OddAndEvenPagesHeaderFooter = False
    .DifferentFirstPageHeaderFooter = False
    .EvenPage.LeftHeader.Text = ""
    .EvenPage.CenterHeader.Text = ""
    .EvenPage.RightHeader.Text = ""
    .EvenPage.LeftFooter.Text = ""
    .EvenPage.CenterFooter.Text = ""
    .EvenPage.RightFooter.Text = ""
    .FirstPage.LeftHeader.Text = ""
    .FirstPage.CenterHeader.Text = ""
    .FirstPage.RightHeader.Text = ""
    .FirstPage.LeftFooter.Text = ""
    .FirstPage.CenterFooter.Text = ""
    .FirstPage.RightFooter.Text = ""
    .PaperSize = xlPaperLetter
    .FirstPageNumber = xlAutomatic
    .BlackAndWhite = False
    .Zoom = 100
End With
Application.PrintCommunication = True

---

找出要执行的操作，然后在打开宏录制器的情况下执行。不要直接使用生成的代码——但请查看代码中使用了Excel对象模型的哪一部分。确定要执行的操作，然后在打开宏录制器的情况下执行。不要直接使用生成的代码——但请查看代码中使用了Excel对象模型的哪一部分。确定要执行的操作，然后在打开宏录制器的情况下执行。不要直接使用生成的代码——但请查看代码中使用了Excel对象模型的哪一部分。确定要执行的操作，然后在打开宏录制器的情况下执行。不要直接使用生成的代码——但是看看代码中使用了Excel对象模型的哪一部分。这正是我要找的！谢谢你的指导！正是我要找的！谢谢你的指导！正是我要找的！谢谢你的指导！正是我要找的！谢谢你的指导！