PowerPointで透過用の四角形を画像と同サイズで作るマクロ

PowerPoint VBAを使い、透過用の四角形を選択中の画像と同じサイズで作るマクロをご紹介します。

PowerPointで画像を透過させるためには、四角形の中に画像を挿入する必要があります。その一連の操作を自動で行えるマクロです。

この記事の目次

透過用の四角形を作成するマクロ
1. コード
2. 実行結果
まとめ

透過用の四角形を作成するマクロ

コード

Sub 透過用の四角形を作成()

    Dim msg As String
    Dim x, y, w, h, r As Single
    Dim n As Long
    Dim shp As Shape
    
    With ActiveWindow.Selection
    
        'オブジェクトが選択されていない場合はマクロ終了
        If .Type = ppSelectionNone _
        Or .Type = ppSelectionSlides Then
        
            msg = "オブジェクトを選択してください。"
            MsgBox msg
            Exit Sub
            
        End If
    
        With .ShapeRange
        
            '選択画像のプロパティを取得
            x = .Top
            y = .Left
            w = .Width
            h = .Height
            r = .Rotation
            '回転をリセット
            .Rotation = 0
            
        End With
        
        '選択画像をカット
        .Cut

    End With
        
    '選択中のスライド番号を取得
    n = ActiveWindow.Selection.SlideRange.SlideIndex
    
    With ActivePresentation

        '選択画像と同じサイズの四角形を作成
        Set shp = .Slides(n).Shapes.AddShape( _
        Type:=msoShapeRectangle, _
        Left:=y, _
        Top:=x, _
        Width:=w, _
        Height:=h)
    
        '四角形の色
        shp.Fill.ForeColor.RGB = RGB(0, 0, 0)
        '線なし
        shp.Line.Visible = msoFalse
        '回転
        shp.Rotation = r
        'テクスチャで塗りつぶす
        shp.Fill.PresetTextured 1
        '透明度
        shp.Fill.Transparency = 0.5
        '図形を選択
        shp.Select
        
        'クリップボードからの画像の挿入は手動で行う

    End With
End Sub