调整从excel到powerpoint的形状

Question

每当我将excel的形状粘贴到具有预期尺寸的VBA时，尺寸总是不同的。确切地说，是.Left部分。

这是我的代码的简短版本：

With PPTPres.Slides(pptcel.Offset(0, -8).Value).Shapes.Paste
    .LockAspectRatio = msoFalse
    .Align msoAlignCenters, False
    .Align msoAlignMiddles, False
    .Align msoAlignLefts, True
    .Align msoAlignTops, True
    .Height = Application.InchesToPoints(5.49)
    .Width = Application.InchesToPoints(5.12)
    .Left = Application.InchesToPoints(0.8)
End With

Answer 1

尝试这样的想法：

With PPPres.Slides(pptcel.Offset(0, -8).Value)
    .Shapes.Paste
    With .Shapes(.Shapes.Count)
        .LockAspectRatio = msoTrue
        .Left = 25
        .Top = 25
        .Height = 200
    End With
End With

相应地更改属性设置。