VBA Excel 2010-将未知图表分配给变量

debugcn 发表于 Dev

伯恩斯先生

我试图将一个图表设置为一个变量，但是，由于我的电子表格中有多个图表，因此我需要能够激活一个图表并将其分配给一个变量。

Ffor记录ChartHandel = ActiveSheet.ChartObject(1)不工作，我也尝试过.Shape(1)和Chart("Name of chart")这些太不工作

Dim ChartHandel2 As Chart

ActiveSheet.ChartObjects(1).Activate
ChartHandel2 = ActiveChart

即使出现错误“ 91，对象变量或未设置块变量的错误”，看起来也应该可以，而且我确定我曾经在某一点进行过此工作（作为一种解决方法）

我的问题是，基本上可以将一个图表分配给一个变量（如果它不是活动的）（如果可能的话，怎么做）？

用户名

分配对象时，必须Set在分配语句的左侧使用关键字

此外，Chart对象是ChartObject对象的成员

这是与他们打交道的一个小例子

Option Explicit

Sub ChartObjects()

Dim chartObj As ChartObject

With ThisWorkbook.Worksheets("charts")

    For Each chartObj In .ChartObjects

        With chartObj ' to deal with current "ChartObject" object

            With .Chart ' to deal with "Chart" object of "ChartObject" object
                .ChartType = xlXYScatter ' or another XlChartType Enumeration (https://msdn.microsoft.com/en-us/library/office/ff838409.aspx)

                MsgBox .ChartArea.Name

                .HasLegend = False

                .ChartTitle.Caption = "chart title you need"
            End With

        End With

    Next chartObj

End With

End Sub

本文收集自互联网，转载请注明来源。

如有侵权，请联系[email protected] 删除。