Grafik oder Bereich mit VBA als Bild speichern

Hallo Excelfreunde,
ich habe in einem Datenblatt ein Bild eingefügt (jpg) und mit den Excel Werkzeugen noch Linien und Flächen hizugefügt, die ich mit VBA ansprechen und die Farbe ändern kann. Ich habe das Bild und die Objekte gruppiert und das ganze heißt jetzt Gruppierung 3. Nun möchte ich nach einer Änderung die komplette Grafik mit VBA im Wurzelverzeichnis der Arbeitsmappe als .jpg oder .gif abspeichern wobei eine vorhandene Datei ohne Meldung überschrieben werden soll. Die Lösung, per Hand kopieren und in ein Grafikprogramm als Bild einzufügen, kommt nicht in Frage da der Ablauf automatisch erfolgen soll. Es währe auch schon hilfreich wenn ich den Bereich in dem die Grafik liegt als Bild exportieren könnte z.B. (A1-C20).
Ich hoffe das ich mich verständlich ausgedrückt habe und jemand einen Tip für mich hat. Die Suchfunktion hat jedenfalls keine brauchbare Lösung gebracht. Beste Dank schon mal für die Mühe.
Gruß, DieterL

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Sub BilderExportierenShape() Dim shBild As Shape Set shBild = ActiveSheet.Shapes(1) BildExportShape shBild Set shBild = Nothing End Sub Sub BildExportShape(shExport As Shape) Dim chDiagramm As ChartObject Application.ScreenUpdating = False shExport.CopyPicture Appearance:=xlScreen, Format:=xlPicture Set chDiagramm = ActiveSheet.ChartObjects.Add(0, 0, shExport.Width, shExport.Height) With chDiagramm.Chart .Paste .Export Filename:="C:\Test\Bild1.jpg", FilterName:="JPG" ' andere Grafikformate sind mö _ _ glich End With chDiagramm.Delete Set chDiagramm = Nothing Set shExport = Nothing Application.ScreenUpdating = True End Sub

Hallo Dieter,

' **********************************************************************
' Modul: Modul2 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Sub Range_To_Image()
  Dim objPict As Object, objChrt As Chart
  Dim rngImage As Range, strFile As String

  On Error GoTo ErrExit

  With Sheets("Tabelle1") 'Tabellenname - Anpassen!

    Set rngImage = .Range("A1:C20")

    rngImage.CopyPicture Appearance:=xlScreen, Format:=xlBitmap

    .PasteSpecial Format:="Bitmap", Link:=False, DisplayAsIcon:=False

    Set objPict = .Shapes(.Shapes.Count)

    strFile = "E:\Temp\meinBild.gif" 'Pfad und Dateiname für das Bild

    objPict.Copy

    Set objChrt = .ChartObjects.Add(1, 1, objPict.Width + 8, objPict.Height + 8).Chart

    objChrt.Paste
    objChrt.Export strFile
    objChrt.Parent.Delete
    objPict.Delete

  End With

  ErrExit:
  Set objPict = Nothing
  Set objChrt = Nothing
  Set rngImage = Nothing
End Sub

Gruß Sepp

Beliebteste Forumthreads (12 Monate)

Grafik oder Bereich mit VBA als Bild speichern

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

202 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Grafik oder Bereich mit VBA als Bild speichern

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

202 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread