0

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

我在主表上有几个图表，在复制它时，（只有）其中一个被错误地复制 - 它的图例四处移动。在我的原始图表中，它是自定义定位的（没有 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

我将不胜感激任何帮助 ！

4

1 回答 1

0

如果您在自定义位置有图例，我认为这是 Excel 中的一个错误。要解决此问题，您需要在代码中定义图例的位置。下面的简介是如何执行此操作的示例。

ActiveSheet.ChartObjects("Chart 1").Activate
ActiveChart.Legend.Select
Selection.Left = 32.016
Selection.Top = 190.917
于 2012-07-19T13:15:03.207 回答