Excel VBA图形拉伸宏

我之前写了一个宏，在我拥有的300张图纸中的每一张上绘制数据

但是，所有图表都太窄，无法正确查看数据：

Sub stretchtest()
    ActiveSheet.Shapes(Charts(Charts.Count)).ScaleWidth 2, msoFalse, _
        msoScaleFromTopLeft
End Sub

当前代码抛出错误：下标超出范围

我希望宏： a取最近添加的图表，并将其缩放为两倍宽；或 b把所有的图表都做两倍宽

谢谢大家!

这应该可以做到：

Sub stretchtest()
    ActiveSheet.ChartObjects(ActiveSheet.ChartObjects.Count).ScaleWidth 2, msoFalse, _
        msoScaleFromTopLeft
End Sub

Charts集合指工作簿中的所有图表工作表，而不是工作表中嵌入的图表，每个图表都包含在ChartObject中-请参阅。这些床单上还有其他形状的吗？