嘿，我碰到过类似的坑！你这个问题大概率是操作顺序不对或者链式调用的隐式冲突导致的，尤其是你同时用了.Align对齐和手动设置.Left，这俩会“打架”的！

问题根源 #

你代码里先调用了.Align msoAlignLefts, True，这会让PPT自动把形状左对齐到幻灯片的左边缘（或者对应的占位符边界），之后再设置.Left，要么会被之前的对齐操作直接覆盖，要么因为链式调用没精准定位到目标形状，导致设置根本没生效。

修正后的代码 #

建议你先把粘贴后的形状赋值给一个变量，明确操作对象，再调整操作顺序：

Dim pastedShapeRange As PowerPoint.ShapeRange
'先把粘贴的形状存到变量里，避免链式调用的隐式问题
Set pastedShapeRange = PPTPres.Slides(pptcel.Offset(0, -8).Value).Shapes.Paste

With pastedShapeRange
    '第一步：取消宽高锁定，确保尺寸设置不受限制
    .LockAspectRatio = msoFalse
    
    '第二步：先设置形状的宽高
    .Height = Application.InchesToPoints(5.49)
    .Width = Application.InchesToPoints(5.12)
    
    '第三步：手动设置位置——注意！这里不要同时调用左对齐/顶部对齐的方法
    .Left = Application.InchesToPoints(0.8)
    .Top = Application.InchesToPoints(0.8) '如果需要手动设置顶部位置，同理取消.Align msoAlignTops, True
End With

额外注意事项 #

1. 对齐操作和手动位置设置二选一：如果必须用对齐（比如居中），那就要调整顺序，但手动设置.Left的话，绝对不能再调用.Align msoAlignLefts, True，否则你的手动设置会被直接覆盖。
2. 检查幻灯片编号是否正确：确认pptcel.Offset(0, -8).Value返回的是你要操作的幻灯片编号，别不小心改到别的幻灯片去了。
3. 排查占位符影响：如果目标幻灯片有占位符，粘贴的形状可能会自动嵌入占位符，导致位置被占位符限制，可以尝试用.PasteSpecial指定粘贴格式，或者粘贴后把形状移到顶层。

你可以试试这个修正后的代码，应该能解决.Left属性不符合预期的问题！

内容的提问来源于stack exchange，提问作者Izzat Ismail