Hi Everyone,
I have about 60 charts in my active worksheet that I would like to change the size and font of.
I already wrote the code to run it on one, but I would like a piece of code that runs it automatically on al the charts in the active worksheet. How should I adjust the code?
Sub adjustcharts()
With ActiveChart.Axes(xlValue).TickLabels.font
.Size = 8
.color = vbBlack
.Name = "Calibri (Body)"
.FontStyle = "Regular"
End With
With ActiveChart.Axes(xlCategory).TickLabels.font
.Size = 8
.color = vbBlack
.Name = "Calibri (Body)"
.FontStyle = "Regular"
End With
With ActiveChart.Legend.font
.Size = 8
.color = vbBlack
.Name = "Calibri (Body)"
.FontStyle = "Regular"
End With
With ActiveChart.Parent
.Height = 216 ' resize 2.5 pt at 72 ppi.
.Width = 328.32 ' resize 4.0 pt at 72 ppi.
End With
End Sub
Thanks a million!!
Crosspost: http://www.mrexcel.com/forum/excel-q...eet-macro.html
Bookmarks