Make Same Size of Shapes
VBA

Make same size of selected shapes/Charts/Pictures using single click

In this article, we have created a macro to make the same size of the selected shapes, charts, or pictures. It will change the size accordingly to first object in the selection.

It is quite useful while create the Excel report or dashboard.

Click here to download the PK’s Utility Tool free of cost

Make Same Size of Shapes

Make Same Size of Shapes

Option Explicit

Sub Make_Same_Size()

If TypeName(Selection) <> "DrawingObjects" Then
MsgBox "Plase select the charts, shapes or pictures to make the same size", vbCritical
Exit Sub
End If

Dim sh As Worksheet
Set sh = ActiveSheet
Dim sp As Object

Dim h, w As Single

For Each sp In Selection
h = sp.Height
w = sp.Width
Exit For
Next

For Each sp In Selection
sp.Height = h
sp.Width = w
Next

End Sub

 

Watch the step-by-step video tutorial:

Click here to download the practice file

PK
My Name is PK. I am founder of PK-AnExcelExpert.com. I am a Microsoft Certified Professional. I have more than 12 years of experience in Data Visualization, Excel Automation and dashboard creation. Excel is my passion and I like to do always something innovative in Excel and share it with other people.
https://www.pk-anexcelexpert.com