Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Active cell chart
Hi,
The following code updates a chart based on an active cell. In this occasion he puts only one row into the chart. Now I would like to do the same but then with 3 rows of data, say the line selected and the following two rows. Can someone tell me how to incorporate this in a code? Thanks a lot! Regards, Robert Sub UpdateChart() Dim TheChartObj As ChartObject Dim TheChart As Chart Dim UserRow As Long Dim CatTitles As Range Dim SrcRange As Range Dim SourceData As Range If Sheets("Sheet1").CheckBox1 Then Set TheChartObj = ActiveSheet.ChartObjects(1) Set TheChart = TheChartObj.Chart UserRow = ActiveCell.Row If UserRow < 3 Or IsEmpty(Cells(UserRow, 1)) Then TheChartObj.Visible = False Else Set CatTitles = Range("A2:W2") Set SrcRange = Range(Cells(UserRow, 1), Cells(UserRow, 23)) Set SourceData = Union(CatTitles, SrcRange) TheChart.SetSourceData _ Source:=SourceData, PlotBy:=xlRows TheChartObj.Visible = True End If End If End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Row select mode to highlight active row of active cell | Excel Discussion (Misc queries) | |||
run macro although blinking cursor is active in an active cell | Excel Programming | |||
how do i make a chart follow the active cell | Charts and Charting in Excel | |||
referring to formula in a non active cell from active cell | Excel Discussion (Misc queries) | |||
I need to sort an active sheet using the col of the active cell | Excel Programming |