Tag: 图表

在分组集上执行一个函数: 我在Excel中有两列数据，其中一列包含date和其他表示特定状态（如枚举）的值1或2。这是一个示例数据集： 2014/07/04 | 1 2014/07/04 | 1 2014/07/04 | 2 2014/07/04 | 1 2014/07/05 | 2 2014/07/06 | 1 2014/07/06 | 1 2014/07/06 | 2 我需要得到天数1的百分比图。在上面的例子中七月四日：75％ 7月5日：100％ 7月6日：66％。我已经试过数据透视表和图表没有运气，因为我不能写我自己的函数的值（ COUNTIF为COUNT除以COUNT ），只使用预定义的没有任何用处。有谁知道我会怎么做呢？

Excel：图表和图例中的Z序: 我有一个组合图表在Excel中，与聚集条形图（为一个盒子的情节）和线条。我正试图在行前显示条形图/框图，但能够这样做。我试图将条形图移动到“select数据”的顶部和/或底部 – 但没有改变。有什么build议么？我正在使用Excel 2013。谢谢！

将function数据透视图分割成多个图表: 我有一个数据透视表，跟踪资源分配基于几个filter。我想将图表分成多个图表。在图片中，我需要每行一个图表。我可以手动执行此操作（每个资源一个图表），但这并不理想，因为我只想根据filter查看某些图表，数据会频繁更改。预先感谢您的帮助。参考 – http://imgur.com/vZJEHGM

在excel中突出显示两条曲线之间的区域: 我需要做的是突出两条曲线之间的区域，以便像最可能和最不可能的值区域一样进行显示。我怎么能这样做？任何帮助表示赞赏。谢谢

如何从Excel复制图表并embedded到PPT？: 我试图将粘贴图表从Excel复制到PPT，将图表embedded到PPT中。我使用下面的代码： Sub ChartToPresentation() ' Uses Early Binding to the PowerPoint Object Model ' Set a VBE reference to Microsoft PowerPoint Object Library Dim PPApp As PowerPoint.Application Dim PPSlide As PowerPoint.Slide Dim PPPres As PowerPoint.Presentation ' Reference existing instance of PowerPoint Set PPApp = GetObject(, "Powerpoint.Application") ' Reference active presentation Set PPPres = PPApp.ActivePresentation PPApp.ActiveWindow.ViewType […]

Excel VBA图表轴错误：读取`.ScaleType`时，对象'Axis'的方法'ScaleType'失败: 我在Excel VBAmacros中有一个任务 axscty = ax.ScaleType 这给出了错误：“方法'ScaleType'对象'轴'失败”。我发现资料来源指出这是Excel 2007中的一个错误。其他人在设置.ScaleType时发现错误，例如， .ScaleType = xlLinear 我find了错误的原因：我有一个数据序列的辅助Y轴。如果将这些序列分配给主Y轴并删除辅助轴，则错误消失。任何人都知道如何避免有第二个Y轴的错误？

我的统计质量控制图表VB代码中的错误: 我在网上发现了一个macros在线创build统计质量控制图。所以我有一个.Csv文件，看起来像一个Excel表。我使用macros，所以我必须select数据点。然后，我必须select标签，然后绘制。我的问题是UL2 =（上限，2 *标准偏差）和LL2 =（下限，2 *标准偏差）的误差条根本没有出现。所有其他错误栏显示。如平均，UL（上限）和LL（下限）以及UL3和LL3，但不是UL2和LL2。此外，数据点不是沿着它们应该是的平均线，它们也被移位。我使用的示例表显示了他们，但是这是在一个常规的Excel文件。我将它作为.CSV文件的原因是因为我使用另一个macros来提取原始数据，并将其粘贴到新的.csv文件中。我认为这是原因，但我不是100％肯定的。我想知道你们是否可以帮助我。我对VBA相当陌生，请耐心等待。谢谢！这是创build控制图的代码： Option Explicit Public Function GetRange(box_message As String) As Range Set GetRange = Nothing On Error Resume Next Set GetRange = Application.InputBox(box_message, "Select Range", Selection.Address, , , , , 8) End Function Public Function IsNotOk(ByVal rng As […]

粘贴图表和更改功率点大小 – VBA: 我正在尝试使用以下命令在PowerPoint中粘贴图表： PPApp.CommandBars.ExecuteMso "PasteExcelChartSourceFormatting" 它工作得很好，但是当我尝试更改大小和位置时，代码不会在图表属性中生效，也不会返回错误。当我使用这个命令时： Shapes.Paste.Select 我可以更改和调整图表大小，但不要为我工作，因为我想要“PasteExcelChartSourceFormatting”。我的错误是什么？我的完整代码与PPSlide ActiveChart.ChartArea.Copy PPApp.CommandBars.ExecuteMso "PasteExcelChartSourceFormatting" '.Shapes.Paste.Select With PPApp.ActiveWindow.Selection.ShapeRange .LockAspectRatio = msoFalse .Width = 680.314961 .Height = 453.543307 .Left = 19.8425197 .Top = 56.6929134 End With

Excel – 柱状图标签作为最高栏的百分比: 我想给我的Graph添加一个标签。不过，我希望将最高值设置为100％，其他所有值都是该值的百分比。例如： FirstSeries 1000 SecondSeries 500 ThirdSeries 100 有没有办法给列添加标签，所以第二列和第三列将显示最高值（1000）的百分比。所以在这种情况下，第二列的数据标签是50％，而第三个10％

在Excel工作簿中循环查看图表对象: 我已经看到了大量的代码循环在个人工作表中，但是我试图通过工作簿中的单个图表循环。我的代码如下（正如你可以看到我只是试图将图表保存为PDF）： Sub ExportAllCharts() Dim Current As Worksheet ' Loop through all of the worksheets in the active workbook. For Each Current In Worksheets If TypeName(Current) = "Chart" Then objCht.ExportAsFixedFormat xlTypePDF, Filename:= _ "c:/" & Current.Name, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False End If Next End Sub 不幸的是，当代码循环遍历工作簿中的所有工作表时，出于某种原因它正在跳过图表。是否有相当于应用于Excel中的单个图表的Worksheets ？或者也许还有另外一种我没有想到的方式呢？谢谢！大卫