Cuando crea un gráfico de Excel, como un objeto que se colocará en una hoja de cálculo, el objeto del gráfico se ajusta automáticamente a un tamaño predeterminado que selecciona Excel. Es posible que no desee que el objeto de gráfico tenga el tamaño que determine Excel; es posible que desee que los objetos de su gráfico sean siempre de un tamaño estándar, por lo que siempre aparecerán igual en relación con sus hojas de trabajo.

No hay forma de especificar un tamaño de objeto de gráfico mientras crea el gráfico. Sin embargo, puede cambiar el tamaño del objeto gráfico después de su creación, al igual que puede cambiar el tamaño de otros elementos gráficos de su hoja de trabajo. Podría escribir una macro para crear el objeto en un tamaño particular, pero hacerlo eliminaría gran parte de la flexibilidad inherente a las herramientas de creación de gráficos de Excel. Por ejemplo, cuando especifica el tamaño del objeto de gráfico que se está creando, también debe especificar otras características, como el tipo de gráfico. Es más fácil seleccionar y elegir tales características a través de las herramientas de la cinta que hacerlo en una macro.

Sin embargo, puede crear fácilmente una macro que cambiará el tamaño de un objeto de gráfico existente. Los comandos de teclado de tal macro cambiarían las propiedades de Ancho y Alto para el objeto de gráfico. En VBA, estas propiedades se especifican en puntos. Por lo tanto, si desea cambiar el tamaño del objeto de gráfico para que tenga 4 pulgadas de alto, debe establecer la propiedad Altura en 288, que es el número de puntos en 4 pulgadas (4 * 72).

La siguiente macro ofrece un ejemplo de una forma de recorrer todos los objetos del gráfico en una hoja de trabajo y hacerlos del mismo tamaño. Esta macro particular establece el ancho de cada objeto del gráfico en 4 pulgadas y la altura en 3 pulgadas.

Sub ResizeCharts()

For j = 1 To ActiveSheet.Shapes.Count         If ActiveSheet.Shapes(j).Type = msoChart Then             ActiveSheet.Shapes(j).Width = 4  72             ActiveSheet.Shapes(j).Height = 3  72         End If     Next j End Sub

_Nota: _

Si desea saber cómo usar las macros descritas en esta página (o en cualquier otra página de los sitios ExcelTips), he preparado una página especial que incluye información útil.

link: / excelribbon-ExcelTipsMacros [Haga clic aquí para abrir esa página especial en una nueva pestaña del navegador].

ExcelTips es su fuente de formación rentable en Microsoft Excel.

Este consejo (8526) se aplica a Microsoft Excel 2007, 2010, 2013 y 2016.

Puede encontrar una versión de este consejo para la interfaz de menú anterior de Excel aquí:

link: / excel-Specifying_the_Size_of_Chart_Objects [Especificación del tamaño de los objetos del gráfico].