Sub ResizeCharts()
nHeight = InputBox("Height in inches:") * Application.InchesToPoints
nWidth = InputBox("Width in inches:") * Application.InchesToPoints
For Each co In ActiveSheet.ChartObjects
With co
.Width = nWidth
.Height = nHeight
End With
Next
End Sub