Thema Datum  Von Nutzer Rating
Antwort
Rot Bereich als Bild sichern
 25.09.2015 10:58:16 joogy21
Solved

Ansicht des Beitrags:
Von:
joogy21		 Datum:
25.09.2015 10:58:16		 Views:
1103		 Rating:
     
Antwort:
 Nein
Thema:
Bereich als Bild sichern

Hallo,

ich habe eine ein Arbeitsbaltt mit einer Datentabelle und einem Diagramm. Über ein Auswahlfeld wähle ich mir die entsprechende Zeile in der Dtentabelle aus, woraus wiederum das Diagramm entsprechend der Daten angepasst wird.

Das Diagramm möchte ich per VBA als Bild sichern.

Dies funktioniert auch bis ich über das Auswahlfeld einen anderen Datensatz auswähle. Dann erstellt er mir zwar das Bild, speichert es allerdings nicht ab und entfernt es auch nicht mehr.

Kann mir bitte jemand helfen?

Vielen Dank.

 

Sub Grafik_speichern()
  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("J15:N27")
    
    rngImage.CopyPicture Appearance:=xlScreen, Format:=xlPicture
    
    .PasteSpecial Format:="Bitmap", Link:=False, DisplayAsIcon:=False
    
    Set objPict = .Shapes(.Shapes.Count)
    
    strFile = "Speicherpfad" & Range("L9") & ".png" 'Pfad und Dateiname für das Bild
    
    objPict.Copy
    
    Set objChrt = .ChartObjects.Add(0, 0, 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

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Bereich als Bild sichern
 25.09.2015 10:58:16 joogy21
Solved