Diagrammobjekt anhand der Position im Blatt (VBA) auswählen

Question

Gibt es eine Möglichkeit, ein Diagrammobjekt in einem Excel-Blatt über seine exakte Position zu adressieren? Google hat bisher nicht geholfen, daher wird jede Eingabe geschätzt.

Mit freundlichen Grüßen, Stefan

Answer 1

Sie TopLeftCell verwenden können und BottomRightCell ein Diagramm zwischen bestimmten Bereich zu finden.

Sub testChart() 
Dim oChart As Chart 

'/ Selecet the chart , if found in Range D4:F10 
Set oChart = findChart(Sheet1.Range("D4:F10")) 
If Not oChart Is Nothing Then 
    oChart.Parent.Select 
Else 
    MsgBox "No chart found." 
End If 

End Sub 

Function findChart(ByVal rngChart As Range) As Chart 

    Dim oChart  As Chart 
    Dim oChartObj As ChartObject 
    Dim wksChart As Worksheet 
    Dim rngCArea As Range 

    Set wksChart = rngChart.Parent 

    For Each oChartObj In wksChart.ChartObjects 
     Set rngCArea = Intersect(wksChart.Range(rngChart.Address), wksChart.Range(oChartObj.TopLeftCell, oChartObj.BottomRightCell)) 
     If Not rngCArea Is Nothing Then 
      Set oChart = oChartObj.Chart 
     End If 
    Next 

    Set findChart = oChart 

End Function