Hallo liebe Excel-Freunde,
Ich habe vor, einen bestimmten Bereich als Bild an einem Ort abzuspeichern.
Ich habe das ganze bereits hier gefunden:
https://www.herber.de/forum/archiv/1128to1132/1130567_Grafik_oder_Bereich_mit_VBA_als_Bild_speichern.html
Da ich noch VBA-Anfänger bin, habe ich den zweiten Code benutzt. Dieser sah für mich leichter aus.
Leider speichert sich das Bild in weiß und ohne Inhalt ab.
In folgender Quelle wurde dann vorgeschlagen, eine leichte Änderung vorzunehmen.
http://www.office-loesung.de/ftopic568394_0_0_asc.php
Dies funktioniert leider auch nicht. Kennt ihr da noch eine weitere Möglichkeit?
Optimalerweise soll das Bild als PNG/JPG abgespeichert werden.
Vielleicht könnt Ihr mir dabei helfen. :)
Vielen Dank schonmal,
Mit freundlichen Grüßen
Marlo

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Bereich als Bild speichern.

24.09.2019 15:02:22

Torsten
AW: Bereich als Bild speichern.

24.09.2019 15:28:37

Marlo
AW: Bereich als Bild speichern.

24.09.2019 18:17:07

Nepumuk
AW: Bereich als Bild speichern.

25.09.2019 09:05:53

Marlo
Warum dann offen? owt

25.09.2019 09:09:09

Torsten
AW: Warum dann offen? owt

26.09.2019 14:24:44

Marlo
wieder offen

24.09.2019 15:28:40

Torsten

AW: Bereich als Bild speichern.

24.09.2019 15:02:22

Torsten

Hallo Marlo,
kann ich nicht nachvollziehen. Habe den Code bei mir getestet. Laeuft.
Du musst natuerlich im Code den Tabellennamen anpassen von dem du das Bild machst. Viellecht ist die Tabelle leer, von der DU das Bild machst?
Gruss Torsten

AW: Bereich als Bild speichern.

24.09.2019 15:28:37

Marlo

Hallo Torsten,
mein aktueller Code sieht folgendermaßen aus:


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("KW") 'Tabellenname - Anpassen!'
Set rngImage = .Range("B1:I24")
rngImage.CopyPicture Appearance:=xlScreen, Format:=xlPicture
.PasteSpecial Format:="Bitmap", Link:=False, DisplayAsIcon:=False
Set objPict = .Shapes(.Shapes.Count)
strFile = "C:\Tempexc\Migration.jpg" 'Pfad und Dateiname für das Bild'
objPict.Copy
Set objChrt = .ChartObjects.Add(1, 1, objPict.Width, objPict.Height).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

Sowohl Tabellenname als auch Bereiche habe ich angepasst.
Den ausgewählten Bereich habe ich hier angehängt:
Userbild

Grüsse
Marlo

AW: Bereich als Bild speichern.

24.09.2019 18:17:07

Nepumuk

Hallo Marlo,
teste mal:

Option Explicit

Public Sub Range_To_Image()

    Const FILE_PATH As String = "C:\Tempexc\Migration.jpg" 'Pfad und Dateiname für das Bild'

    Dim objChrt As Chart
    Dim rngImage As Range

    With Worksheets("KW") 'Tabellenname - Anpassen!'

        Set rngImage = .Range("B1:I24")

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

        Set objChrt = .ChartObjects.Add(1, 1, rngImage.Width, rngImage.Height).Chart

        With objChrt
            .Parent.Activate
            .Paste
            .Export FILE_PATH, "JPG"
            .Parent.Delete
        End With
    End With

    Set objChrt = Nothing
    Set rngImage = Nothing
End Sub

Gruß
Nepumuk

AW: Bereich als Bild speichern.

25.09.2019 09:05:53

Marlo

Hallo Nepumuk,
das sieht super aus. Funktioniert einwandfrei!
Vielen vielen lieben Dank!

Warum dann offen? owt

25.09.2019 09:09:09

Torsten

AW: Warum dann offen? owt

26.09.2019 14:24:44

Marlo

Ich habe das Häckchen wohl fälschlicherweise gesetzt. Dachte es wäre sowas wie eine Zustimmung zur Verarbeitung :D
Häckchen ist jetzt nicht mehr gesetzt. Sollte also geschlossen sein.

wieder offen

24.09.2019 15:28:40

Torsten

Ich nehms zurueck.
Du hast recht. Wenn ich den Code normal durchlaufen lasse, kommt bei mir auch nur ein weisses Feld mit Rand raus.
Vorher hab ichs im Einzelschrittmodus gemacht. Da hats funktioniert. Merkwuerdig.
Wieder offen.
Gruss

300 Forumthreads zu ähnlichen Themen

Inhalt aus mehreren Tabellen einfügen

Fred

Hallo zusammen.
Ich bin seit längerem schon auf der suche nach einem Makro und kann aber ein ähnliches wie ich es bräuchte nicht. Finde.
Es geht darum, das ich wenn ich auf einen Button klicke möchte ,das das Makro mehrere Von mir benannte Ordner duch sucht nach fest vorgeschriebenen X...

21.08.2008 18:04:19

Thread-ID: 1003605

2 Beiträge

Zellinhalt aus anderer Tabelle übernehmen

Marc

Hallo zusammen,
habe ein Problem mit dem ich einfach nicht weiterkomme (wahrscheinlich für Euch kein Problem...!)
Ich möchte aus einer Tabelle Zellinhalte in eine andere Tabelle im gleichen Arbeitsblatt übernehmen, d.h. aus Tabelle 2 soll der Zellinhalt aus D61 in Tabelle 1 in H60 über...

21.08.2008 22:08:00

Thread-ID: 1003658

3 Beiträge

einfaches Bild einfüges aus currdir

Ludes

Hallo zusammen,
- xls-Datei mit Makro in Ordner gespeichert.
- in selbem Ordner einen Ordner "Bilder" mit verschiedenen Bildern
- in Zelle A1 steht der Dateiname eines der Bilder
Brauch nun ein Marko, dass aus dem aktuellen Ordner in der xls-Datei gespeichert ist ein Bild in Zel...

25.08.2008 10:12:55

Thread-ID: 1004386

3 Beiträge

Kombinationsfelder mit Daten aus anderer Tabelle

Bernhard

Hallo liebe Freunde,
ich brauche wieder einmal Eure Hilfe beim Umstricken eines VBA Codes, den ich hier im Archiv gefunden habe.
Die Userform hat u.a. 2 Kombinationsfelder, die mit den Daten aus den Spalten B bzw. C gefüllt werden. Wenn ich die Auswahl in Kombi1 treffe, wird Kombi2 glei...

25.08.2008 15:48:18

Thread-ID: 1004492

8 Beiträge

Eingaben aus Tabellen mit Userform befüllen

Peter

Hallo wertes Forum
ich habe da mal wieder etwas und komme nicht so richtig weiter.
Ich habe eine Tabelle
In Spalten Namen und in Zeilen Datum
Nun möchte ich gern das ganze mit Userform befüllen
also eine combobox, die mir das Datum zurürck gibt und eine die Mir die Namen a...

06.09.2008 11:42:00

Thread-ID: 1007825

4 Beiträge

Daten aus Userfom in eine ausgeblendete Tabelle

Ramon

Hallo alle zusammen,
ich möchte nach Klick auf den Command_Button "cb_send" Eingabewerte aus einer
Userform in eine Tabelle schreiben.
In Abhängigkeit der eingegebenen Werte sollen die Daten entweder in das Tabllenblatt
"data_booked" oder in "data_planned" geschrieben werden, u...

16.09.2008 12:28:00

Thread-ID: 1010054

5 Beiträge

Alle verwandten Forumthreads anzeigen

Bild aus Tabelle einem Image in einer Userform zuw

Excel Tabelle als Leerz. getrennte txt speichern

Tabelle als PDF speichern

Kopieren in ausgeblendete Tabelle

Kriterien in Query aus Exceltabelle

XML Tabelle aus Internet in Excel laden

Bereich als Bild in bestimmter Größeexportieren

screenshot als JPG speichern