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

Ansicht des Beitrags:
Von:
manuel		 Datum:
23.11.2020 09:34:38		 Views:
698		 Rating:
     
Antwort:
 Nein
Thema:
VBA - Bild erstellen aus einer bestimmten Range		 
Hi,

Ich würde gerne ein Bild von meinem Arbeitsblatt(nur bestimmter Bereich) erstellen und dieses in einem Ordner speichern.
Grundsätzlich funktioniert der Code, aber nicht bei der gewünschten Tabelle.
Bei der Zeile:".PasteSpecial Format:="Bitmap", Link:=False, DisplayAsIcon:=False" komme ich nicht weiter...
Welchen Befehl hab ich vergessen? Fehlercode wenn ich den Error-Befehl entferne: Laufzeitfehler '1004': Microsoft Excel kann die Datei nicht einfügen.
Bei jeder anderen Tabelle funktioniert es... Sind aber alle gleich aufgebaut?

LG Manuel



Code:

Dim objPict As Object, objChrt As Chart
Dim rngImage As Range, strFile As String

On Error GoTo ErrExit

With Tabelle8 'Tabellenname - Anpassen!
  
  Set rngImage = .Range("A1:L50")
  
  rngImage.CopyPicture Appearance:=xlScreen, Format:=xlBitmap
  
!!!!!!!  .PasteSpecial Format:="Bitmap", Link:=False, DisplayAsIcon:=False   !!!!!!!
  
  Set objPict = .Shapes(.Shapes.Count)
  
  strFile = ActiveWorkbook.path & "\ARBEITSBERICHTE\Vorschau.gif" 'Pfad und Dateiname für das Bild
  
  objPict.Copy
  
  Set objChrt = .ChartObjects.Add(1, 1, objPict.Width + 8, objPict.Height + 8).Chart
  
  objChrt.ChartArea.Select
  objChrt.Paste
  objChrt.Export strFile
  objChrt.Parent.Delete
  objPict.Delete
  
End With

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

 

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