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 selected shapes/Charts/Pictures using single click

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

Visit our YouTube channel to learn step-by-step video tutorials

Youtube.com/@PKAnExcelExpert

Watch the step-by-step video tutorial:

Click here to download the practice file