如何禁用复制chartarea中存在的形状？

我在Excel中有一个图表，我的macros在图表区域的右侧填充了10个形状。 我只想复制图表的权力，并找不到方法来禁用复制的形状到目前为止。 如果我复制图表，它也复制形状。

Answer 1

下面是一个简单的例子，它从活动工作表中复制第一个图表，将其粘贴到活动表示的第一个幻灯片，并从粘贴图表中删除所有现有的形状。

'Declare Excel variables Dim ChartObj As ChartObject 'Declare PowerPoint variables Dim ppApp As Object Dim ppPres As Object Dim ppChartObj As Object Dim ppShape As Object 'Copy first chart from active sheet Set ChartObj = ActiveSheet.ChartObjects(1) ChartObj.Copy 'Paste chart into first slide of active presentation Set ppApp = GetObject(, "PowerPoint.Application") Set ppPres = ppApp.ActivePresentation Set ppChartObj = ppPres.slides(1).Shapes.Paste(1) 'Delete shapes from chart For Each ppShape In ppChartObj.Chart.Shapes ppShape.Delete Next ppShape 

希望这可以帮助！