Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Applying chart formatting

Sub ChartMods()     ActiveChart.Type = xlArea     ActiveChart.ChartArea.font.name = "Calibri"     ActiveChart.ChartArea.font.FontStyle = "Regular"     ActiveChart.ChartArea.font.Size = 9     ActiveChart.PlotArea.Interior.ColorIndex = xlNone     ActiveChart.Axes(xlValue).TickLabels.font.bold = True     ActiveChart.Axes(xlCategory).TickLabels.font.bold = True     ActiveChart.Legend.Position = xlBottom End Sub