Tag: excel charts
如何将值（不只是百分比）添加到Excel饼图？
我有这个代码： private void WriteChartSheet() { _xlSheetChart = (Worksheet)_xlSheets.Item[2]; if (_xlSheetChart != null) { _xlSheetChart.Name = ProduceUsageChartSheetName; // Contract vs. non-Contract pie chart _xlSheetChart.Cells[1, 1] = "Contracted Items"; _xlSheetChart.Cells[1, 2] = "Non-Contracted Items"; _xlSheetChart.Cells[2, 1] = GetContractedItemsTotal(); _xlSheetChart.Cells[2, 2] = GetNonContractedItemsTotal(); ChartObjects xlCharts = (ChartObjects)_xlSheetChart.ChartObjects(Type.Missing); ChartObject contractChartObject = xlCharts.Add(0, 0, 300, 250); // left, top, width, […]
Excel图表忽略特定date的其他数据值
我有一个macros从一个数据范围生成Chart 。 看到下面的数据： 2015/08/01 12：49.002 2015/08/01 00：41.600 2015/08/02 00：27.198 2015/08/03 01：05.600 2015/08/03 01：30.599 2015/08/04 02：29.799 2015/08/05 01：40.199 2015/08/06 01：36.199 2015/08/07 02：16.998 2015/08/07 00：43.401 第一列表示date，第二列表示该date的时间范围。 注意我在表格中find的原始数据是已经合并的单元格。 请参阅以下屏幕截图了解更多信息。 问题是图表只显示分配给该date的较大号码。 看下面的代码。 Option Explicit Public Declare Function GetTickCount Lib "kernel32.dll" () As Long Sub CreateChart() Dim DateRange, TimeRange As Range Dim lastRow As Long Dim StartRow As Long, columnIndex […]
VBA根据包含一些文本的标题更新图表
我有一张图表可以帮助我按照人物来计划一系列事件。 我需要一些事件来保持一致性。 例如，简在她的职业生涯中被聘用了两次。 我希望这个雇佣类别是一样的。 但是，Excel会将其作为不同的类别打断，因为其中一个名称为01-Hire，另一个为02-Hire。 在下面的例子中，所有雇员都应该是蓝色的。 我想要一些代码在页眉中search“Hire”，然后应用一致的颜色。 请注意 ，序列之间可能会有不同的标题，因此代码需要足够聪明，以便将包含相同文本（而不是序列号）的内容分组。 我能find的最接近的东西是在这里： 设置颜色代码的vba的传说 Private Sub FormatShapeLegend(sheet As Worksheet, legendName As String, targetColor As MsoRGBType) Dim shp As Shape Dim chrt As Chart Dim s As Series For Each shp In sheet.Shapes If shp.HasChart Then Set chrt = shp.Chart 'Loop the dataseries to find the legend with the […]
饼图：带有文本值的列
想用以下数据绘制饼图 Box | Status ————————— Box1 | Scan Box2 | Index Box3 | None Box4 | None Box5 | Process Box6 | Process Box7 | Scan 预期的结果是这样的
VBA中的Excel 2013“群集柱形图”
我正在使用EXCEL VBA从两行数据创build一个新的图表。 Excel版本是2013年。 在X轴上，我有几年，在Y轴上，每年都有一些特定的值。 我面临的问题是，当我创build实际的图表时，它将随机select三种样式中的一种，如下面的屏幕截图所示。 我正在创build图表： ActiveSheet.Shapes.AddChart2(201, xlColumnClustered).Select ActiveChart.SetSourceData Source:=Union(Sheets(SheetName).Range(Cells(1, 11), Cells(1, LastColumnNumber)), Sheets(SheetName).Range(Cells(4, 11), Cells(4, LastColumnNumber))) 添加Sheets(SheetsName)的原因是我在创build图表后将图表移动到新图表，所以需要保留引用。 LastColumnNumber用于计算上一年的LastColumnNumber ，它是相应的值。 我努力了： ActiveChart.ChartType = xlColumnClustered 另外我也尝试过在改变样式的时候录制一个新的macros，并且没有select其中之一的参数。 作为一种解决方法（但在VBA中不起作用），我将图表样式改为除了“ 聚集列”样式之外的东西，而不是select我需要的样式。 PS我实际上需要在附加的打印屏幕中select一个。 我如何强制这个风格被应用？
在Excel自定义图表上翻转X轴和Y轴
我已经为Excel图表制作了Excel 2010的“组合”选项，因此我可以为相同的深度点绘制两个数据系列。 下面的图片显示了默认值，这与我想要的非常接近 – 除了我想让轴翻转以便将当前的X轴即深度显示为Y轴并且主要和次要电streamY轴绘制为X轴。 换句话说，我想将图表区域顺时针旋转90度。 “切换行/列”并没有做我想要的（或期望），我正在用尽想法和耐心。 有一个简单的修复？ 还是很难解决？ 这里的情节是这样的： 这里是通过在Paint中旋转图像来制作最终目标的虚拟图，以防图片变得更清晰： 最后，正如在评论中指出的，整个事情看起来很愚蠢，可能会更好地绘制成一个条形图与两个酒吧。 我也尝试了这一点，几乎所有的设置 – 但灰色的酒吧从左到右，蓝色的酒吧从右到左的情节。 看起来应该像改变“Plot Series On”选项一样简单，但是这会破坏graphics。
从图表组件中单击popup图表
这是一个可能性的问题，所以请不要期望任何代码，尽pipe我已经尽了最大的努力来想象它。 示例图正如您在这里可以看到不同的地区，现在我的问题是，当点击“亚洲”列/栏时，是否可以popup一个图表，并显示所有亚洲国家的浓度。
C＃使用Excel Interop添加辅助轴
我构build和应用程序将从SQL数据库创build一个Excel电子表格。 它原来有三个系列，下面的代码很好。 不过，我现在被要求增加两个新的系列，在次要的轴线上有不同的缩放比例。 我已经添加了范围，但是我不能使用Excel interop添加辅助轴。 有没有人做过这个，如果是的话，我错过了什么？ ChartObjects xlCharts = (Excel.ChartObjects)mSheet.ChartObjects(Type.Missing); ChartObject myChart = (Excel.ChartObject)xlCharts.Add(358, (double)xlsRange.Top, 650, 350); myChart.Name = "myCool_Chart"; Chart chartPage = myChart.Chart; chartPage.ChartType = XlChartType.xlLine; Series series = myChart.Chart.SeriesCollection().Add(dSheet.Range["$F$2:$H$124,$P$2:$Q$124"]);//F thru H is left axis and P thru Q should be secondary axis series.XValues = dSheet.Range["$C$2:$C$124"];// Quart and Year values on bottom axis chartPage.SeriesCollection(1).Name […]
Excel 2016中的折线图中的条件格式
我想每个月更换下图中的灰线颜色（格式 – 红色减less和绿色增加）。 我怎样才能做到这一点？
使用VBA定制图表
我有一张带有数据透视表的表，我正在创build一个来自表的列堆积图。 我想改变图表中的图例条目的颜色，并希望每次创build图表时都有一个图表标题。 我试了下面的代码，我越来越 对象variables或块variables未设置 我得到了错误 cht.SeriesCollection(1).Format.Fill.ForeColor.RGB = RGB(155, 213, 91) 任何人都可以告诉我如何为我的需求创build图表。 我已经添加了当前图表的图片和所需的图表。 Sub chart11() Dim sh As Shape Dim cht As Chart If ActiveSheet.PivotTables.Count = 0 Then Exit Sub Set ptable = ActiveSheet.PivotTables(1) Set ptr = ptable.TableRange1 Set sh = ActiveSheet.Shapes.AddChart sh.Select With ActiveChart .SetSourceData ptr .ChartType = xlColumnStacked End With cht.SeriesCollection(1).Format.Fill.ForeColor.RGB = RGB(155, 213, […]
