从 excel 到 powerpoint 2013 粘贴特殊后的形状被截断答案

【问题标题】：shape truncated after paste special from excel to powerpoint 2013从 excel 到 powerpoint 2013 粘贴特殊后的形状被截断
【发布时间】：2016-08-31 23:13:39
【问题描述】：

我需要将 excel 数据复制到 powerpoint 幻灯片，但特殊粘贴后形状会被截断。

这是我的代码：

    Set myShape = mySlide.Shapes("obj" & i)
    mySlide.Shapes.PasteSpecial DataType:=2
    Set newShape = mySlide.Shapes(mySlide.Shapes.Count)
    newShape.LockAspectRatio = msoFalse
    newShape.Left = myShape.Left
    newShape.Top = myShape.Top
    newShape.Height = myShape.Height
    newShape.Width = myShape.Width

    myShape.Delete

我需要替换与其属性相同的现有形状，因此我首先获取形状并将其属性设置为新形状，然后将其删除。

在我运行代码之前，形状是这样的：

之后的形状是这样的（截断）：我也尝试了其他数据类型，但徒劳无功。

【问题讨论】：

你的源形状是什么？它是一组矩形还是一张桌子？您是否粘贴到选择中，例如占位符？可以分享一下文件吗？
关于 Jamie 的问题，您是否粘贴到带有任何空白内容或图片占位符的幻灯片上？
感谢您的 cmets。问题是当我运行代码时范围数组发生了变化。因此，在修复它之后，形状不再被截断。

标签： excel powerpoint vba

【解决方案1】：

我在调试代码时自己解决了这个问题。问题是当我运行代码时范围数组会发生变化。因此，在修复它之后，形状不再被截断。

【讨论】：