Have you ever tried to make a chart exactly fit in some cells. In this video, we show you how to make a macro that allows you to do just this.

You will only realize how annoying this is after you realize how simple this macro makes it.

Sub SnapForm()

On Error Resume Next

Dim chrt As Chart
Dim rng As Range

Set chrt = ActiveChart
Set rng = Application.InputBox(“Select Range”, “Selection”, Type:=8)

chrt.Parent.Top = rng.Top
chrt.Parent.Left = rng.Left
chrt.Parent.Height = rng.Height
chrt.Parent.Width = rng.Width

End Sub

Chris Terrell

View all posts