Изменить размер шрифта на страницу

Question

В настоящее время у меня есть макрос, который копирует графики для одной книги, копирует его на лист в другой книге каждые 35 строк друг от друга, чтобы все они были на новой странице. С вставленным графиком, как мне изменить его размер так, чтобы он соответствовал странице? Прямо сейчас на каждой диаграмме на странице есть куча белого пространства. Это то, что у меня есть до сих пор.

source.ChartObjects(i).Activate 
       ActiveChart.ChartArea.Copy 
       wsTemp.Cells(x, 1).PasteSpecial 
       x = x + 35 

Answer 1

Попробуйте переместить диаграмму листа диаграммы в вместо:

source.ChartObjects(i).Activate 
ActiveChart.Location Where:=xlLocationAsNewSheet 

Вклеивание диаграммы 35 рядов друг от друга не гарантировать, что каждая диаграмма печатается на новой странице; вы во власти того, кто играет с разрывами страниц и настройками печати. Имея каждую диаграмму самостоятельно лист диаграммы, нет способа [AFAIK], они могут быть напечатаны на той же странице. Он также гарантирует, что каждый график заполняет всю страницу.