如何为excel中的所有图表指定随机名称？

Question

我在Excel中有很多图表看起来相似但数据范围不同，但它们也有相同的图表名称。当我将这些图表链接到Powerpoint时，这就成了一个问题！

有没有办法为我的工作簿中的所有图表指定一个随机名称？

Answer 1

这适用于图纸类型的图表：

Sub dural()
    For Each Chart In ActiveWorkbook.Charts
        Chart.Name = "Chart" & CStr(Rnd())
    Next
End Sub