mjdescy

Option Explicit

Const DefaultRowHeight As Double = 14.5

Public Sub IncreaseRowHeightByOneLine()
    Call SafelyAdjustRowHeightForAllRowsInRange(Range:=Selection, RowHeightAdjustment:=DefaultRowHeight)
End Sub

Public Sub DecreaseRowHeightByOneLine()
    Call SafelyAdjustRowHeightForAllRowsInRange(Range:=Selection, RowHeightAdjustment:=-DefaultRowHeight)

mjdescy

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

mjdescy

Option Explicit

Public Sub SetActiveChartToCompletelyCoverARange()
    Call ResizeAndRepositionChart( _
        Chart:=ActiveChart, _
        Range:=AskUserToInputARange())
End Sub

Private Sub ResizeAndRepositionChart(ByRef Chart As Excel.Chart, ByRef Range As Excel.Range)
    If Chart Is Nothing Then