VBA:将CurrentChart定义为单元格中的字符串

时间:2013-07-29 11:43:46

标签: vba

我正在寻找一种方法来将当前图表设置为数组中的单元格中的任何内容。例如,我的数组将Chart_1_4301作为第一个列表,然后我想将图表(也称为Chart_1_4301)设置为CurrentChart。

而不是说

If Array_Name(i) = "Chart_1_4301" Then
 'Some sort of code
End If
If Array_Name(i) = "Chart_1_4404" Then
'Some sort of code
End If
If Array_Name(i) = "Chart_1_4552" Then....

等。有没有办法将CurrentChart设置为图表的名称,其名称存储在单元格中?

我只想说:Set CurrentChart = Array_Name(i)

我知道在MATLAB中这是可能的(这是我做过的唯一其他编程),但我不知道VBA中的语法。非常感谢任何帮助!

1 个答案:

答案 0 :(得分:0)

为了获得更好的帮助,发布更多代码会很有帮助。 Varocarbas在上面提出了一些建议。

基于对不完整问题的不同解释,我会给你另一个建议。由于我不知道Type是什么CurrentChart(即,是ChartObject还是Chart?)

假设您正在对名称数组进行某种循环/迭代,并且您希望按顺序对每个图表进行操作:

For i = lBound(Array_Name) to UBound(Array_Name)

    Set CurrentChart = ActiveSheet.ChartObjects(Array_Name(i))

Next