从 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

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

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

之后的形状是这样的(t运行cated): 我也尝试了其他数据类型，但没有成功。

Answer 1

我在调试代码时自行解决了这个问题。问题是当我运行代码时范围数组被改变了。所以，修好之后，形状就没有了 t运行cates.

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

shape truncated after paste special from excel to powerpoint 2013

excel

powerpoint

vba