Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/17.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Vba 调整图形到页面的大小_Vba_Charts - Fatal编程技术网
Fatal编程技术网
  • vba/
  • Vba 调整图形到页面的大小

Vba 调整图形到页面的大小

vba charts

Vba 调整图形到页面的大小,vba,charts,Vba,Charts,目前，我有一个宏，可以复制一个工作簿的图形，每隔35行将其复制到另一个工作簿的工作表中，以便它们都位于新页面上。使用粘贴的图表，如何调整其大小以使其适合页面？现在，页面上的每个图表周围都有一堆空白。这就是我到目前为止看到的 source.ChartObjects(i).Activate ActiveChart.ChartArea.Copy wsTemp.Cells(x, 1).PasteSpecial

目前，我有一个宏，可以复制一个工作簿的图形，每隔35行将其复制到另一个工作簿的工作表中，以便它们都位于新页面上。使用粘贴的图表，如何调整其大小以使其适合页面？现在，页面上的每个图表周围都有一堆空白。这就是我到目前为止看到的

source.ChartObjects(i).Activate
                ActiveChart.ChartArea.Copy
                wsTemp.Cells(x, 1).PasteSpecial
                x = x + 35
请尝试将图表移动到图表工作表：

粘贴相隔35行的图表不能确保每个图表都打印在新的页面上；无论是谁在玩分页符和打印设置，你都将任由其摆布。通过将每个图表放在自己的图表页上，它们不可能被打印在同一页上。它还可以确保每个图表填满整个页面。

如果我将所有内容都放在一张新的工作表上，那么最后如何将所有内容导出到一个PDF中，因为这是我的最终目标。嗯，我正在尝试将图表从一个工作簿移动到另一个工作簿，但是，这只允许我在源工作簿中创建一个新的工作表。有没有办法解决这个问题？我是否可以在当前工作簿中创建一个模板工作表并将所有图形复制到那里？ 
source.ChartObjects(i).Activate
ActiveChart.Location Where:=xlLocationAsNewSheet