Selecting a Chart from a drop-down menu

[kbruner]

Hi,


Is there any way I can have a chart pop-up when a user selects the name of that chart from a listbox?

Thanks for any help you can give!

 

[MorganO]

Try this as a starting point:


Run the following code once to add each shape in the sheet - you will need to write additional code to include only chart shapes.

Sub populatelistbox()
Dim shapecnt As Shape
listboxindex = 1
For Each shapecnt In Worksheets("Sheet1").Shapes
ListBox1.AddItem shapecnt.Name
Next
End Sub

Then when you click an item in the listbox, the chart will be selected.

Private Sub ListBox1_Click()
Shapes(ListBox1.Text).Select
End Sub

Take care.

Owen

 

[Jon Peltier]

Dim ChOb As ChartObject
For Each ChOb In ActiveSheet.ChartObjects
etc.