Объект Chart (Excel)
Представляет диаграмму в книге.
Примечания
Диаграмма может представлять собой внедренную диаграмму (содержащуюся в объекте ChartObject) или отдельный лист диаграммы.
Коллекция Charts содержит объект Chart для каждого листа диаграммы в книге. Чтобы вернуть один объект Chart, используйте синтаксис Charts (индекс), где индекс — это номер индекса или имя листа диаграммы.
Номер индекса диаграммы представляет положение листа диаграммы на панели вкладок книги. Charts(1) — это первая (крайняя левая) диаграмма в книге; Charts(Charts.Count) — последняя (самая правая).
Все листы диаграмм включаются в число индексов, даже если они скрыты. Имя листа диаграммы отображается на вкладке книги для диаграммы. Используйте свойство Name объекта ChartObject, чтобы задать или возвратить имя диаграммы.
В следующем примере изменяется цвет ряда 1 на листе диаграммы 1.
Charts(1).SeriesCollection(1).Format.Fill.ForeColor.RGB = rgbRed
В следующем примере диаграмма Sales (Продажи) перемещается в конец активной книги.
Charts("Sales").Move after:=Sheets(Sheets.Count)
Объект Chart также является элементом коллекции Sheets, который содержит все листы книги (рабочие листы и листы диаграммы). Чтобы вернуть один лист, используйте синтаксис Sheets (индекс), где индекс — это номер индекса или имя листа.
Если диаграмма является активным объектом, для ссылки на нее можно использовать свойство ActiveChart. Лист диаграммы активен, если пользователь выбрал его или он активирован с помощью метода Activate объекта Chart или метода Activate объекта ChartObject.
В следующем примере активируется лист диаграммы 1, а затем задается тип и заголовок диаграммы.
Charts(1).Activate
With ActiveChart
.Type = xlLine
.HasTitle = True
.ChartTitle.Text = "January Sales"
End With
Внедренная диаграмма активна, если пользователь выбрал ее или объект ChartObject, в котором она находится, активирован с помощью метода Activate.
В следующем примере активируется внедренная диаграмма 1 на листе 1, а затем задается тип и название диаграммы. Обратите внимание, что после активации внедренной диаграммы код в этом примере совпадает с предыдущим примером. С помощью свойства ActiveChart можно написать код на языке Visual Basic, который может ссылаться на внедренную диаграмму или на лист диаграммы (в зависимости от активного объекта).
Worksheets(1).ChartObjects(1).Activate
ActiveChart.ChartType = xlLine
ActiveChart.HasTitle = True
ActiveChart.ChartTitle.Text = "January Sales"
Если лист диаграммы является активным листом, для ссылки на него можно использовать свойство ActiveSheet. В следующем примере используется метод Activate для активации листа диаграммы Chart1, а затем задается синий цвет для ряда 1 на диаграмме.
Charts("chart1").Activate
ActiveSheet.SeriesCollection(1).Format.Fill.ForeColor.RGB = rgbBlue
События
- Activate
- BeforeDoubleClick
- BeforeRightClick
- Calculate
- Deactivate
- MouseDown
- MouseMove
- MouseUp
- Resize
- Select
- SeriesChange
Методы
- Activate
- ApplyChartTemplate
- ApplyDataLabels
- ApplyLayout
- Axes
- ChartGroups
- ChartObjects
- ChartWizard
- CheckSpelling
- ClearToMatchColorStyle
- ClearToMatchStyle
- Copy
- CopyPicture
- Delete
- Evaluate
- Export
- ExportAsFixedFormat
- FullSeriesCollection
- GetChartElement
- Location
- Move
- OLEObjects
- Paste
- PrintOut
- PrintPreview
- Protect
- Refresh
- SaveAs
- SaveChartTemplate
- Select
- SeriesCollection
- SetBackgroundPicture
- SetDefaultChart
- SetElement
- SetSourceData
- Unprotect
Свойства
- Application
- AutoScaling
- BackWall
- BarShape
- CategoryLabelLevel
- ChartArea
- ChartColor
- ChartStyle
- ChartTitle
- ChartType
- CodeName
- Creator
- DataTable
- DepthPercent
- DisplayBlanksAs
- Elevation
- Floor
- GapDepth
- HasAxis
- HasDataTable
- HasLegend
- HasTitle
- HeightPercent
- Hyperlinks
- Index
- Legend
- MailEnvelope
- Name
- Next
- PageSetup
- Parent
- Perspective
- PivotLayout
- PlotArea
- PlotBy
- PlotVisibleOnly
- Previous
- PrintedCommentPages
- ProtectContents
- ProtectData
- ProtectDrawingObjects
- ProtectFormatting
- ProtectionMode
- ProtectSelection
- RightAngleAxes
- Rotation
- SeriesNameLevel
- Shapes
- ShowAllFieldButtons
- ShowAxisFieldButtons
- ShowDataLabelsOverMaximum
- ShowExpandCollapseEntireFieldButtons
- ShowLegendFieldButtons
- ShowReportFilterFieldButtons
- ShowValueFieldButtons
- SideWall
- Tab
- Visible
- Walls
См. также
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.