Powerpoint VBA 宏复制对象的大小和位置并粘贴到另一个对象

Question

刚刚从 Windows 切换到 Mac，在 Windows 上的 ppt 中，我有一个插件，允许我复制对象的属性（包括大小和/或位置）并将其粘贴到另一个对象，有点像高级格式画家，可以切换您的属性我想复制。

我不再有这个插件，但我非常想创建一个简单的宏来复制大小和位置。这有可能吗？如果是的话，您能否提供代码或向我指出一个可以自学的资源？

我花了大约 2 个小时搜索，但找不到 Office Mac 兼容的解决方案 - 所以这是我最后的希望！

Answer 1

这是一个有效的示例。您可以对其进行调整以满足您的特定需求。

Sub CopySizeAndPosition()

    ' Usage: Select two shapes. The size and position of
    ' the first shape selected will be copied to the second.

    Dim w As Double
    Dim h As Double
    Dim l As Double
    Dim t As Double

    With ActiveWindow.Selection.ShapeRange(1)
        w = .Width
        h = .Height
        l = .Left
        t = .Top
    End With
    With ActiveWindow.Selection.ShapeRange(2)
        .Width = w
        .Height = h
        .Left = l
        .Top = t
    End With

End Sub