PowerPoint使い方講座「最短で実務レベルを習得するコース」が【無料】公開中!詳細はこちら
スポンサーリンク
スポンサーリンク

PowerPoint VBA 指定ピクセルに変換して図として保存するマクロ

PowerPoint VBAを使い、画像や図形を指定ピクセルにサイズ変換して図として保存するマクロをご紹介します。

WEB用素材の書き出しに便利なマクロです。

スポンサーリンク

指定ピクセルに変換して図として保存するマクロ

ソースコード

Sub 指定ピクセルで図として保存()

    Dim w As Single
    
    With ActiveWindow.Selection

        'シェイプまたは画像が選択されている場合
        If .Type = ppSelectionShapes Then
        
            '角丸の半径を入力
            w = InputBox("幅を入力してください。" & vbCrLf & _
            "(単位: px)")
            
            'センチに変換
            w = w * 0.02647
            
            'インチに変換
            w = w / 2.54 * 72
            
            '数値以外が入力された場合はマクロを終了
            If IsNumeric(Radius) Then
                ElseIf Radius = "" Then
                Exit Sub
            Else
                msg = "数値を入力してください。"
                MsgBox msg
                Exit Sub
            End If
            
            With .ShapeRange
            
                '縦横比を固定する
                .LockAspectRatio = msoTrue
            
                '幅をリサイズ
                .Width = w
                
                'PNGで図として保存
                .Export _
                PathName:="C:\Users\ユーザー名\Desktop\img.png", _
                Filter:=ppShapeFormatPNG
                
            End With
        Else
            'シェイプまたは画像が選択されていない場合はマクロを終了
            MsgBox "シェイプまたは画像を選択してください。"
            Exit Sub
        End If
    End With
End Sub

保存先までのパスを指定する

「C:\Users\ユーザー名\Desktop」の部分は、保存先までのパスを指定してください。

保存先にフォルダーを指定する場合は、フォルダーを「Shift + 右クリック」でメニューを開き、「パスのコピー」をして貼り付けると簡単です。

実行方法

画像や図形を選択して実行します。

ダイアログが開くので、リサイズしたい幅のピクセル数を入力します。

ファイル名「img.png」で指定した幅にリサイズされて保存されます。