Tag: 图表

在VBA中设置基于可变单元格范围的图表源数据

我正在创build一个报告模板，其中的一部分将生成一个类似于移动平均线的结构的数据图表 为此，我需要在一个表格中select一个范围的数据（例如f10:i14 ），并将其设置为一个图表的来源 下面的一段代码工作 ActiveChart.SetSourceData Source:=Sheets("Weekly Trends").Range("f10,i14") 但是这不 ActiveChart.SetSourceData Source:=Sheets("Weekly Trends").Range(Cells(x, y), Cells(k, z)) 它会返回一个1004 error 但是为了报告的目的，我需要指定基于variables索引的范围，请大家帮忙

我该如何将CSV数据显示为图表？

我有一组数据存储在文本文件中，我现在通过Perl把它们放到一个CSV文件中。 有问题的数据现在需要显示在图表中。 你有什么build议呢？ build议使用XML，但XML不能将数据本身放入图表中。 理想的情况是：数据将从文本文件中解码，放入一个Excel电子表格中，并以图表的forms显示出来，所有这些代码都有一个代码，因为这些文本文件中有许多数据。 Perl，XML，C，C ++，C＃和VB都可以使用。

擅长雷达图表 – 更改轴极限值

像下面的数据 +———+——-+——-+——-+ | | test1 | test2 | test3 | +———+——-+——-+——-+ | metricA | -87.1 | -87.3 | -87.6 | | metricB | 12.35 | 12.2 | 12.25 | | metricC | 2.2 | 2.1 | 2.05 | | metricD | 7.7 | 7.9 | 7.8 | | metricE | 3.61 | 3.36 | 3.48 […]

在Excel线形图中隐藏数据点

显然可以隐藏Excel折线图中的各个数据点。 select一个数据点。 右键点击 – >格式化数据点… select模式 选项卡将行设置为无 你如何在VBA中完成同样的事情？ 直觉告诉我应该在Point对象 Chart.SeriesCollection(<index>).Points(<index>上有一个属性Chart.SeriesCollection(<index>).Points(<index>处理这个…

Excel VBA：哪个OLE / OCX控件用于在表单中显示图表？

我必须在VBA中以用户forms显示柱形图。 将图表导出到GIF并导入到图片框中; 但我无法使用它，因为图表需要根据用户从同一表单中select的选项进行修改。 我一直在search，人们评论说可以使用MS提供的默认OLE / OCX控件。 我找不到一个可以做到这一点的ActiveX。 有人知道使用哪个控件以及如何使用它们？

如何通过计数在Excel 2010中创build条形图？

无论出于何种原因，我无法让这个工作正确。 我有一列值，说很多A的，B的，C的，和D的。 我想制作一个图表，显示“我们有多less个A，下面是我们有多less个B，下面是我们有多less个C，下面是我们有多less个D。 出于某种原因，我做插入 – > 3d列图，然后我尝试select列中的值（A2到A（一些大数字）），但它就像它不想计算任何东西。 它试图把所有的值放在graphics的标题中，比如“ABACDA B …”，和图例一样，然后条形图本身只显示0级的一个平面类别，这是毫无意义的。

excel vba基于点值更改数据点的条形图颜色

我有一些图表，其中X值是文本，Y值是数字。 如果条的Y值小于零，我想为每个条打上红色;如果大于或等于零，则为绿色。 另外，如果栏的X值是“NET CHANGE”，我需要栏是黄色的。 我遵循以前的StackOverflow线程中的指示： 使用基于类别标签的VBA更改栏颜色 。 我得到运行时错误451属性让程序没有定义和属性获取过程没有返回一个对象。 我的代码如下： For chartIterator = 1 To ActiveSheet.ChartObjects.count For pointIterator = 1 To ActiveWorkbook.Sheets("Sheet1").ChartObjects(chartIterator).Chart.SeriesCollection(1).Points.count If ActiveWorkbook.Sheets("Sheet1").ChartObjects(chartIterator).Chart.SeriesCollection(1).Values(pointIterator) >= 0 Then ActiveWorkbook.Sheets("Sheet1").ChartObjects(chartIterator).Chart.SeriesCollection(1).Points(pointIterator).Interior.Color = _ RGB(146, 208, 80) Else ActiveWorkbook.Sheets("Due To Chart").ChartObjects(chartIterator).Chart.SeriesCollection(1).Points(pointIterator).Interior.Color = _ RGB(255, 0, 0) End If Next pointIterator Next chartIterator IF语句出现错误。 我也试过.Points（pointIterator）.Value，它给了我一个“没有为这个对象定义的属性或方法”的错误。 任何想法，我在做什么错了？ 在此先感谢您的帮助。

Excel VBA：如何从ChartObject获取对Shape的引用

我正在尝试获取对Worksheet的Shape ，对应于ChartObject的引用。 我发现没有这样做的某种方式。 通过反复试验和仅在less数情况下进行简单testing的唯一近似就是假设ChartObject的ZOrder与相应Shape的Index相同： Function chobj2shape(ByRef cho As ChartObject) As Shape ' It appears that the ZOrder of a ChartObject is the same as the Index of ' the corresponding Shape, which in turn appears to be the same as its ZOrderPosition Dim zo As Long Dim ws As Worksheet Dim shc As Shapes Dim […]

如何将Excel / OpenOffice / LibreOffice图表导出到SVG？

我正在使用一个stream行的电子表格应用程序（Excel / OpenOffice / LibreOffice Graph）来创build一些漂亮的图表。 可以从任何这些程序中将图表导出为SVG格式吗？

有没有办法添加标注到图表中的一个点，而不使用select？

有没有办法添加标注到图表中的一个点，而不使用Select ？ 录制一个macros，我得到了这个： Sub Macro9() ActiveSheet.ChartObjects("SPC").Activate ActiveChart.FullSeriesCollection(1).Select ActiveChart.FullSeriesCollection(1).Points(4).Select ActiveChart.SetElement (msoElementDataLabelCallout) End Sub 但是我宁愿避免使用Select 。 我试图简单地使用SetElement方法，但是失败了。 使用HasDataLabel = True -method只需添加一个数据标签。 是否有任何解决方法来select点，然后在图表上使用SetElement ，或者我将不得不解决类似于上述macros？