Colega valdecirrk, boa tarde!

Bem, uma forma seria ajustando manualmente assim:
* Alterando os valores até achar a posição desejada.

 Sub posição()
ActiveSheet.Shapes.Range(Array("Grafico 1")).Select
Selection.ShapeRange.Left = 145
Selection.ShapeRange.Top = 280
End Sub

porém tenho quase certeza que existe uma forma mais eficiente que essa...

Abçr!

Esta forma não funcionou, obrigado mesmo assim.

Colega valdecirrk eu tenho certeza que nossos colegas aqui do fórum podem ajudar com sugestões melhores. Portanto, seria válido você ainda não marcar como resolvido, já que minha resposta ainda não te atendeu totalmente.

Abçr!

Ok, valeu pela dica.

Estou usando dessa forma até me ajuda mas a propriedade TOP ainda me atrapalha porque é incremental e eu preciso fixa

ActiveSheet.Shapes(nome).IncrementLeft -136.5
          ActiveSheet.Shapes(nome).IncrementTop 20
          ActiveSheet.Shapes(nome).ScaleWidth 5#, msoFalse, msoScaleFromTopLeft
          ActiveSheet.Shapes(nome).ScaleHeight 2.5, msoFalse, msoScaleFromTopLeft

Colega valdecirrk eis a solução:

Sub teste()
  On Error Resume Next
    With ActiveSheet.Shapes("Grafico 1")
        .Top = Range("D20").Top
        .Left = Range("D20").Left
    End With
End Sub

Apenas mude "Gráfico 1" para o nome do seu gráfico.