Quick question - hopefully. I've created a VBA code which maps a graph based on a selected range - see below:
[VBA]Sub BartonChart()
Application.ScreenUpdating = False
Charts.Add
ActiveChart.ChartArea.Select
ActiveChart.ChartType = xlLine
ActiveChart.SetSourceData Source:=Sheets("Summary").Range("D39:P40,D48:P49,D57:K58")
ActiveChart.Location Where:=xlLocationAsObject, Name:="Barton"
ActiveChart.SeriesCollection(1).Name = "Barton Summary"
ActiveChart.HasLegend = False
With ActiveChart.Axes(xlValue)
.HasMajorGridlines = False
.HasMinorGridlines = False
End With
ActiveChart.PlotArea.Select
With Selection.Border
.ColorIndex = 15
.Weight = xlThin
.LineStyle = xlNone
End With
Selection.Interior.ColorIndex = xlNone
Application.ScreenUpdating = True
MsgBox ("Graphic Mapped")
End Sub[/VBA]
Is it at possible to specify the Font to be Arial, size 8 and place the graph over C9:N27?!
Any help would be much appreciated.
Thanks.