Tag: 图表

将标签添加到堆积柱形图Excel 2013中的非零元素

我从这样的表格中生成一个堆积的柱形图： Year 1 2 3 A 50 0 0 B 50 0 0 C 0 100 0 D 0 50 0 E 0 0 10 F 0 0 15 我想要每年的列堆栈，每个非零值的序列标签。 目前，如果我尝试添加标签，那么我会为每个系列获得6个标签（零值聚集在轴上）。 如何为所有非零生成系列标签？ 我很高兴重新排列我的数据到不同的格式上面的表格。 我正在使用Excel 2013。

在excel中将对象设置为当前选定的图表

所有， 我想将variablescht设置为当前图表。 我已经尝试了下面的代码，但由于某种原因，它将名称上的额外“图表”。 有没有其他的方法？ Set cht = ActiveSheet.ChartObject(ActiveChart.Name) 此代码不起作用，因为它无法find具有该名称的对象。 msgbox ActiveChart.Name 当实际名称是“pvtChart1”时，产生“图表pvtChart1”。 有没有其他的方法来引用活动图表？ 由于我无法更改我的电脑设置，因此我无法正确格式化代码。 谢谢。 -Rik

VBA – 循环遍历所有图表并复制到一张工作表上

我试图循环遍历在我的工作簿中存在的第二张纸上的所有图表到第二张到最后一张。 我想遍历所有的图表，复制图表区域并粘贴到有数据的最后一张纸上（只是一个普通的电子表格）。 我不明白为什么下面的代码不能正常工作，但我最终得到一个运行时错误“438” – 对象不支持第一行（for循环）的这个属性或方法。 任何想法，为什么这是行不通的？ Sub chartCopy() For I = Sheets(2) To Sheets(ActiveWorkbook.Sheets.Count – 1) ActiveChart.ChartArea.Copy Sheets(Sheets.Count).Select ActiveSheet.Paste Next I End Sub

如何在xlLine ChartType中使用Y轴的string值

我需要使用excel.interop生成一些折线图，我想为Y轴值设置文本。 Dictionary<string, int> data = new Dictionary<string, int>(); data.Add("abc", 1); data.Add("def", 2); data.Add("ghi", 3); data.Add("jkl", 4); data.Add("mno", 5); var application = new excel.Application(); var workbook = application.Workbooks.Open(docName); var worksheet = workbook.Worksheets[1] as excel.Worksheet; var charts = worksheet.ChartObjects() as excel.ChartObjects; var chartObject = charts.Add(60, 10, 300, 300); var chart = chartObject.Chart; chart.ChartType = excel.XlChartType.xlLine; chart.Location(excel.XlChartLocation.xlLocationAsObject, worksheetName); […]

Excel模板不能应用

在Excel 2013中，试图将透视图的图表types更改为保存到模板文件夹的模板时，出现以下错误消息： 此模板无法应用。 它已经损坏或不能用于选定的图表。 请尝试重新创build它。 讨论没有解决technet 它甚至发生，如果我保存模板，并尝试应用它完全相同的graphics。 有任何想法吗？

Excel：将图表引用为ChartObjects＆Chart vs Shapes

我遇到了一个设置图表的辅助轴的最小和最大比例属性的墙设置 – 不断得到一个“对象没有这个属性”的错误。 我修好了，但我想知道如何。 经过了多less小时的search和尝试不同的选项（三，三个小时）之后，我随意决定通过Shapes集合而不是ChartObjects集合来引用图表，并且工作。 太好了： ActiveSheet.Shapes(1).Chart.Axes(xlValue,xlSecondary).MinimumScale = cMin 和坏： ActiveSheet.ChartObjects(1).Chart.Axes(xlValue,xlSecondary).MinimumScale = cMin 但我可以设置其他属性。 例如，下面的代码行工作： ActiveSheet.ChartObjects(1).Chart.Axes(xlValue,xlSecondary).AxisTitle.Text = "Current (A)" 从MSDN文档中， Shapes（1）和ChartObjects（1）都返回一个Chart对象，但是当我通过ChartObjects集合访问Chart时，我无法访问所有的属性。 也就是说，当我设置图表时，我可以设置Axes方法中的所有属性 Dim cht as Chart Set cht = ActiveSheet.Shapes(1).Chart 但如果我把图表设置为 Dim cht as Chart Set cht = ActiveSheet.ChartObjects(1).Chart 所以我的问题是，为什么这种差异？ 这是VBA语法的一些隐藏的细微差别，或者更可能是我的机器的一个弱点？ 在Windows 7框上的Excel 2013

Excel VBA中的对象必需的错误

我正在通过阅读本网站的指南在用户表单中创buildLineChart。http://www.j-walk.com/ss/excel/tips/tip66.htm Dim ChartNum As Integer Dim CurrentChart As String Dim Fname As String Private Sub UpdateChart() Set CurrentChart = Sheets("Charts").ChartObjects(1).Chart CurrentChart.Parent.width = 300 CurrentChart.Parent.height = 150 ' Save chart as GIF Fname = ThisWorkbook.Path & Application.PathSeparator & "temp.gif" CurrentChart.Export FileName:=Fname, FilterName:="GIF" Image1.Picture = LoadPicture(Fname) End Sub 我也在顶部分配了3个variables。 我有“Sheet1”中图表的数据和“Charts”表中的图表。 但现在我坚持更新图表。 当我点击Commandbutton来更新图表时，它就是这样说的 Compile Error : Object Required […]

使用第1行合并单元格中的文本为多个图表赋予标题

http://bit.ly/1CG7T4c这个链接显示了我通过运行下面给出的代码获得的示例数据和图表。 我有很多部门。 我希望每个图表都将标题作为各自的部门名称，即每个图表数据上方的每个合并单元格中给出的名称。 请给我一个相同的代码。 Option Explicit Sub PlotSeparateChartsByMergedFirstRow() Dim rUsed As Range, rMerged As Range, rChtData As Range Dim rChtDat1 As Range, rChtDat2 As Range Dim iColMerge As Long, iColData As Long Dim cht1 As Chart, cht2 As Chart Const iChtHeight As Double = 175 Set rUsed = ActiveSheet.UsedRange iColMerge = 1 Do iColMerge = […]

在C＃中使用非相邻列中的数据创buildExcel图表

我需要使用两个不相邻列的两个范围来创build一个图表，并在代码中定义哪个范围将采用X轴和Y轴。 例如：对于M3:M15和K3:K15这两个范围，我需要X轴值为K3至K15 ，Y轴值为M3至M15 。 我有一个代码从两个相邻的列创build图表： string start_chart_values = "M3"; int stop_chart_line_calc = 1 + num_of_rows_to_copy; string stop_chart_values = "L" + stop_chart_line_calc.ToString(); double chart_location = stop_chart_line_calc * 12; Excel.Range chartRange; Excel.ChartObjects xlCharts = (Excel.ChartObjects)xlWorkSheet.ChartObjects(Type.Missing); Excel.ChartObject myChart = (Excel.ChartObject)xlCharts.Add(2, chart_location, 300, 250); Excel.Chart chartPage = myChart.Chart; Excel.Axis yAxis = chartPage.Axes(Excel.XlAxisType.xlValue, Excel.XlAxisGroup.xlPrimary); yAxis.ScaleType = Excel.XlScaleType.xlScaleLogarithmic; chartRange = xlWorkSheet.get_Range(start_chart_values, […]

VBA – 将图表从Excel粘贴到PowerPoint时保持源格式

我想使用VBA将位于Excel工作簿中的一些图表复制粘贴到PowerPoint幻灯片中。 这部分很容易，但我也想保持源格式（= Excel格式）。 1）我第一次使用这种基本的代码： Worksheets("DailyActivityGeneral").ChartObjects("Chart 3").Copy Set chartGen3 = prsntPP.Slides(16).Shapes.Paste 它工作正常，格式化，这是不保留。 2）然后我尝试使用另一种方法： Worksheets("DailyActivityGeneral").ChartObjects("Chart 3").Copy prsntPP.Slides(16).Select prsntPP.Application.CommandBars.ExecuteMso ("PasteExcelChartSourceFormatting") prsntPP.Application.CommandBars.ReleaseFocus 这保持源格式，这是伟大的，但我似乎无法写： set chartGen3 = prsntPP.Application.CommandBars.ExecuteMso ("PasteExcelChartSourceFormatting") （我得到一个错误消息）问题是，我不知道如何操纵粘贴的图表（这可能与“chartGen3”像第一个方法中一样）。 任何关于如何处理粘贴图表的想法？ 这可能会解决我的问题！ 3）我注意到，当我在代码的开始处使用第二个方法时，（几乎）所有的复制粘贴操作现在保持源格式，即使它们是用第一种语法编写的。 所以，我发现的最好的解决scheme，既能够处理粘贴的图表，并保持其源格式，首先使用第二种方法，删除幻灯片，因为图表不能被操纵，然后使用第一种方法其他幻灯片。 但是我有一个最后的问题：它保持了源码的格式化，但是由于不明原因，有时它不会（随机行为！） 在将图表从Excel复制到PowerPoint时，如何继续保持源格式？ 谢谢 ！