Excel BubbleChart MarkerShape不会更改

如果“B”列中的单元格的值是A或P ，以下脚本将检查气泡图的每个点。

然后它应该将相应标记的形状更改为一个圆（与之前相同，对于值A ）或菱形（对于值P ）。 这部分工作，因为我在直接窗口中得到正确的输出，但标记的形状仍然保持不变，为什么？

Markerstyle财产

码：

 Sub format_chart() Dim srs As Series Dim cht As Chart Set cht = Sheets("Diagramme").ChartObjects("Diagramm 1").Chart For Each srs In cht.SeriesCollection If Range("B" & Application.WorksheetFunction.Match(srs.Name, Sheets("Diagrammdaten").Range("a:a"), 0)).Value = "A" Then srs.MarkerStyle = xlMarkerStyleDiamond Debug.Print "Value is A" ElseIf Range("B" & Application.WorksheetFunction.Match(srs.Name, Sheets("Diagrammdaten").Range("a:a"), 0)).Value = "P" Then srs.MarkerStyle = xlMarkerStyleCircle Debug.Print "Value is P" Else: Debug.Print "You Failed!" End If Next srs End Sub 

Answer 1

你的意思是气泡图吗？ 就我所知，你不能在气泡图中改变标记的形状。 你可以用散点图来做。 如果你的意思是散点图，按照下面的顺序设置：

 srs.MarkerStyle = xlMarkerStyleDiamond 

你为整个系列设定市场风格。 如果你想改变单点的风格，你应该循环访问srs.Points集合。