Question

我正在使用Excel VBA创建“MASTER”工作表的副本，并使用不同的设置（和数据）填充每个副本。

我在主表上有几个图表，当复制它时，（仅）其中一个被错误地复制 - 它的图例移动。在我的原始图表中，它是自定义的（不是xlBottom或类似的），并且在复制时，图例移动到另一个位置（始终是相同的位置，只显示左侧属性更改）。

由于我稍后将图表导出为标准化演示文稿，因此存在问题。

我没有找到任何建议或事实上任何有类似问题的人。

我用来复制工作表的代码（在此之前，我删除了以前出现的同名工作表的任何内容）：

astrSheetName = "SomeName" 'This is actually an input into the function

Set wsMaster = ActiveWorkbook.Sheets("MASTER")
wsMaster.Copy After:=wsMaster
ActiveSheet.Name = astrSheetName
ActiveSheet.Tab.ColorIndex = -4142

我将不胜感激任何帮助！

Answer 1

如果您将图例置于自定义位置，我认为这是Excel中的错误。要解决此问题，您需要在代码中定义图例的位置。下面的模糊是如何做到这一点的一个例子。

ActiveSheet.ChartObjects("Chart 1").Activate
ActiveChart.Legend.Select
Selection.Left = 32.016
Selection.Top = 190.917

复制工作表会在图表中移动图例

1 个答案: