Excel macro for setting the selected chart to a default size

SizeActiveChart.mod

Option Explicit

Const DefaultChartHeightInInches As Double = 4#
Const DefaultChartWidthInInches As Double = 8.3

Public Sub SetActiveChartToStandardSize()
    If ActiveChart Is Nothing Then
        Exit Sub
    End If

    Call SetChartSize( _
        Chart:=ActiveChart, _
        Height:=ConvertInchesToPoints(DefaultChartHeightInInches), _
        Width:=ConvertInchesToPoints(DefaultChartWidthInInches))
End Sub

Private Sub SetChartSize(ByRef Chart As Excel.Chart, ByVal Height As Double, ByVal Width As Double)
    Chart.Parent.Height = Height
    Chart.Parent.Width = Width
End Sub

Private Function ConvertInchesToPoints(ByVal Inches As Double) As Double
    ConvertInchesToPoints = Round(Inches * 72, 1)
End Function