Finding graph location (address) within a worksheet

[nikulina]

Hi,

I have a sheet with over 50 graphs in (to be clear the graphs are in the sheet not the workbook). What l am looking to do is to find a way in VB to locate where in the sheet a particular graph is located based on the graphs name.

Ideally returning a cell reference, but otherwise just a way to select the graph and bring it into view.

I've spent hours googling for some sort of a solution to this but have had no luck. Its driving me mad!!

Has anyone any ideas?

Thanks to anyone who can give some help!!

 

[Andrew Poulsom]

Select your chart and run this:

Sub Test()
    MsgBox ActiveChart.Parent.TopLeftCell.Address
End Sub

 

[nikulina]

Hi thats great thanks, as always as soon as i posted i got some inspiration but to anyone else with the same problem please see below

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
'temp
namedcell = Range("a1")


MsgBox (namedcell & objChartObject.Name)
If namedcell = objChartObject.Name Then
objChartObject.Activate
Else
End If


Next objChartObject
End If
Next ws


Set ws = Nothing
Set objChartObject = Nothing
Set objCht = Nothing
End Sub