BET: Microsoft Excel Charts

Microsoft Office Development and Consultancy

Home

Excel

VBA

Excel > Charts > VBA Code > Selecting

< Previous | Next >

ActiveWorkbook.Charts

These are chart sheets (include a link to this page)

1	ActiveWorkbook.Charts("Chart 2").Activate

ActiveSheet.Charts

2	ActiveSheet.Charts(1).Activate

ActiveSheet.ChartObjects

3	ActiveSheet.ChartObjects(2).Activate

When a chart has been given a specific name

4	ActiveSheet.ChartObjects("Chart_Name").Activate

The chart object containing the selected chart ??

5
6
7
8
9
10
11
12
13

Private Sub ReturnChartObject() As ChartObject
Dim objChart As Chart
Dim objChartObject As ChartObject

   objChart = ActiveChart
   objChartObject = objChart.Parent

   ReturnChartObject = objChartObject
End Sub

ActiveSheet.Shapes

= ActiveSheet.Shapes("Chart1") ?

14
15

Set objChart = objChartObject.Chart
Set objChart = ActiveSheet.ChartObjects("Chart 1").Chart

Problems if you try and change size from a modeless userform ??

Looping Through

16
17
18
19

Dim lcount As Long
For lcount = 1 to ActiveSheet.ChartObjects.Count
Set objChart = ActiveSheet.ChartObjects(lcount).Chart
Next lcount

Cell Under Chart

20	Range(ActiveChart.Parent.TopLeftCell.Address).Select

< Previous | Top | Next >