PowerPoint VBA 図形を同じ位置に貼り付けるマクロ

PowerPointで図形、画像、テキストボックスをコピペすると、縦横共に「0.42cm」位置がずれて貼り付きます。

Illustratorでは、オブジェクトを「Ctrl + F」キーで全面へペーストをすることで、コピー元と同じ位置に貼り付けることができます。

PowerPointで「Ctrl + F」キーを押すと、「検索」ダイアログボックスが開きます。

PowerPointでもIllustratorと同じように、図形などのオブジェクトを同じ位置に貼り付けできる便利なマクロを作りましたのでご紹介します。

オブジェクトを同じ位置に貼り付けるマクロ

コード

Sub オブジェクトを同じ位置に貼り付け()

    Dim n As Long
    Dim msg As String
    
    '選択中のスライド番号を取得
    n = ActiveWindow.Selection.SlideRange.SlideIndex

    '選択中のオブジェクトをコピー
    With ActiveWindow.Selection
    
        'オブジェクトが選択されていない場合はマクロ終了
        If .Type = ppSelectionNone _
        Or .Type = ppSelectionSlides Then
        
            'メッセージ
            msg = "オブジェクトを選択してください。"
            MsgBox msg
            Exit Sub
            
        End If
    
        With .ShapeRange
        
            'オブジェクトをコピー
            .Copy
            'コピー元の位置を代入
            x = .Top
            y = .Left
            
        End With
    End With
        
    'オブジェクトを貼り付け
    With ActivePresentation.Slides(n).Shapes.Paste
    
        'コピー元の位置に移動
        .Top = x
        .Left = y
        
    End With
End Sub

実行手順

複製したいオブジェクトを選択した状態でマクロを実行します。