Macro to resize charts in a workbook

---

Resize all charts in the active worksheet

---

Sub ResizeCharts()
Dim X As Integer
For X = 1 To ActiveSheet.ChartObjects.Count
With ActiveSheet.ChartObjects(X)
.Width = 300
.Height = 200
End With
Next X
End Sub

Resize all charts in the active workbook

---

Sub ResizeChartsInActiveWorkbook()
Dim X As Integer
Dim Y As Worksheet
For Each Y In ActiveWorkbook.Sheets
For X = 1 To Y.ChartObjects.Count
With Y.ChartObjects(X)
.Width = 500
.Height = 350
End With
Next X
Next Y
End Sub

---

How to use codes shared here?