Tag: excel charts

Excel图表VBA通过数据标签循环: 我有许多工作表上每个graphics，我想循环通过每个图中的每个数据标签删除任何等于0，但似乎无法拉数据标签值。 With ActiveChart For k = 1 To .SeriesCollection.Count For j = 1 To .SeriesCollection(k).Points.Count For l = 1 To .SeriesCollection(k).Points(j).DataLabels.Count If .SeriesCollection.Points(j).DataLabels(l) = 0 Then .SeriesCollection.Points(j).DataLabel(l).Delete End If Next l Next j Next k End With （忽略通过每个图表循环激活每个图表，该位的作品，保持代码示例最小）任何人都可以build议如何循环数据标签，检查值，并删除适当的地方？

如何在Excel 2013中制作可缩放的图表: 我有一个Excel电子表格中的4000列和200行，我想用它的所有数据做一个折线图，但是一旦我创build图表，很难看到图表中的每个单独的项目，即使我放大页面到最大是否有更好的主意，使图表包含大量的数据，也可以放大查看每个单独的项目？

在Excel中以空白的forms绘制空白单元格: 我正在绘制一些在某些单元格中空白的数据。在空白单元格我有公式，我必须保持公式。当我绘制数据时，空白单元格绘制为零。我想在图中填充空白而不是零。我试图右键单击图>select数据>隐藏和空单元格设置>显示空单元格作为差距。但是这并没有帮助！

使用VBA更改图表字体: 如何使用VBA更改Excel图表的字体？如果我手动select图表，并logging一个macros，而我手动更改字体名称和大小，我得到下面的macros。但是，当我立即重播macros，它会引发运行时错误：“指定的值超出范围”。所以它看起来像macroslogging器有一个错误。这意味着我无法弄清楚自己改变字体的代码。 Sub Macro6() ' ' Macro6 Macro ' ' With ActiveSheet.Shapes("Chart 1").TextFrame2.TextRange.Font .NameComplexScript = "Verdana" .NameFarEast = "Verdana" .Name = "Verdana" End With ActiveSheet.Shapes("Chart 1").TextFrame2.TextRange.Font.Size = 14 End Sub 我知道，作为替代scheme，我可以逐个更改每个单独元素的字体（标题，轴标题，轴，…），但是这很乏味，并且留下遗忘一些元素（系列点标签，趋势线方程，…）。我正在寻找更改图表的“默认”字体，使其所有的元素将具有该字体。

图表系列线：带到前面，发送到后面: 如果我在Excel中使用VBA制作多个系列的折线图，并且该系列的两个数据非常相似，以使他们的图表系列行部分重叠，则最后一个写在前面的那个之前。在Worksheet_Change事件中，我希望能够根据更改数据的用户操作在前面的图表系列行之间来回切换。我可以做到这一点，而不删除和重新创build图表？下面是我如何识别系列线，例如这里的系列2： Sheet1.ChartObjects("MyChart").Chart.SeriesCollection(2) 获取TypeName返回Series 。我看到Series的帮助，但没有关于它的属性和方法的信息。我在对象浏览器中看不到Series （我在Excel 2007中）。我能够获得上下文帮助下拉列表中的属性和方法，但我没有看到任何有希望的下拉菜单。那么，我可以把图表系列放在前面/发送到后面，而不删除和重新创build图表？

VBA不能将整个图表复制到PowerPoint中: 我正在处理的问题是，我的VBA代码在复制到幻灯片幻灯片时select不包括整个图表。我有以下代码：此代码从2个数字创build我的甜甜圈图表。 Function CreateTwoValuesPie(ByVal X As Long, ByVal Y As Long) As Chart 'Returnerer Set CreateTwoValuesPie = charts.Add CreateTwoValuesPie.ChartType = XlChartType.xlDoughnut With CreateTwoValuesPie.SeriesCollection.NewSeries .Values = Array(X, Y) End With With CreateTwoValuesPie .ChartArea.Format.Fill.Visible = msoFalse .ChartArea.Format.Line.Visible = msoFalse .Legend.Delete .ChartGroups(1).DoughnutHoleSize = 70 With .SeriesCollection(1) .Points(1).Format.Fill.ForeColor.RGB = RGB(255, 158, 77) 'Score Orange .Points(2).Format.Fill.ForeColor.RGB = RGB(175, 171, […]

Excel中空点的移动平均计算: 我使用Excel趋势线公式为给定数据点生成趋势线。在正常情况下（没有空分）移动平均工作正常。但是我不能用移动平均趋势线的空白点。我找不到空格的移动平均公式。请参考下面的excel移动平均图与期间2 如果我将周期值更改为3，则此空白值已更改任何人都可以提出解决scheme

图表中的结构化引用消失了，为什么？: 我点击图表，点击“select数据”，然后点击“编辑数据系列”。此popup窗口出现：我想改变这个单元格引用到一个适当的表引用。所以我写了一个表引用到数据系列中：现在我点击进入，并没有得到任何错误信息。我很开心。但是，当我再次点击编辑数据系列时，结构化参考已经消失。为什么？在过滤表格时，图表仍然dynamic地适应表格。但是，当我删除和添加行的表，引用并不总是遵循。我想如果我能得到结构化的参考不消失，参考将始终遵循。是否有可能在图表中使用结构化的引用，然后不消失？我使用Excel 2013，Windows 8.1

计算对数趋势线的斜率和截距值为excel: 我正在生成对数趋势线，并使用Excel公式为此。但是我不能计算在Excel中计算的斜率和截距值。我想，我在公式中犯了一些错误。这是我的代码 var X= [10, 25, 30, 40]; Y= [5, 4, 7, 12]; var Slope, Intercept, SX = 0, SY = 0, SXX = 0, SXY = 0, SYY = 0, SumProduct = 0, N = X.length; for (var i = 0; i < N; i++) { SX = SX + X[i]; SY […]

Excel中使用string混合的图表编号: 我有一些数据放在图表和格式中。有一些业务规则，其中一些数据是“保护”的，就像在这个例子中。用“受保护”（或任何其他词）graphics表示excel的问题是指向X轴底部的graphics。我希望图表看起来像第二个图表，但是我想避免将一个隐藏的列标出来，因为我认为这会混淆我的高级用户。任何想法或见解都被赞赏！