Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Charts with Combobox
I am using a chart object and I want a comobobox or listbox to
activate what the graph shows. I am fairly new to this and I don't think it should be too hard. I just can't seem to get the values into the array correctly to display them. Also, if it is possible to create one with a listbox and allow for multiple selections to be displayed on the graph that would be preferable. Thanks, Andrew Here's what I am trying to do: Sub Combobox1_Click() Call CreateGraph() End Sub CreateGraph() Dim Chart1 As ChChart Dim Series1 As ChSeries Dim XValues(1 To 25) Dim DataValues(1 To 25) ChartSpace1.Clear ' Add a chart to the ChartSpace Set Chart1 = ChartSpace1.Charts.Add ' Give it a title With Chart1 .HasTitle = True .Title.Caption = Date End With For r = 1 To 10 XValues(r) = Cells(r, 1) Select Case ComboBox1.Value Case 0 DataValues(r) = Cells(r, 2) Case 1 DataValues(r) = Cells(r, 3) Case 3 DataValues(r) = Cells(r, 4) End Select Next r ' Create a chart series Set Series1 = Chart1.SeriesCollection.Add ' Specify chart type and data With Series1 .Type = chChartTypeLine .Type = chChartTypeColumnClustered .SetData chDimCategories, chDataLiteral, XValues .SetData chDimValues, chDataLiteral, DataValues End With End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Charts with Combobox
Here's a different approach:
http://peltiertech.com/Excel/Charts/ChartByControl.html - Jon ------- Jon Peltier, Microsoft Excel MVP Tutorials and Custom Solutions http://PeltierTech.com _______ wrote in message ups.com... I am using a chart object and I want a comobobox or listbox to activate what the graph shows. I am fairly new to this and I don't think it should be too hard. I just can't seem to get the values into the array correctly to display them. Also, if it is possible to create one with a listbox and allow for multiple selections to be displayed on the graph that would be preferable. Thanks, Andrew Here's what I am trying to do: Sub Combobox1_Click() Call CreateGraph() End Sub CreateGraph() Dim Chart1 As ChChart Dim Series1 As ChSeries Dim XValues(1 To 25) Dim DataValues(1 To 25) ChartSpace1.Clear ' Add a chart to the ChartSpace Set Chart1 = ChartSpace1.Charts.Add ' Give it a title With Chart1 .HasTitle = True .Title.Caption = Date End With For r = 1 To 10 XValues(r) = Cells(r, 1) Select Case ComboBox1.Value Case 0 DataValues(r) = Cells(r, 2) Case 1 DataValues(r) = Cells(r, 3) Case 3 DataValues(r) = Cells(r, 4) End Select Next r ' Create a chart series Set Series1 = Chart1.SeriesCollection.Add ' Specify chart type and data With Series1 .Type = chChartTypeLine .Type = chChartTypeColumnClustered .SetData chDimCategories, chDataLiteral, XValues .SetData chDimValues, chDataLiteral, DataValues End With End Sub |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Charts with Combobox
Here's my problem. I am inserting new rows for a new entry. If I use
a normal graph, when I insert a new row it becomes inaccurate. However, if I use a chart object then I can generate the graph based on predefined cells and there is no problem with inserting new rows. I just can't seem to get a list box or combo box to work correctly. Andrew On Apr 13, 8:48 am, "Jon Peltier" wrote: Here's a different approach: http://peltiertech.com/Excel/Charts/ChartByControl.html - Jon ------- Jon Peltier, Microsoft Excel MVP Tutorials and Custom Solutionshttp://PeltierTech.com _______ wrote in message ups.com... I am using a chart object and I want a comobobox or listbox to activate what the graph shows. I am fairly new to this and I don't think it should be too hard. I just can't seem to get the values into the array correctly to display them. Also, if it is possible to create one with a listbox and allow for multiple selections to be displayed on the graph that would be preferable. Thanks, Andrew Here's what I am trying to do: Sub Combobox1_Click() Call CreateGraph() End Sub CreateGraph() Dim Chart1 As ChChart Dim Series1 As ChSeries Dim XValues(1 To 25) Dim DataValues(1 To 25) ChartSpace1.Clear ' Add a chart to the ChartSpace Set Chart1 = ChartSpace1.Charts.Add ' Give it a title With Chart1 .HasTitle = True .Title.Caption = Date End With For r = 1 To 10 XValues(r) = Cells(r, 1) Select Case ComboBox1.Value Case 0 DataValues(r) = Cells(r, 2) Case 1 DataValues(r) = Cells(r, 3) Case 3 DataValues(r) = Cells(r, 4) End Select Next r ' Create a chart series Set Series1 = Chart1.SeriesCollection.Add ' Specify chart type and data With Series1 .Type = chChartTypeLine .Type = chChartTypeColumnClustered .SetData chDimCategories, chDataLiteral, XValues .SetData chDimValues, chDataLiteral, DataValues End With End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
fill combobox depending on selection from another combobox | Excel Discussion (Misc queries) | |||
Combobox items determined by the selection in another combobox | Excel Programming | |||
Combobox options based on the input of another combobox | Excel Programming | |||
ComboBox list reliant on the entry from a different ComboBox | Excel Programming | |||
How Do I Load A ComboBox RowSource From The Results Of Another ComboBox | Excel Programming |