Locating excel graph by graph name (VB)

[nikulina]

Hi,

I have lots of graphs in a worksheet.

Im trying to find a way or some code to locate a given graph by its name in a worksheet/workbook and then selecting it so the user can view.

So input is a graph name;
Output is viewing the graph

Thankyou in advance for any help

 

[Derek Brown]

Here is some code to give you a starting point. You will see that Chart sheets and worksheets with embedded charts need to be handled differently.

Sub test()
Dim ws As Worksheet
Dim objChartObject As ChartObject
Dim objCht As Chart
'
For Each ws In ActiveWorkbook.Worksheets
'Verify if there is a chart object
If ws.ChartObjects.Count > 0 Then
For Each objChartObject In ws.ChartObjects
MsgBox objChartObject.Chart.Name
Next objChartObject
End If
Next ws
' Now check CHART sheets:
For Each objCht In ActiveWorkbook.Charts
MsgBox objCht.Name
Next objCht
Set ws = Nothing
Set objChartObject = Nothing
Set objCht = Nothing
End Sub