如何复制并存储 PPT 中对象/形状的位置，然后将该位置粘贴到其他幻灯片中的其他对象上

Question

我是 VBA 编码新手，我想创建两个宏，一个用于存储对象/形状位置，另一个允许我将该位置粘贴到任何幻灯片（包括其他幻灯片）上的其他对象上。我认为我遇到的问题是从其他代码引用存储的对象位置，但我对此很陌生，所以我可能只是编码了胡言乱语哈哈。谢谢！

Sub CopyPositon()
    
    Dim oshpR  As ShapeRange
    Dim T1     As Single
    Dim L1     As Single
    
    Set oshpR = ActiveWindow.Selection.ShapeRange
    
    T1 = oshpR(1).Top
    
    L1 = oshpR(1).Left

End Sub

Sub PastePosition()

    Set oshpR = ActiveWindow.Selection.ShapeRange

    oshpR.Left = L1

    oshpR.Top = T1

End Sub

Answer 1

• 在VBE插入>模块中，粘贴代码。
• 先运行

  CopyPositon

  ，然后运行

  PastePosition

Public T1     As Single
Public L1     As Single
Sub CopyPositon()
    Dim oshpR  As ShapeRange
    Set oshpR = ActiveWindow.Selection.ShapeRange
    T1 = oshpR(1).Top
    L1 = oshpR(1).Left
End Sub
Sub PastePosition()
    Set oshpR = ActiveWindow.Selection.ShapeRange
    oshpR.Left = L1
    oshpR.Top = T1
End Sub