在图表之间插入分页符

时间:2012-07-20 01:17:12

标签: excel-vba page-break vba excel

我有一张Excel工作表,我正在组织一系列图表。图表垂直堆叠在另一个上(在组织之间有一些间距和标签)。图表不适合单个打印页面,因此我必须在正确的位置插入分页符。图表的数量和每个图表的大小都可以更改,因此我不确切知道在运行时间之前将分页放在何处。

我知道我想在每个页面上打印两个图表。所以,我想要做的是在第二张图表之后或第三张图表之前(任何一种方式)放置分页符。但在我看来,分页符总是与行相关联,而不是与对象(如图表)相关联。

有没有办法:

1)将分页符与对象(例如ActiveSheet.HPageBreaks.Add before:=ActiveSheet.ChartObject("myChart3")

相关联

2)确定对象顶部所在的行。如果我可以确定这一行,那么我可以轻松地将分页符放在该行。例如,我可以获得ActiveSheet.ChartObject("myChart").Top,但我不知道这对应于哪一行。我尝试将每一行设置为1的高度,然后进行一对一的对应,但它不匹配。

0 个答案:

没有答案