Pinterest Pixel

Resize All Charts Using Macros In Excel

Have a lot of charts and want to keep them organized to a consistent size? Excel Macros... read more

Download Excel Workbook
Bryan
Posted on

Overview

Have a lot of charts and want to keep them organized to a consistent size? Excel Macros can resize all charts with a single click!

Make sure your Excel has the Developer Tab enabled following this tutorial.

I explain how you can do this below step by step!

What does it do?

Resizes all charts to a specific height and width

Copy Source Code:


'Make sure to change the Width and Height values below
Sub ResizeAllCharts()

Dim counter As Integer

'Loop through all of the charts
For counter = 1 To ActiveSheet.ChartObjects.Count
'Change the Height and Width values based on your requirements
With ActiveSheet.ChartObjects(counter)
.Height = 400
.Width = 400
End With
Next counter

End Sub

Final Result: 

Resize All Charts Using Macros In Excel

Exercise Workbook:

Resize All Charts Using Macros In Excel | MyExcelOnline

DOWNLOAD EXCEL WORKBOOK


These are our charts:

Resize All Charts Using Macros In Excel

STEP 1: Go to Developer > Code > Visual Basic

Resize All Charts Using Macros In Excel | MyExcelOnline

 

STEP 2: Paste in your code and Select Save. You can change the Height and Weight if you prefer a different size than 400. Close the window afterwards.

Resize All Charts Using Macros In Excel

 

STEP 3: Let us test it out!

See also  Unprotect Active Worksheet Using Macros In Excel

Open the sheet containing the charts. Go to Developer > Code > Macros

Resize All Charts Using Macros In Excel | MyExcelOnline

 

Make sure your macro is selected. Click Run.

Resize All Charts Using Macros In Excel

 

With just one click, all of your charts are now resized!

 Resize All Charts Using Macros In Excel

 

How to Resize All Charts Using Macros In Excel

 

101 Macros Book

If you like this Excel tip, please share itEmail this to someone

email

Pin on Pinterest

Pinterest

Share on Facebook

Facebook

Tweet about this on Twitter

Twitter

Share on LinkedIn

Linkedin

Get Video Training

Advance your Microsoft Excel & Office Skills with the MyExcelOnline Academy!

Dramatically Reduce Repetition, Stress, and Overtime!
Exponentially Increase Your Chances of a Promotion, Pay Raise or New Job!

Learn in as little as 5 minutes a day or on your schedule.

Learn More!