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

Question

我需要将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

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

在运行代码之前，形状如下：

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

Answer 1

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