Cómo unificar el formato de muchos gráficos de Excel
Esto se puede lograr mediante macros: primero ajuste una imagen según sus necesidades, registre este proceso como una macro y luego aplique esta macro a otros gráficos; puede lograr el formato de todos los gráficos con el primero. El panorama permanece unificado. A continuación se utiliza Excel 2010 como ejemplo de demostración:
1. Los datos iniciales y el estilo del gráfico obviamente no tienen un formato uniforme.
2 Cree una macro como se muestra a continuación y configúrela. el nombre de la macro en el menú emergente (por ejemplo, chart_style)
3. En la nueva ventana emergente de Visual Basic, agregue el siguiente código. Se puede modificar al estilo requerido según los comentarios.
Sub?chart_style()
'Establecer el ancho y alto del área del gráfico
ActiveChart.ChartArea.Select
Selection.Width?=?230
Selection.Height?=?160
'Establecer el tamaño del área de dibujo
ActiveChart.PlotArea.Select
Selection.Top? =?0
Selección.Izquierda?=?10
Selección.Alto?=?150
Selección.Ancho?=?210
Con? Selection.Format.Line
.Visible?=?msoTrue
.ForeColor.ObjectThemeColor?=?msoThemeColorText1
.ForeColor.TintAndShade?= ?0
.ForeColor.Brightness?=?0
.Transparency?=?0
Fin?Con
'?Set la fuente del eje x, tamaño, grosor
ActiveChart.SetElement?(msoElementPrimaryCategoryAxisTitleAdjacentToAxis)
ActiveChart.Axes(xlCategory).Select
With?Selection .Format.Line
.Visible?=?msoTrue
.ForeColor.ObjectThemeColor?=?msoThemeColorText1
.ForeColor.TintAndShade?=?0
.ForeColor. ¿Brillo?=?0
.Transparencia?=?0
¿Fin?Con
ActiveChart.Axes(xlCategory).AxisTitle. .Select
Con?Selection.Format.TextFrame2.TextRange.Font
.NameComplexScript?=?"Times?New?Roman"
.NameFarEast?= ?"Times?New?Roman "
.Nombre?=?"Times?New?Roman"
.Bold?=?msoFalse
.¿Tamaño? =?13
¿Fin?Con
'?Establezca la fuente, el tamaño y el grosor del eje y
ActiveChart.SetElement?(msoElementPrimaryValueAxisTitleRotated)
ActiveChart.Axes(xlValue ).Select
Con?Selection.Format.Line
.Visible?=?msoTrue
.ForeColor .ObjectThemeColor?=?msoThemeColorText1
.Fore
Color.TintAndShade?=?0
.ForeColor.Brightness?=?0
.¿Transparencia?=?0
Fin?Con
ActiveChart.Axes(xlValue).AxisTitle.Select
With?Selection.Format.TextFrame2.TextRange.Font
.NameComplexScript?=?"Times?New?Roman"
.NameFarEast?=?"Times?New?Roman"
.Name?=?"Times?New?Roman"
.Bold?=?msoFalse
.Size?=?13
Fin?Con
Fin?Sub
4. Seleccione un gráfico y haga clic en "Macro". , en la ventana emergente, haga clic en Ejecutar y configure otra imagen.
5. El efecto final se unifica de la siguiente manera