如何禁用复制图表区中存在的形状？

Question

我在 Excel 中有一个图表，我的宏在图表区域的右侧填充了 10 个形状。我只想将图表复制到电源点，到目前为止找不到禁用复制形状的方法。如果我复制图表，它也会复制形状。

Answer 1

这是一个快速示例，它从活动 sheet 复制第一个图表，将其粘贴到活动演示文稿的第一张幻灯片，并从粘贴的图表中删除任何现有形状...

'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

希望对您有所帮助！

如何禁用复制图表区中存在的形状？

How to disable copying the shapes present in chartarea?

excel

vba

excel-formula

shapes