Tag: 图表

如何在HTML页面使用JavaScript绘制图表和数据应该从Excel中使用js获取: 我有一个要求从Excel中获取数据，并使用JavaScript在HTML页面中绘制图表。有没有最好的教程呢？

数据更改时如何在Excel中保留graphics格式？: 我在Excel中有一系列我以前格式化的图表。要绘制的数据来自dynamic系列，用户select一个元素，然后图表显示所选元素的浓度。当我select另一个元素，我不希望格式改变，因为它现在做：我已经尝试locking格式化所有的图表：.ProtectFormatting = True 工作表受到保护，用户只能select他们想要绘制的元素。通过select元素，要绘制的行更新（使用dynamic指针），但格式也是如此。我试图将图保存为模板，然后使用每个图的模板，但我不确定这是否正确。有趣的是，当我重新select格式化图（Cu）时，我找回了我保存的格式！我必须手动（或使用macros）格式所有25个可能的图？我有3个不同的图表，每个元素…

在我的PowerPivot柱状图中更改类别轴上的date格式: 我试图在Excel中显示基于数据透视图（列）date的值。问题是类别标签似乎没有遵循我设置的数字格式。是的，基础表被格式化为datetypes。我google了一下，似乎适用于大多数人的修复是有完整的数据集（没有孔或空单元格）。我的数据集是完整的，所以它不能帮助我。有任何想法吗？

如何将值（不只是百分比）添加到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, […]

我正在使用SpreadSheetGear创build一个三维饼图。如何更改Y轴旋转值？: 我正在使用SpreadSheetGear创build一个三维饼图。如何更改Y轴旋转值？当我想要的是右边的那个（在Excel中Y轴旋转值是50度）时，我总是在左边得到图像（在Excel中，Y轴旋转值是15度）。

根据x轴格式化数据透视图数据标签: 我试图find一种方法（如果可能）将数据标签的文本颜色更改为红色，如果X轴恰好是某个标签。我遇到的问题是我的图表是dynamic的（每天通过PowerPivot进行刷新，并有date和其他切片器来更改图表中显示的数据），所以即使将数据标签颜色设为红色，刷新图表时，它恢复到原来的黑色字体。例如，在下面的图片中，我有一个图表跟踪他们已经打开的天数; 目标是在45天内解决所有票据; 因此，当图表显示“45+”部分中的任何数据时，我希望该数据标签的字体为红色。我的图表示例：在我的研究中，我能够find并修改一些使所有数据标签变成红色的代码，但是我使用VBA来处理图表是非常新的，并且希望得到一些帮助。我到目前为止的代码是： Sub ChrtTest() Dim i As Long Sheets("Dashboard").Select ActiveSheet.ChartObjects("DB_Chrt_1").Activate ActiveChart.PlotArea.Select With ActiveChart For i = 1 To .SeriesCollection.Count With .SeriesCollection(i).Format.Fill Select Case .Parent.Parent.Name Case "45+" .Visible = msoTrue With .Parent.Parent .ApplyDataLabels With .DataLabels .Position = xlLabelPositionOutsideEnd .Font.Color = vbYellow End With End With Case Else .Visible = msoTrue […]

点击该系列，从图表中获取系列名称: 我想通过点击它从特定的图表获取时间序列名称。我有这样的东西： Sub CallSerie() CallingShapeName = ActiveSheet.Shapes(Application.Caller).Name MsgBox CallingShapeName End Sub 但是这会抛出图表名称，而不是系列名称。

VBA将图表放入不同的表格中: 我有两个工作表。一个工作表与源数据和另一个工作表（“相关图”）是我想要的图表。以下是我的代码。但是，它仍然在源数据表中绘制图表，而不是在设置范围的位置。 Worksheets.Add.Name = "Correlation Charts" Set myChart1 = Sheets("Correlation Charts").Range("A3:H16") Worksheets("Summary").Activate Application.Union(xValue1, yValue1).Select With ActiveSheet.Shapes .AddChart2(240, xlXYScatter, myChart1.Left, myChart1.Top, myChart1.Width, _ myChart1.Height).Select End With With ActiveChart .ChartTitle.Text = Range("Correl1_yValue") & " " & "vs." & " " & Range("Correl1_xValue") End With

用VBA创buildExcel图表 – 错误的结果: 我在Excel中做了正弦计算器。我尝试将图表插入表单中。图表应该是以Y轴为振幅，X轴为时间的正弦波。问题是，我得到一个图表，有两个图表：正弦，根据Y列和行 – 根据X列。在这里我的代码： Public oneTimeFlag As Integer Sub calc() Range("A3", Range("A2").End(xlDown)).Clear Range("B2", Range("B2").End(xlDown)).Clear Range("A2").Value = "0" lw = Int(Range("$I$3").Value + 1) If lw >= 4 And lw < 21000 Then Range("A3").Select ActiveCell.Formula = "=(2*PI()/$I$3)+A2" Range("A3:A" & lw).FillDown Range("B2").Select ActiveCell.Formula = "=ROUNDDOWN(POWER(2,$G$2)/2 + SIN(($F$7*2*PI()/360) + A2)*((POWER(2,$G$2)/2) -1), 0)" Range("B2:B" & lw).FillDown AddOrUpdateChartSheet […]

VBA：格式化多个选定图表（图表，绘图，图例等）: 我正在寻找使用VBA在Excel 2010上格式化多个选定的图表。我希望代码能够工作，无论我select一个还是多个图表。下面的代码在只有一个图表被选中的情况下工作，但是当select了多个图表时，我会得到一个“运行时错误”91“对象variables或带有块variables未设置”。任何想法如何运行所选图表的数量的macros？ Sub ChartFormat5_Click() ''Adjust chart area ActiveChart.ChartArea.Select '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 = […]