VBA更新dynamic形状

我有一个dynamic生成的形状（实际上是一个图表）。 然而，我用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 

dynamic使用命名范围更新形状：

参考名称经理

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

式

在B12中，参考dynamic地取决于某个input。

总的来说，我可以手动更新input和形状的变化，我想要的。 但是，如果我使用VBA进行更新并复制形状，我不会得到更新的形状。 有任何想法吗？

[Excel 2013]