Question

我在工作项目中做了一些VBA，最终遍历了所有图表，因为无论工作簿中的位置如何，我都必须特别找到一个图表。

我做了这段代码

For Each sht In ActiveWorkbook.Worksheets
    For Each cht In sht.ChartObjects
        If cht.Name = "Domain" & s & "_G" Then
            Set chrt = cht
        End If
    Next cht
Next sht

它在运行Excel 365的PC上运行正常，但在拥有2016年的同事的PC上运行不正常。在她的PC上，它会遍历每个工作表，但不会检测到工作表上有图表。

您是否偶然知道这是否是已知问题以及如何解决？

谢谢！

Answer 1

回顾一下代码，似乎确实是“ ChartObjects”在两台PC上引起了不同的行为。

这是我使用的始终有效的代码。

       For Each sht In ThisWorkbook.Worksheets
            For Each shhp In sht.Shapes
                If shhp.Name = "Domaine" & s & "_G" Then
                    Set shp = shhp
                End If
            Next shhp
        Next sht

循环浏览一台PC而不是另一台PC上的所有图表

1 个答案: