Tag: 图表

Excel 2010 VBA – 从图表工具中导出图表: 我很努力地find正确的语法来从图表中导出图表，而不是embedded在工作表中。我曾经有embedded的图表，但应用户的要求转移到它自己的工作表，我似乎无法find任何适合的。这里是代码，因为它与一个embedded式图表，可有人给我一个提示语法？ Public Sub ExportChart() Dim varChartObject As ChartObject Dim varChart As Chart Dim varFilename As String Dim varPath As String Set varChartObject = Sheets("Output Chart").ChartObjects(1) Set varChart = varChartObject.Chart varFilename = Format(ThisWorkbook.Sheets("Parameters").Range("C5").Value, "YYYYMMDD") varPath = "MyPath\" & Format(ThisWorkbook.Sheets("Parameters").Range("C5").Value, "MM. MMMM") On Error Resume Next Kill varPath & "\" & varFilename On Error GoTo […]

VBA：格式化多个选定的图表: 我正在寻找使用VBA在Excel 2010上格式化多个选定的图表。下面的代码在只有一个图表被选中的情况下工作，但是当select了多个图表时，我会得到一个“运行时错误”91“对象variables或带有块variables未设置”。任何想法如何运行所选图表的数量的macros？ Sub ChartFormat5_Click() ''Adjust chart area 'Size Selection.Width = 631.9 Selection.Height = 290.1 'Border With Selection.Format.Line .Visible = msoTrue .ForeColor.ObjectThemeColor = msoThemeColorText1 .ForeColor.TintAndShade = 0 .ForeColor.Brightness = 0 .Transparency = 0 .Weight = 1 .DashStyle = msoLineSolid End With 'Font With Selection.Format.TextFrame2.TextRange.Font .Name = "Calibri" .Size = 10 .Fill.Visible = msoTrue .Fill.ForeColor.ObjectThemeColor […]

VBA Excel 2010 – 抓图图例: 目前我正在尝试获取图表图例条目，如果它们位于我的工作簿中，我可以从单个单元格中获取文本值，但是如果将图表导入到工作簿中，那么我的代码无法拾取图例，因为它试图获得它找不到的单元格值。我需要图表传说，因为我的工作人员似乎无法理解正在下降的传说的概念，而我的用户表单反映（用户表单更容易操作多个图表），所以我希望button说出哪个图表行在这种情况下，它将被处理。 ActiveChart.Legend.LegendEntries(2).Select将select图例项ChartLine2 = ActiveChart.Legend.LegendEntries(2).Value （或者.Value我也试过.Name ， .Text和.Parent.Name （尽pipe这一个只得到“传说”一词，而不是100％确定为什么）我的问题是我需要什么代码来获取图表图例的名称/文本？

VBA Excel 2010 – select图表图例时运行代码: 目前我正在尝试做什么，我不知道这是甚至可能的，我甚至不知道从哪里开始（我试过这个代码，但我无法得到它甚至工作）。我试图让一个macros自动运行，当点击一个图表的传说，我知道你可以分配一个macros图表来运行它们，但如果可能的话，我想这样做从图表的传说。我想运行的代码如下，这是一个简单的开关打开/closures图表线 If ActiveChart.SeriesCollection(1).Format.Line.Visible = msoTrue Then ActiveChart.SeriesCollection(1).Format.Line.Visible = msoFalse ElseIf ActiveChart.SeriesCollection(1).Format.Line.Visible = msoFalse Then ActiveChart.SeriesCollection(1).Format.Line.Visible = msoTrue End If 如果这是不可能的，我可以诚实地看到为什么，但如果有什么想法可以变得更好编辑：我在这里想要做的一个小错误，对不起，我希望单击图例条目时运行的代码，这是彩色线旁边图例的文本部分（所以图表行1，图表行1等等），希望能够澄清它

将embedded的图表移动到新的图表并重命名工作表: 我试图循环遍历特定工作表中的图表，并将它们移到所有工作表末尾的新图表工作表中。另外，我想重命名图表并更改标签颜色。这是我的代码： Dim ws As Worksheet, co As ChartObject, c As Chart Set ws = ThisWorkbook.Sheets("nameofSheet") ws.Activate For Each co In ws.ChartObjects co.Activate Set c = co.Chart 'move chart to new sheet at the end c.Move After:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count) 'rename chart sheet c.Name = "newChartSheetName" 'change colour c.Tab.Color = RGB(1,1,1) Next co 但是，它不起作用并引发错误： Run-time error '1004': […]

VBA防止在Excel中自动更新图表: 我有一个button来导入数据到我的电子表格。我移除了仪表板范围之外的视觉计算值，并绘制了链接到这些值的图表。每当我导入新的数据，这些值会立即改变以及图表。是否有可能防止图表自动更新，并将该命令移动到macros？谢谢，

使用VBA（EXCEL）为不同工作表中的图表select数据范围: 如何使用VBA从不同的工作表中为图表select数据范围？假设数据表名是data_sheet ，图表名是chart_sheet ，我的数据范围是A1:A20 。我怎样才能在Excel中做到这一点？我检查了这个，但没有为不同的工作表。否则，我检查了这个，但返回这个错误：下Subscript out of range ： With Worksheets("chart_sheet") ActiveChart.SetSourceData Source:=Worksheets("data_sheet").Range("A1:A20") End With

dynamic图表范围 – 此工作表中的公式包含一个或多个无效的引用 – VBA: 我正在使用命名的范围dynamic地创build图表。我每5分钟logging一次数据并添加一行。添加新数据时图表正确更新。但是，当我清除第一行的数据，然后我收到错误消息说此工作表中的公式包含一个或多个无效的引用。我什么都做不了，因为popup不会停下来。有没有办法让我的公式更强大，所以它解释了第一行何时清除？我的公式： =OFFSET(Spreads!$B$130,1,0,COUNTA(Spreads!$B$131:$B$1048576),1) 头在单元格B130开始，但第一行数据在B131。我尝试使用间接公式，但似乎没有帮助。我也不删除行，我只是清除数据。

FusionCharts对excel文件的结果: 我使用FusionCharts创build我的图表，但是我必须将它们导出为excel文件。我该怎么做。我的意思是从FusionCharts的ersult导出一个excel文件。 jQuery(window).load(function () { var chart1 = new FusionCharts({ "id":"ChartId1", "type": "mscolumn2d", "renderAt": "chartdiv21", "width": "650", "height": "400", "dataFormat": "json" }); chart1.setJSONUrl("#{request.contextPath}/faces/report/online.chart?info=20"); chart1.render("chartdiv21"); jQuery(this).everyTime(1800000, 'controlled', function () { updateChart('ChartId1', '#{request.contextPath}/faces/report/online.chart?info=20');

Excel中的3个可变图表: 我正在想出一个通过excel图表来表示3个variables的最佳方法。我无法弄清楚如何创build这样的图表。理想情况下，我希望在x轴上有产品，y轴上的收入和图表上每个产品的收入。但是我有想法。这里是数据。 +———+———-+———+–+–+ | Product | Quantity | Revenue | | | +———+———-+———+–+–+ | A | 200 | 23500 | | | +———+———-+———+–+–+ | B | 300 | 55000 | | | +———+———-+———+–+–+ | C | 800 | 11000 | | | +———+———-+———+–+–+