jcfp,

Bom dia!

Você pode usar o código abaixo:

Sub Posição_Gráfico()
    Dim Graf As Shape
    
    'Consderando a largura default (8,43) de uma coluna e a altura default (15) de uma linha no Excel, _
    você pode usar o exemplo abaixo para saber o que quer:
    
    'Para testar esse exemplo, insira um gráfico qualquer na planilha de modo que o canto superior _
    esquerdo do mesmo fique exatamente colado em uma linha e em uma coluna da planilha.
    
    For Each Graf In ActiveSheet.Shapes
        MsgBox "Este é o nome do gráfico: " & Graf.Name
        MsgBox "Este é o número da coluna em que está o gráfico: " & Graf.Left / 48
        MsgBox "Este é o número da linha em que está o gráfico: " & Graf.Top / 15
    Next
    
End Sub