How to Shrink a Chart to Fit on a Page in Excel

In this lesson, you will learn how to shrink your chart so that it fits on the page. If you have a large Excel chart that you need to print, you may find that it doesn’t fit on a single page. This can be frustrating, but there are a few things you can do to shrink your chart without losing quality.

Using the ribbon

The first way to shrink your chart is to use the ribbon. To do this, follow these steps:

Select the chart that you want to shrink.

Excel Sample Chart click

Click on the Page Layout tab.

In the Scale to Fit group, click on the Fit to One Page button.

This will resize your chart to fit on a single page. You may need to adjust the chart’s formatting to ensure that it is still readable.

Changing the page settings

Another way to shrink your chart is to change the page settings. To do this, follow these steps:

Click on the File tab.

Click on Print.

Excel Ribbon File Print

In the Settings section, under Scaling, select Fit Sheet on One Page. Click Print.

This will print your chart on a single page, even if it is larger than the page size.

Using VBA to Shrink an Excel Chart

If you need to shrink multiple charts or if you need to automate the process of shrinking charts, you can use VBA. VBA is a programming language that is built into Excel. To use VBA to shrink a chart, you can use the following macro:

Sub ShrinkChart()

' Select the chart that you want to shrink.
Dim chart As Chart
Set chart = ActiveChart

' Resize the chart to fit on a single page.
chart.SetScaleMode ScaleMode.FitToPage

End Sub

To use this macro, simply select the chart that you want to shrink and then run the macro. The macro will resize the chart to fit on a single page.

See also  How to Create Stock Chart in Excel

You can also modify the macro to meet your specific needs. For example, you can add code to change the font size, remove unnecessary elements from the chart, or change the chart type.

Here is an example of a modified macro that changes the font size and removes the legend from the chart:

Sub ShrinkChart()

' Select the chart that you want to shrink.
Dim chart As Chart
Set chart = ActiveChart

' Resize the chart to fit on a single page.
chart.SetScaleMode ScaleMode.FitToPage

' Change the font size.
chart.ChartTitle.Font.Size = 12
chart.Axes(xlPrimary).AxisTitle.Font.Size = 10
chart.Axes(xlSecondary).AxisTitle.Font.Size = 10
chart.Legend.Visible = False

End Sub

You can save this macro in a personal macro workbook so that you can use it whenever you need to shrink a chart.