Clase Chart (PowerPoint VBA)

La clase Chart representa un gráfico en una presentación.

Los principales procedimientos de la clase Chart son Copy, Delete y Select

Set

Para usar una variable de clase Chart, primero debe ser instanciado, por ejemplo

Dim chr as Chart
Set chr = ActiveWindow.RangeFromPoint.Chart

Los siguientes procedimientos se pueden usar para establecer variables de clase Chart : Shape.Chart y ShapeRange.Chart

Temas

Algunos procedimientos de esta clase se han agrupado en temas y se describen en páginas temáticas separadas

Data with its procedures ApplyDataLabels, ChartData, DataTable, HasDataTable y SetSourceData
Format with its procedures ApplyLayout, ChartColor, ChartStyle, ClearToMatchColorStyle, ClearToMatchStyle, Format, HeightPercent y PlotVisibleOnly
Name with its procedures ChartTitle, HasTitle, Name y Title
Copy with its procedures Copy y CopyPicture
Display/Show with its procedures DisplayBlanksAs, ShowAllFieldButtons, ShowDataLabelsOverMaximum y ShowLegendFieldButtons
Axis with its procedures HasAxis y ShowAxisFieldButtons

Métodos

Los principales métodos de la clase Chart son

Delete - Elimina el objeto.

ActiveWindow.RangeFromPoint.Chart.Delete

Select - Selecciona el objeto.

ActiveWindow.RangeFromPoint.Chart.Select

Otros Métodos

Axes - Devuelve una colección de ejes en el gráfico.

Dim axs As Axes
Set axs = ActivePresentation.Slides(1).Shapes(1).Chart.Axes()

ChartWizard - Modifica las propiedades del gráfico especificado. Puede usar este método para aplicar rápidamente formato a un gráfico sin tener que establecer las propiedades por separado. Este método no es interactivo y cambia únicamente las propiedades especificadas.

ActivePresentation.Slides(1).Shapes(1).Chart.ChartWizard

Export - Exporta el gráfico con un formato de imagen.

Dim strFileName As String: strFileName = 
Dim booExport As Boolean
booExport = ActivePresentation.Slides(1).Shapes(1).Chart.Export(FileName:=strFileName)

GetChartElement - Devuelve información sobre el elemento del gráfico situado en las coordenadas X e Y especificadas.

Dim lngX As Long: lngX = 
Dim lngY As Long: lngY = 
Dim lngElementID As Long: lngElementID = 
Dim lngArg1 As Long: lngArg1 = 
Dim lngArg2 As Long: lngArg2 = 
ActiveWindow.RangeFromPoint.Chart.GetChartElement X:=lngX, Y:=lngY, ElementID:=lngElementID, Arg1:=lngArg1, Arg2:=lngArg2

SetProperty -

Dim strId As String: strId = 
ActiveWindow.RangeFromPoint.Chart.SetProperty Id:=strId, Value:=

Propiedades

AlternativeText Devuelve o establece el texto alternativo asociado a una forma en una presentación web. Lectura y escritura.

ActivePresentation.Slides(1).Shapes(1).Chart.AlternativeText = "Bla bla"

AutoScaling True si Microsoft Word ajusta el tamaño de un gráfico 3D para que sea más parecido al gráfico 2D equivalente. La propiedad RightAngleAxes debe ser True. Boolean de lectura y escritura.

ActivePresentation.Slides(1).Shapes(1).Chart.AutoScaling = True

BackWall Devuelve un objeto que permite al usuario dar formato por separado al plano trasero de un gráfico 3D. Sólo lectura Walls.

Dim wllsBackWall As Walls
Set wllsBackWall = ActiveWindow.RangeFromPoint.Chart.BackWall

BarShape Devuelve o establece la forma utilizada para cada serie en un gráfico de barras o columnas 3D. Valor XlBarShape de lectura y escritura.

ActivePresentation.Slides(1).Shapes(1).Chart.BarShape = xlBox

CategoryLabelLevel Devuelve o establece una constante XlCategoryLabel que especifica el nivel de origen de los rótulos de categoría de gráfico. Lectura y escritura.

ActiveWindow.RangeFromPoint.Chart.CategoryLabelLevel = xlCategoryLabelLevelAll

ChartArea Devuelve todo el área del gráfico. ChartArea de solo lectura.

Dim caaChartArea As ChartArea
Set caaChartArea = ActivePresentation.Slides(1).Shapes(1).Chart.ChartArea

ChartType Devuelve o establece el tipo del gráfico. Valor XlChartType de lectura y escritura.

ActivePresentation.Slides(1).Shapes(1).Chart.ChartType = xlColumnClustered

DepthPercent Devuelve o establece la profundidad de un gráfico 3D como un porcentaje del ancho del gráfico (entre 20 y 2000 por ciento). Long de lectura y escritura.

ActivePresentation.Slides(1).Shapes(1).Chart.DepthPercent = 50

Elevation Devuelve o establece la elevación, en grados, de la vista del gráfico 3D. Long de lectura y escritura.

ActivePresentation.Slides(1).Shapes(1).Chart.Elevation = 32

Floor Devuelve el plano inferior del gráfico 3D. Floor de solo lectura.

Dim flrFloor As Floor
Set flrFloor = ActivePresentation.Slides(1).Shapes(1).Chart.Floor

GapDepth Devuelve o establece la distancia, como un porcentaje del ancho del marcador, entre la serie de datos de un gráfico 3D. Long de lectura y escritura.

ActivePresentation.Slides(1).Shapes(1).Chart.GapDepth = 200

HasLegend True si el gráfico tiene una leyenda. Boolean de lectura y escritura.

ActivePresentation.Slides(1).Shapes(1).Chart.HasLegend = True

Legend Devuelve la leyenda del gráfico. La leyenda de solo lectura.

Dim lgnLegend As Legend
Set lgnLegend = ActivePresentation.Slides(1).Shapes(1).Chart.Legend

Parent Devuelve al objeto primario del objeto especificado. Objetode solo lectura.

Dim objParent As Object
Set objParent = ActiveWindow.RangeFromPoint.Chart.Parent

Perspective Devuelve o establece la perspectiva de la vista del gráfico 3D. Long de lectura y escritura.

ActivePresentation.Slides(1).Shapes(1).Chart.Perspective = 70

PlotArea Devuelve el área de trazado de un gráfico. PlotArea de solo lectura.

Dim paaPlotArea As PlotArea
Set paaPlotArea = ActivePresentation.Slides(1).Shapes(1).Chart.PlotArea

PlotBy Devuelve o establece la forma en que se utilizan las columnas o filas como series de datos en el gráfico. Long de lectura y escritura.

ActivePresentation.Slides(1).Shapes(1).Chart.PlotBy = xlColumns

RightAngleAxes True si los ejes del gráfico están en ángulo recto, independientemente de la rotación de gráfico o la elevación. Boolean de lectura y escritura.

ActivePresentation.Slides(1).Shapes(1).Chart.RightAngleAxes = True

Rotation Devuelve o establece el giro, en grados, de la vista del gráfico 3D (el giro del área de trazado alrededor del eje z). Variant de lectura y escritura.

ActivePresentation.Slides(1).Shapes(1).Chart.Rotation = 45

SeriesNameLevel Devuelve o establece una constante XlSeriesNameLevel que especifica el nivel de origen de los nombres de las series. Lectura y escritura.

ActiveWindow.RangeFromPoint.Chart.SeriesNameLevel = xlSeriesNameLevelAll

Shapes Devuelve una colección que representa todas las formas de la hoja de gráfico.

Dim shpsShapes As Shapes
Set shpsShapes = ActiveWindow.RangeFromPoint.Chart.Shapes

ShowReportFilterFieldButtons Devuelve o establece un valor que indica si se van a mostrar todos los botones de campo de filtro de informe en un gráfico dinámico. Lectura y escritura.

ActiveWindow.RangeFromPoint.Chart.ShowReportFilterFieldButtons = True

ShowValueFieldButtons Devuelve o establece un valor que indica si se van a mostrar todos los botones de campo de valor en un gráfico dinámico. Lectura y escritura.

ActiveWindow.RangeFromPoint.Chart.ShowValueFieldButtons = True

SideWall Devuelve un objeto Walls que permite al usuario dar formato por separado al plano lateral de un gráfico 3D. Solo lectura.

Dim wllsSideWall As Walls
Set wllsSideWall = ActiveWindow.RangeFromPoint.Chart.SideWall

Walls Devuelve las paredes del gráfico 3D. Sólo lectura Walls.

Dim wllsWalls As Walls
Set wllsWalls = ActivePresentation.Slides(1).Shapes(1).Chart.Walls