【マクロ】選択範囲を画像ファイルに保存

吐き出した画像はドキュメントの中に保存される。


Sub 選択範囲を画像ファイルに保存()
    With Selection
        .CopyPicture Appearance:=xlScreen, Format:=xlBitmap
        With ActiveCell.Worksheet.ChartObjects.Add(.Left, .Top, .Width, .Height)
            With .Chart
                .Paste
                .Export "test.png", "png"
            End With
            .Delete
        End With
    End With
End Sub