Tag: 图表

将另一个系列添加到Excel图表时如何修复格式？: 我原来的Excel条形图看起来像：我想为2014年的数据添加另一个系列，如下所示：我希望2014年的系列作为重叠在原始条形图上的分散点。但是，当我将2014系列添加到图表并将其图表types更改为Scatter时，我获得了以下图表：如何将条形图更改为原始图表中不同颜色的调色板，并将“当前”轴标签更改为其列出不同类别的原始格式？理想情况下，我想要一个省时的解决scheme，因为我不得不用一些类似的图表来重复这个过程。

将剪贴板图像保存为.jpg: 我有几个Excel报告，并需要导出选定的图表作为图像，作为第一步。然后我需要将这些图像导入到PowerPoint演示文稿中。看来我几乎在那里，但卡住了。我试图用方法chartObjects获得工作表的所有图表（我已经试过了方法图表，但是我的集合是空的）。然后，我将所选的图表复制到剪贴板（当这个工作，我将使用forEach获得我的工作簿的所有图表）。但是，当我试图保存剪贴板数据时，似乎没有图片，而有数据。 $xl = new-object -c excel.application $xl.displayAlerts = $false $xl.visible = $false $wb = $xl.workbooks.open($fileData) $ws= $wb.sheets.Item("Sheet1") $chartCollect = $ws.chartObjects() $chartToExport = $chartCollect.Item(3) $toClipboard = $charToExport.copyPicture() $e=[System.Windows.Forms.Clipboard]::GetDataObject() if ($e -eq $null) { Write-Host "there is no data" } $img =$e.GetImage() if ($img -eq $null) { Write-Host "there is no picture" […]

你怎样用行来代替系列？: 我正在做一个VBA的Excel代码来绘制某些数据，但是即使在指定按行来绘图的时候，225个数据系列的限制也会一直显示出来，这个问题怎么解决呢？ Y=1197 Set DChart = Charts.Add With DChart .ChartType = xlXYScatterSmoothNoMarkers .SetSourceData Source:=Sheets("Sheet1").Range("A2:" & "B" & Y), PlotBy:=xlRows End With

无法添加辅助轴: 我正在试图为下一个声明绘制大量的数据。但是，我不知道为什么次轴没有被下面的代码绘制： Sub IndividualPlots() Dim TF As Worksheet Dim OIL As Worksheet Dim WTR As Worksheet Dim TG As Worksheet Dim GL As Worksheet Dim RG As Worksheet Dim WC As Worksheet Dim MM As Worksheet Dim VRRStart As Worksheet Dim NewWs As Worksheet Dim cht As Chart Dim chtobj As ChartObject Dim Lastcol As […]

图表系列过滤: 我在列表中有六个系列，用于30天期限的date范围。这个图表看起来非常拥挤：有什么方法可以在y轴上应用系列filter，在x轴上应用datefilter，以便在运行时查看图表上特定系列的显示？我试着用报告参数。这是行不通的。参数select整个图表显示与否。我不知道这样做的确切方式。 SSRS图表本身是否有机会在运行时显示filter，以便用户可以像在Excel中一样编辑filter？

将多个透视图导出到新的单词文档: 我想知道是否有人可以帮助我，我确信这是一个非常简单的过程，但我完全不知道我在用VBA做什么。我正在创build一个自动化的Excel文档来生成一系列的数据透视图，虽然这部分工作正常，我现在正在寻找添加一个macros，然后将所有这些图表导出到一个新的Word文档。我在网上发现了一些代码似乎在某些方面工作，但它不是我所期待的。请参阅下面的代码： `Sub ChartToWord() Dim wdApp As Word.Application 'Copy Chart Sheets("SHEET NAME HERE").Select ActiveSheet.ChartObjects("Chart 1").Activate ActiveChart.ChartArea.Copy On Error Resume Next 'Try to establish link to open instance of Word Set wdApp = GetObject(, "Word.Application") 'If this fails, open Word If wdApp Is Nothing Then Set wdApp = GetObject("", "Word.Application") End If On Error […]

Excel中的Powerpoint – 链接的图表不会自动更新path: 我正在更新一个工具，使用户能够用一些数据做一些基本的时间序列分析。从下拉列表中select不同的时间序列时，会自动更新一系列图表。插入到Excel电子表格中的是一个PowerPoint演示文稿，该演示文稿先前已链接到Excel电子表格中的图表，以便根据Excel进行更新。这是我很难更新。我在Excel中复制graphics，然后在PowerPoint中进行select性粘贴 – >粘贴链接 – > Microsoft Excel图表对象。这工作正常，直到我尝试移动文件或更改文件名。不链接到PowerPoint文件插入的文件，而是保持链接graphics中的完整文件path，并继续指向发生链接的原始文件。我想要做的就是继续查看PowerPoint文件插入到的文件的位置。 embedded不是一个选项，因为有很多图，这导致文件开始推200mb我相信（虽然我是开放的挑战这一点）。他们肯定似乎去年工作，但他们正在使用Excel 2003.我想知道如果Excel 2013的行为不同，这是我的问题。关于这一点的最后一个要求，由于我工作的组织的规则，VBA是一个禁忌。我感觉到解决scheme非常简单，或者我要求一根棍子上的月亮。谢谢。

删除所有现有的Excel图表系列: 我正在修改excel中的折线图，我想删除所有系列，并将新系列添加到同一个图表中。我正在使用foll代码： Excel.SeriesCollection serColl = chartpage.SeriesCollection(); Excel.Series ser = serColl.Item(4); ser.Delete(); ser = serColl.Item(3); ser.Delete(); ser = serColl.Item(2); ser.Delete(); ser = serColl.Item(1); ser.Delete(); 但我想要的代码是通用的，即find一系列的数量，并在一个循环中删除所有。提前致谢。

数据如何更新？: 我有两列是我在图表中使用的信息，它根据我select的时间范围而变化。主要问题是列长度可能不同，可以是5行，当我select另一个时间段时，可以是7行或更less，然后是5.图表中的数据是刷新的，但列数不是，例如我有这样的数据： Tom 20 Susan 30 John 15 所以图表会有三列，它们的颜色根据第一列中的值而不同，但是当我select另一个时间段时，数据会更改为： Peter 40 Patrick 70 Joe 36 Megan 57 Susan 74 现在图表将包含只有前三个名字的三列：彼得，帕特里克，乔和列的颜色将与第一个图表相同。我希望很容易理解我的问题，最主要的是图表的可视化不会像它应该的那样改变。我添加了一部分代码： Sub Macro1() Dim MyRangex As Range Dim LastRow As Long Dim ChartRange1 As Range LastRow = Worksheets("Calculate").Cells(Rows.Count, "E").End(xlUp).row Set MyRangex = Worksheets("Calculate").Range("E2:E" & LastRow) Set ChartRange1 = Sheets("Calculate").Range("G2:G" & LastRow) ActiveChart.SeriesCollection(1).Select ActiveChart.SeriesCollection(1).XValues = […]

Excel Chart：基于命名范围的标题和轴瓦: 我认为这应该工作，但有时Excel有一个趋势，使简单的事情变得复杂（或不可能）。我正在build立一堆图。因为我预计我将不得不在某些时候翻译标签，所以我想用所有标签的名称范围（然后将它们抵消以进行翻译）。已经有VBA参与其他的东西，所以我有点喜欢尽可能使用名称pipe理器。我认为这样做更容易维护。当我尝试设置“轴标题”和图表标题时，出现问题，作为对名为范围的单元格的引用。我知道我可以将参考设置为一个CELL，通过在select标题时进入配方栏， =worksheetname!$A$1 不过，让我们说，我的那个单元格被命名为graphlabel_waterpointY。我想做一些事情： =graphlabel_waterpointY 哪个失败。有一点挖掘，我发现我需要把工作簿的名称之前，我可以使用命名的范围，如下所示： =WORKBOOKNAME.XLSM!graphlabel_waterpointY 但是，这种方法很有效，我不希望用户重命名工作簿，然后发现所有graphics标题都显示！VALUE，而不是正确的标题。因此，我也想为工作簿的名称提供一些灵活的参考。我不想用： =CELL("filename",A1) 并在那里隔离string，因为如果用户打开另一个工作簿，也可能失败。所以我想“好吧，因为我已经在使用VBA了，所以我只是在打开工作簿的时候将工作簿名称设置在一个单元格中，然后让我的公式参考它”。但是，这也失败了。即使是这样的： =META!$A$1!graphlabel_waterpointY （假设META！$ A $ 1包含工作簿名称）也将失败。对我来说，我不得不硬编码价值，这似乎是愚蠢的。我打算有一些可以翻译的东西。当然，我们可以做不同的版本，但是这样就不得不维护2本工作簿。或者我可以解决工作簿名称的硬编码问题，并说它们不能改变它。但是这也很糟糕。 ================== 我的解决scheme是第一个提到的，例如，即使单元格有一个命名的范围，请参考它的A1风格的引用。工程，但后来我失去了布局的灵活性…..也许我很挑剔….