Compartir a través de

ChartObjects (objeto)

  • Artículo

Importante

Este artículo se ha traducido con traducción automática; vea la declinación de responsabilidades. Para su referencia, puede encontrar la versión en inglés de este artículo aquí.

Colección de todos los objetos ChartObject de la hoja de gráfico, hoja de diálogo u hoja de cálculo especificadas.

Notas

Cada objeto ChartObject representa un gráfico incrustado. El objeto ChartObject actúa como contenedor de un objeto Chart. Las propiedades y los métodos del objeto ChartObject controlan el aspecto y el tamaño del gráfico incrustado en la hoja. Colección ChartObjects.

Ejemplo

Use el método ChartObjects para devolver la colección ChartObjects. En el ejemplo siguiente se eliminan todos los gráficos incrustados de la hoja de cálculo denominada "Sheet1."

Worksheets("sheet1").ChartObjects.Delete

La colección ChartObjects no se puede utilizar para llamar a las siguientes propiedades y métodos:

  • Propiedad Locked

  • Propiedad Placement

  • Propiedad PrintObject

Ejemplo

A diferencia de la versión anterior, ahora la colección ChartObjects puede leer las propiedades de alto, ancho, izquierda y superior.

Ejemplo

Use el método Add para crear un nuevo gráfico incrustado vacío y agregarlo a la colección. Use el método ChartWizard para agregar datos y dar formato al nuevo gráfico. En el ejemplo siguiente se crea un nuevo gráfico incrustado y después se le agregan los datos de las celdas A1:A20 al gráfico de líneas.

Dim ch As ChartObject
Set ch = Worksheets("sheet1").ChartObjects.Add(100, 30, 400, 250)
ch.Chart.ChartWizard source:=Worksheets("sheet1").Range("a1:a20"), _
    gallery:=xlLine, title:="New Chart"

Ejemplo

Para devolver un solo objeto, use ChartObjects(index), donde index es el nombre o número del gráfico insertado. En el ejemplo siguiente se establece el diseño del área del gráfico insertado Chart 1 de la hoja de cálculo denominada "Sheet1".

Worksheets("Sheet1").ChartObjects(1).Chart. _
    CChartObjecthartArea.Format.Fill.Pattern = msoPatternLightDownwardDiagonal

Nota

Declinación de responsabilidades de traducción automática: Este artículo se ha traducido con un sistema informático sin intervención humana. Microsoft ofrece estas traducciones automáticas para que los hablantes de otros idiomas distintos del inglés puedan disfrutar del contenido sobre los productos, los servicios y las tecnologías de Microsoft. Puesto que este artículo se ha traducido con traducción automática, es posible que contenga errores de vocabulario, sintaxis o gramática.