Макрос PowerPoint VBA для копирования размера и местоположения объекта и вставки в другой объект - PullRequest
Новая
       19

Макрос PowerPoint VBA для копирования размера и местоположения объекта и вставки в другой объект

4 голосов
/ 08 июля 2011

Только что переключился на Mac из Windows, и в ppt в Windows у меня было дополнение, которое позволяло мне копировать свойства объекта, включая размер и / или местоположение, и вставлять его в другой объект, что-то вроде художника расширенного формата с переключателями для свойства, которые вы хотели бы скопировать.

У меня больше нет этого надстройки, но я бы очень хотел создать простой макрос для копирования размера и местоположения. Это в сфере возможностей? Если да, не могли бы вы предоставить код или указать мне ресурс, где я могу научить его самому себе?

Я потратил около 2 часов на поиск и не могу найти совместимое с офисным Mac решение - так что это моя последняя надежда!

1 Ответ

4 голосов
/ 08 июля 2011

Вот пример, который работает. Вы можете адаптировать его к вашим конкретным потребностям. 

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
...