Classe Chart (PowerPoint VBA)

A classe Chart representa um gráfico em uma apresentação.

Os principais procedimentos da classe Chart são Copy, Delete e Select

Set

Para usar uma variável de classe Chart, ela primeiro precisa ser instanciada por exemplo

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

Os procedimentos a seguir podem ser usados ​​para definir variáveis ​​do tipo Chart: Shape.Chart e ShapeRange.Chart

Temas

Alguns procedimentos nesta classe foram agrupados em temas e são descritos em páginas de tema separadas

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

Métodos

Estes são os principais métodos da classe Chart

Delete - Exclui o objeto.

ActiveWindow.RangeFromPoint.Chart.Delete

Select - Seleciona o objeto.

ActiveWindow.RangeFromPoint.Chart.Select

Estes são os principais métodos da classe

Axes - Retorna uma coleção de eixos em um gráfico.

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

ChartWizard - Modifica as propriedades do gráfico especificado. Você pode usar esse método para formatar rapidamente um gráfico sem definir todas as propriedades individuais. Este método não é interativo e só altera as propriedades especificadas.

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

Export - Exporta o gráfico em um formato gráfico.

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

GetChartElement - Retorna informações sobre o elemento de gráfico nas 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:=

Propriedades

AlternativeText Retorna ou define o texto associado a uma forma em uma apresentação da Web. Leitura/gravação.

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

AutoScaling True se o Microsoft Word dimensiona um gráfico 3D para que fique mais perto do tamanho do gráfico 2D equivalente. A propriedade RightAngleAxes deve ser verdadeiras. Boolean de leitura/gravação.

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

BackWall Retorna um objeto que permite que o usuário formate individualmente a parede traseira de um gráfico 3D. Somente leitura paredes.

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

BarShape Retorna ou define a forma usada para cada série em um gráfico de colunas ou barras 3D. Leitura/gravação XlBarShape.

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

CategoryLabelLevel Retorna ou define uma constante XlCategoryLabel que especifica o nível de origem dos rótulos de categoria do gráfico. Leitura/gravação.

ActiveWindow.RangeFromPoint.Chart.CategoryLabelLevel = xlCategoryLabelLevelAll

ChartArea Retorna toda a área do gráfico. Somente leitura ChartArea.

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

ChartType Retorna ou define o tipo de gráfico. O XlChartType de leitura/gravação.

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

DepthPercent Retorna ou define a profundidade de um gráfico 3D como um percentual da largura do gráfico entre 20 e 2000 por cento. Long de leitura/gravação.

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

Elevation Retorna ou define a elevação, em graus, do modo de exibição de gráfico 3D. Long de leitura/gravação.

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

Floor Retorna a base do gráfico 3D. Somente leitura piso.

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

GapDepth Retorna ou define a distância, como um percentual da largura do marcador, entre a série de dados em um gráfico 3D. Long de leitura/gravação.

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

HasLegend True se o gráfico tem uma legenda. Boolean de leitura/gravação.

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

Legend Retorna a legenda do gráfico. Somente leitura legenda.

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

Parent Retorna o pai do objeto especificado. Objetosomente leitura.

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

Perspective Retorna ou define a perspectiva para o modo de exibição de gráfico 3D. Long de leitura/gravação.

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

PlotArea Retorna a área de plotagem de um gráfico. PlotArea somente leitura.

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

PlotBy Retorna ou define como as colunas ou linhas são usadas como séries de dados no gráfico. Long de leitura/gravação.

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

RightAngleAxes True se os eixos do gráfico estiverem em reto, independentemente de rotação de gráfico ou a elevação. Boolean de leitura/gravação.

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

Rotation Retorna ou define a rotação, em graus, do modo de exibição de gráfico 3D a rotação da área de plotagem em torno do eixo z. de leitura/gravação.

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

SeriesNameLevel Retorna ou define uma constante XlSeriesNameLevel que especifica o nível de origem dos nomes das séries. Leitura/gravação.

ActiveWindow.RangeFromPoint.Chart.SeriesNameLevel = xlSeriesNameLevelAll

Shapes Retorna uma coleção que representa todas as formas na planilha de gráfico. Somente leitura formas.

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

ShowReportFilterFieldButtons Retorna ou define um valor que indica se os botões de campos de filtragem do relatório devem ser exibidos em um gráfico dinâmico. Leitura/gravação.

ActiveWindow.RangeFromPoint.Chart.ShowReportFilterFieldButtons = True

ShowValueFieldButtons Retorna ou define um valor que indica se botões de campos de valor devem ser exibidos em um gráfico dinâmico. Leitura/gravação.

ActiveWindow.RangeFromPoint.Chart.ShowValueFieldButtons = True

SideWall Retorna um objeto Walls que permite que o usuário formate individualmente a parede lateral de um gráfico 3D. Somente leitura.

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

Walls Retorna as paredes do gráfico 3D. Somente leitura paredes.

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