Tag: 泡泡图

根据不同列中的值，在Excel中更改气泡图的颜色和形状

我有一个包含大量数据的电子表格，其中一些数据显示在气泡图中，点的大小也正确显示。 现在，我需要根据数据的状态来改变颜色（和形状，但是稍后），在Z行中显示值为1（红色）到3（绿色）。 我的VBA技能现在真的很生疏，我不明白为什么下面的代码只会改变第一点的颜色？ Option Explicit Sub ColortheFingpoints() Dim cht As Chart Dim srs As Series Dim pt As Point Dim p As Long Dim valRange As Range, cl As Range Dim myColor As Long Set cht = ActiveSheet.ChartObjects(1).Chart Set srs = cht.SeriesCollection(1) Set valRange = Range("Z8:Z10") For p = 1 To srs.Points.Count Set pt = […]

用Excel中的vba获得条件格式的颜色

工作：一个优秀的气泡图，不同大小和颜色的圆圈。 不工作：通过使用vba读取颜色值来获取颜色，但是Interior.Color不能识别条件格式设置的颜色。 有问题的代码： Range("Z" & Application.WorksheetFunction.Match(srs.Name, Sheets("Diagrammdaten").Range("a:a"), 0)).Interior.Color 我找不到与Interior.Color不同的select器上的任何东西，但肯定要像Excel中的Displayed.Color一样？ 谢谢你的帮助。

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 = […]

使用Excel在泡泡图的每个泡泡内绘制一张馅饼图？

– Mac的办公室。 我有以下的泡泡图： 我想插入一个小饼图里面的每个气泡来表示一个特定的值。 这怎么可能通过Excel？

如何在excel中将数据标签添加到气泡图中

您好，我想添加自定义数据标签到我的气泡图。 我的代码在下面。 目前数据标签参考XValues。 我想我的数据标签填充气泡大小。 你会介意如何在代码下面自定义吗？ 我试图添加.DataLabel.Text =“txt”但我收到以下错误：运行时错误“438”：对象不支持此属性或方法 Public Sub CreateMultiSeriesBubbleChart() If (Selection.Columns.Count <> 4 Or Selection.Rows.Count < 3) Then MsgBox "Selection must have 4 columns and at least 2 rows" Exit Sub End If Dim red, green, blue As Integer Dim bubbleChart As ChartObject Set bubbleChart = ActiveSheet.ChartObjects.Add(Left:=Selection.Left, Width:=600, Top:=Selection.Top, Height:=400) bubbleChart.Chart.ChartType = xlBubble Dim […]