Thema Datum  Von Nutzer Rating
Antwort
23.11.2020 09:34:38 manuel
Solved
Blau VBA - Bild erstellen aus einer bestimmten Range
 23.11.2020 12:57:53 volti
NotSolved
23.11.2020 12:58:41 Gast43456
NotSolved

Ansicht des Beitrags:
Von:
volti		 Datum:
23.11.2020 12:57:53		 Views:
502		 Rating:
     
Antwort:
  Ja
Thema:
VBA - Bild erstellen aus einer bestimmten Range

Hallo Manuell,

möglicherweise hängt es damit zusammen, dass Tabelle8 evtl.nicht das aktive Blatt ist....

Hier noch eine Alternative zum Exportieren eines Bereiches...

Sub Bild_Export()
 Dim strFile As String, Wsh As Worksheet
 
 strFile = ActiveWorkbook.Path & "\ARBEITSBERICHTE\Vorschau.gif" 'Pfad und Dateiname für das Bild
 
 Set Wsh = ActiveSheet
 With Tabelle8.Range("A1:L50")
   
   On Error Resume Next
   Do
     .CopyPicture Appearance:=xlScreen, Format:=xlPicture 'xlBitmap
     If Err.Number = 0 Then Exit Do
     Err.Clear
   Loop
   On Error GoTo ErrExit
   
   With .Parent.ChartObjects.Add(.Left, .Top, .Width, .Height)
     .Activate
     .Chart.Paste
     .Border.LineStyle = -4142           'Ohne Rahmen
     .Chart.Export strFile
   End With
   .Parent.ChartObjects(.Parent.ChartObjects.Count).Delete

 End With
 Wsh.Activate
 
ErrExit:

End Sub

 

viele Grüße

Karl-Heinz

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
23.11.2020 09:34:38 manuel
Solved
Blau VBA - Bild erstellen aus einer bestimmten Range
 23.11.2020 12:57:53 volti
NotSolved
23.11.2020 12:58:41 Gast43456
NotSolved