为什么气泡图的气泡大小属性有时会提供 1 的数组而不是地址

问题描述

我有一个代码可以创建气泡图并突出显示最小最大气泡，但不能作为系列的气泡大小属性返回{1,1,1...} 1 的数组而不是像 sheet1!$c$2:$c$10... 这样的地址这在两个 Excel 中都发生在这段代码中2007 和 Excel 2010。 为什么会发生这种情况？ 这是我的代码：

Sub ex
Dim Ch as chart
Dim s as series
Dim Bubblesizearray()
Dim i as integer
Dim p as point

Sheet1.activate
Range("F2:G26").select
Set Ch = charts.add
Ch.charttype= xlbubble
Set s = Ch.seriescollection(1)
Debug.print s.bubblesizes 'this line gives {1,...}
Bubblesizearray=range(s.bubblesizes) ' this line gives error
For i = lbound(Bubblesizearray) to ubound(Bubblesizearray)
Set p = s.points(i)
If Bubblesizearray(i) = worksheetfunction.min(bubblesizearay) then
P.format.fill.forecolor.rgb= rgbred
End if
Next i
End sub

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）