Ескертпе
Бұл бетке кіру үшін қатынас шегін айқындау қажет. Жүйеге кіруді немесе каталогтарды өзгертуді байқап көруге болады.
Бұл бетке кіру үшін қатынас шегін айқындау қажет. Каталогтарды өзгертуді байқап көруге болады.
Представляет диаграмму в книге.
Примечания
Диаграмма может представлять собой внедренную диаграмму (содержащуюся в объекте 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 и обратная связь.