Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
How do I retrieve Chart Source (range) and PlotBy
I have a chart created by the Chart Wizard. Here's the
Macro that was generated during its creation: Charts.Add() ActiveChart.ChartType = xlColumnClustered ActiveChart.SetSourceData(Source:=Sheets ("Sheet1").Range("A7:D15"), PlotBy _ :=xlColumns) ActiveChart.Location (Whe=xlLocationAsNewSheet) With ActiveChart .HasTitle = True .ChartTitle.Characters.Text = "1st Quarter" .Axes(xlCategory, xlPrimary).HasTitle = False .Axes(xlValue, xlPrimary).HasTitle = False End With How do I verify the Source and PlotBy properties of the ActiveChart after its creation? This is what I have so far to check other properties: Dim ThisChart As Excel.Chart ThisChart = appExcel.Charts.Item("Chart1") If ThisChart.ChartType = Excel.XlChartType.xlColumnClustered Then MsgBox("ColumnClustered is Good") End If If ThisChart.HasTitle And ThisChart.ChartTitle.Text = "1st Quarter" Then MsgBox("ChartTitle is Good") End If Thanks, in advance, for your help. |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
I figured it out (m)
This is what you must do:
Dim ThisSeriesCollection As Excel.SeriesCollection ThisSeriesCollection = ThisChart.SeriesCollection If ThisSeriesCollection.Count = 3 Then If ThisSeriesCollection.Item(1).Name = "Jan" _ And ThisSeriesCollection.Item (1).Formula = "=SERIES(Sheet1!$B$7,Sheet1! $A$8:$A$15,Sheet1!$B$8:$B$15,1)" _ And ThisSeriesCollection.Item(2).Name = "Feb" _ And ThisSeriesCollection.Item (2).Formula = "=SERIES(Sheet1!$C$7,Sheet1! $A$8:$A$15,Sheet1!$C$8:$C$15,2)" _ And ThisSeriesCollection.Item(3).Name = "Mar" _ And ThisSeriesCollection.Item (3).Formula = "=SERIES(Sheet1!$D$7,Sheet1! $A$8:$A$15,Sheet1!$D$8:$D$15,3)" Then MsgBox("DataSource is Good") End If End If Woot! Sometimes I surprise myself. LOL |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Using a named range as a data source for a chart | Charts and Charting in Excel | |||
Using a named range as a data source for a chart | Excel Worksheet Functions | |||
Using a Named Range for Data Source In A Chart | Charts and Charting in Excel | |||
Setting Source Range For Chart | Excel Programming | |||
change chart source from range to raw data | Excel Programming |