将 Powerpoint 中的形状从 A 点移动到 B

Question

我是 VBA 新手，我正在尝试做一些对我来说看起来很简单但很难实现的事情。

上下文：

我有一个包含 20 张幻灯片的 PPT 演示文稿，其中每张幻灯片有 21 个形状，但最后一个。每次我想添加一个新形状时，它都在第一张幻灯片上，因此我必须移动每个形状以便为新形状腾出空间。

我的问题：我发现了如何使用此代码将形状移动到我想要的位置

With ActiveWindow.Selection.ShapeRange
  .Left = XXX 'change the number for desired x position
  .Top = XXX 'change the number for desired y position
End With

但是，这仅在我选择所述第一个形状时才有效。 因为我有数百个形状，将它们全部命名以移动它们太费时间了。所以我想做的是告诉 VBA 选择那里的形状：

.Left = 50
.Top = 50

然后把它移到那里

.Left = 140
.Top = 50

这看起来很简单，但不知何故我不知道该怎么做。 这个线程接近我想要的，但还不是。

提前谢谢你。

Answer 1

您可以将形状添加到给定的幻灯片，从而减少移动它的需要：

' Adds a shape to a given slide or if no slide passed, to the current slide in view
' Assumes code is running in PowerPoint VBE
Sub AddShapeToSlide(Optional oSld As Slide)
  If oSld Is Nothing Then Set oSld = ActiveWindow.View.Slide
  With oSld.Shapes.AddShape(msoShapeRectangle, 140, 50, 200, 200)
    .Name = "My New Shape"
    ' Apply other formatting here
  End With
End Sub