Sub Resizeallcharts()
Dim chart As ChartObject
For Each chart In ActiveSheet.ChartObjects
With chart.Parent
chart.Height = Application.InchesToPoints(2.5)
chart.Width = Application.InchesToPoints(5)
End With
Next
End Sub
Sub Resizeallcharts()
Dim chart As ChartObject
Dim xSize As Double, ySize As Double
xSize = Application.InputBox("Please enter Horizontal size", "Horizontal Size", Type:=1)
ySize = Application.InputBox("Please enter Vertical size", "Vertical Size", Type:=1)
For Each chart In ActiveSheet.ChartObjects
With chart.Parent
chart.Height = Application.InchesToPoints(ySize)
chart.Width = Application.InchesToPoints(xSize)
End With
Next
End Sub