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
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