Tag: 图表

图表擅长用户数据select

我有这样的数据： Date 1st var 2nd var …. nth var benchmark 01.01.1999 1.1 2.03 3.1 1.7 05.01.1999 1.2 2.01 3.07 1.5 我需要做以下几点：我想在同一个图表上绘制一个variables和基准。 但是我需要selectvariables和date范围的可能性，所以图表会自动更新。 可以通过在单元格中input限制或从下拉列表中进行select来完成select。 现在列长度是固定的（1500左右的值）。 但是做完这个之后，我打算在插入一行新的数据时自动更新。 我是新来的擅长和知道一点的VBA。 我使用Excel图表pipe理器在一个图表上绘制了两个图表，但我不知道如何（或甚至可能）添加数据select。 1）是否有可能只使用Excel内置函数做到这一点？ 如果是的话，我应该在Excel或VBA中做这个吗？ 哪种方式更好？ 2）如果写一个答案太长，或者最好的方法太复杂，我不明白，请你给我一个参考阅读？ 非常感谢！

如何在Excel VBA中创build自动dynamic线图

我有一个工作问题。 我有一个包含大量信息的数据报告，我需要创build3个线图来表示随着时间的推移3个不同的值。 时间也在报告中，对所有的价值来说都是同一时间。 我无法在别处的论坛中find特定于我的解决scheme。 数据报告的长度，行数有所不同。 我需要做的是创build3个线形图，并将它们水平放置，在报告结尾下面几行。 其中两个图有一个系列，第三个有两个系列。 这是图表需要包含的内容： 图1：随时间变化的RPM 图2：随时间推移的压力 图3：步骤烧掉，需求随时间消耗 我刚刚进入VBA是因为最近在工作中发生了位置变化，我对此知之甚less，但是我花了很多时间来弄清楚如何为同一报告编写其他macros。 由于我的工作手册的口头expression不清楚，我附上了一份数据报告样本的链接。 数据报告工作簿下载 这是我到目前为止。 它适用于第一个图表。 现在我可以在代码中放入什么命名图表“RPM”并命名系列“RPM”？ Sub Test() Dim LastRow As Long Dim Rng1 As Range Dim ShName As String With ActiveSheet LastRow = .Range("B" & .Rows.Count).End(xlUp).Row Set Rng1 = .Range("B2:B" & LastRow & ", E2:E" & LastRow) ShName = .Name End With Charts.Add […]

Excel 2003 XYZ曲线图，如XY折线图

我有一个在Excel 2003中形成一个表面的值的网格。 简单的例子 Day 1 2 3 5 ================== 1 0 0 2 1 2 0 2 3 0 3 0 0 1 0 在列标题4丢失，因为没有4的条目（即所有数据为零）。 当我试图在Excel 2003中将其绘制为曲面图时，它将1,2,3,5绘制成系列名称和相同的距离，使表面变形（即将它们视为类别轴不是一个值轴） 反正有没有办法产生一个相当于xyz值的轴面图？ PS在实际数据中填写缺less的列号是不可行的。

使用VBScript在Excel中创build一个散点图

我正在尝试使用VBScript来创build与以下数据分散： x轴：A1到F1，y轴：A2到F2 我到目前为止发现的代码是： Set objExcel = CreateObject("Excel.Application") objExcel.Visible = True Set objWorkbook = objExcel.Workbooks.Add() Set objWorksheet = objWorkbook.Worksheets(1) objWorksheet.Cells(1,1) = 80 objWorksheet.Cells(1,2) = 82 objWorksheet.Cells(1,3) = 85 objWorksheet.Cells(1,4) = 91 objWorksheet.Cells(1,5) = 178 objWorksheet.Cells(1,6) = 91 objWorksheet.Cells(2,1) = 5 objWorksheet.Cells(2,2) = 7 objWorksheet.Cells(2,3) = 8 objWorksheet.Cells(2,4) = 9 objWorksheet.Cells(2,5) = 10 objWorksheet.Cells(2,6) = 11 Set […]

如何定位excel图表x轴文本位置c＃

我正在开发一个图表编程使用C＃和Excel的互操作DLL。 我必须开发这种字符。 这里是屏幕截图 我几乎完成了我的工作，我的用户界面看起来像 只是看到箭头标志，我想把这个文本放在右侧，就像上面的图表，但由于缺乏知识，我得到了麻烦。 在这里我给我完整的代码。 请参阅它并指导我需要额外的代码来定位文本。 谢谢 Excel.Application xlApp ; Excel.Workbook xlWorkBook ; Excel.Worksheet xlWorkSheet ; Excel.Worksheet xlWorkSheetChart; object misValue = System.Reflection.Missing.Value; xlApp = new Excel.Application(); xlWorkBook = xlApp.Workbooks.Add(misValue); try { xlWorkSheet = (Excel.Worksheet)xlWorkBook.Worksheets.get_Item(1); xlWorkSheet.Name = "Data"; xlWorkSheetChart = (Excel.Worksheet)xlWorkBook.Worksheets.get_Item(2); xlWorkSheetChart.Name = "Chart"; //add data xlWorkSheet.Cells[1, 1] = "Date"; xlWorkSheet.Cells[2, 1] = "2013 10 […]

将ChChart控件链接到Spreadsheet控件数据

我希望能够在VBA表单中embedded图表控件，允许用户点击控件的某些部分，这样就可以在隐藏的电子表格中点击包含X＆Y值的数据。 我使用附加控制机制添加了“Microsoft Office Chat 11.0”和“Microsoft Office Spreadsheet 11.0”控件，并在表单上放置了其中的一个。 但是，对于我来说，我似乎无法将图表绑定到电子表格中包含的数据。 我考虑的一个select是 Dim SpdShtCtr As Spreadsheet Dim ChartControl As ChChart Dim XValues() As Variant, YValues() As Variant XValues = WorksheetFunction.Transpose(SpdShtCtrl.Range("XValues")) YValues = WorksheetFunction.Transpose(SpdShtCtrl.Range("YValues")) Dim c Set c = ChartControl.Constants With ChartControl .Clear .Charts.Add With .Charts(0).SeriesCollection.Add .Caption = "Data" .SetData c.vbDimCategories, c.chDataLiteral, XValues .SetData c.vbDimValues, c.chDataLiteral, YValues End […]

如何在Excel图表中用C＃添加虚线网格线？

我正在开发一个基于C＃的Excel生成项目，但我一直在graphics生成部分。 在C＃中有没有可用的选项来生成一个虚线的网格图，而不是通常的固体图？

Excel源数据错误的方向

我得到的参数无效线.SeriesCollection(1).MarkerStyle = xlMarkerStyleCircle 事情是，我的源数据似乎并没有工作，或者说，工作，但不像我想的那样。 我无法添加图片，所以我会尽我所能描述正在发生的事情和我正在寻找的东西。 为了帮助，这是一张桌子 3 season A col B col C col D col E col F col G 4 2010 – 2011 9,66 1,25 10,9 10175 20837 31012 5 2011 – 2012 7,34 0,62 8 8110 21884 29994 6 2012 – 2013 7,84 0,18 8 6840 17943 24783 哪个seasonCount = 3 我有什么：该系列是Horizo​​ntaly，取决于季节的数量。 […]

在主轴和次轴上绘制数据

我正在用2个x轴和2个y轴绘制3个数据集。 我想要： 系列1具有小学X，小学Y. 系列2有辅助X，辅助Y. 系列3具有小学X，中学Y. 系列3可能位于主x轴和辅y轴上吗？ 我只看到小学或中学的select，它为X和Yselect相同的。

使用VBA将Excel图表与数据粘贴到PowerPoint中

答案：TL; DR：粘贴带有embedded数据的图表需要很长时间，所以您必须安装一个延迟来防止vba在粘贴操作完成之前继续。 问题：我试图将一个带embedded数据的Excel图表粘贴到PowerPoint演示文稿中。 唯一让我挂在嘴边的是一旦它被粘贴，就把这个图表定位在ppt中。 Dim newPowerPoint As PowerPoint.Application ActiveSheet.ChartObjects("Chart 1").Activate ActiveChart.ChartArea.Copy newPowerPoint.CommandBars.ExecuteMso ("PasteExcelChartDestinationTheme") 由于我需要将多个图表粘贴到单个幻灯片中，因此重新定位它们是必要的。 我试图用这段代码来做到这一点： newPowerPoint.ActiveWindow.Selection.ShapeRange.Left = 0 但总是遇到错误：“对象'select'的方法'ShapeRange'失败”。 特别奇怪的是，从开始到结束运行代码都会导致这个错误，但是使用F8键代码不会执行。 我已经想尽一切办法来移动这个图表，但我完全陷入困境。 有谁知道我怎么能做到这一点？ 此外，请记住，图表有数据是必要的（我不能粘贴图表作为图片，我强烈希望数据不被链接）。 谢谢， 史蒂夫 用多个图表对象编辑新的修改后的代码。 我需要添加一个if条件： If activeSlide.Shapes.Count = 1 Then GoTo NextiLoop End If 对于附加的图表对象，因为延迟粘贴图2使得循环名称图1“pptcht2”，因为图表2还不存在。 Sub CreatePPT() Dim newPowerPoint As PowerPoint.Application Dim activeSlide As PowerPoint.Slide Dim cht1 As Excel.ChartObject Dim Data As Excel.Worksheet […]