VBA更新动态形状

我有一个动态生成的形状（实际上是一个图表）。但是，我在使用VBA更新此形状时遇到问题。我的代码如下所示：

        .Sheets(sheet).Range("B12").value = NewReference
        Application.Calculate
        .Sheets(sheet).Shapes.Range(Array(NameOfShape)).Select
        Selection.Copy
        DoEvents
        Application.Wait Now + TimeValue("00:00:02")
        PptSlide.Shapes.Paste

将使用命名范围动态更新形状：

参考“=Bild”包含范围为B12的公式：

在B12中，参考动态地取决于某个输入

总的来说，我可以手动更新输入，并根据需要更改形状。但是，如果使用VBA进行更新并复制形状，则不会获得更新的形状。有什么想法吗

[Excel 2013]