《Excel图表之道》_笔记

配色

Sub SetMyColor()
	Activeworkbook.Colors(1)=RGB(0，56,115)
	Activeworkbook.Colors(53)=RGB(247,0,0)
	Activeworkbook.Colors(52)=RGB(206，219，231)
	Activeworkbook.Colors(51)=RGB(231,239,247)
End Sub