将一定范围的文字放在图表的页脚上
我有单元格N27：N30中的文本，我希望将该文本复制到我的图表工作表上。 有谁知道是否以及如何做到这一点？ 我不熟悉如何使用VBA创build页脚…谢谢
像这样的东西。
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