Thread: Change active Chart

Hi all, I cannot find a way to change the shape of an active chart

Macro recorded of this particluar chart object

Sub ResizeGraph()
    ActiveSheet.Shapes("Chart 138").ScaleWidth 1.67, msoFalse, msoScaleFromTopLeft
    ActiveSheet.Shapes("Chart 138").ScaleHeight 1.71, msoFalse, _
        msoScaleFromTopLeft
End Sub

But then I will have to keep changing the Chart numbers to make the shape change.
So in what syntax should I use to make the active Chart (no matter what number they are unless one chart is active) change shape? Thanks in advance

With Activechart.parent
    .Width = .Width * 1.67
    .Height = .Height * 1.71
End with

Gee, it looks so simple lol and works well, thank you Andy for your help, much appreciate this