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.

Code:
=============
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