Bild aus Zellbereich erstellen.

Sub Bereich_in_Bild()

    Application.ScreenUpdating = False

        Bereich = Selection.Address

        Zeile = Selection.Row

        Spalte = Selection.Column

        ActiveSheet.Range(Bereich).CopyPicture Appearance:=xlScreen, Format:=xlPicture

        With ActiveSheet.ChartObjects.Add(ActiveSheet.Cells(Zeile, Spalte).Left, ActiveSheet.Cells(Zeile, Spalte).Top, Range(Bereich).Width, Range(Bereich).Height).Chart

            .Paste

            .Export "C:\Temp\Bild.jpg"

            .Parent.Delete

        End With

    Application.ScreenUpdating = True

End Sub