Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1836to1840
1836to1840
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellbereich als .jpg speichern

Forumthread: Zellbereich als .jpg speichern

Zellbereich als .jpg speichern
24.06.2021 19:55:46
Andreas
Hallo liebe Excel Freunde,
Ich würde gerne den Bereich A1:BK88 als jpg o. gif im Ordner C:\Test speichern.
ist so etwas mit VBA möglich? Alternativ könnte auch das "Bild der Fotofunktion" der diesen Bereich zeigt als Bild in C:\Test gespeichert werden wenn dies einfacher ist
Dateiname erstmal egal.jpg
Vielen Dank für Eure Hilfe u. ggf eine Code Idee.
Gruß, Andreas
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellbereich als .jpg speichern
24.06.2021 20:00:04
Hajo_Zi
Hallo Andreas,
warum VBA.
Bereich markieren, kopieren
Zielzelle wählen
Einfügen,Pfeil und unten Grafik einfügen.
Excel hat auch einen Makroreorder.
GrußformelHomepage
Anzeige
AW: Zellbereich als .jpg speichern
24.06.2021 20:08:12
Andreas
Hallo Hajo, danke für deine schnelle Antwort.
Ich würde das gerne in ein Vorhandenen Code versuchen ein zu bauen.
deswegen wäre ein VBA Schnippsel für mich zum "Basteln" sehr hilfreich wenn es denn überhaupt mit "Drei o. Vier" Zeilen Code geht.
würde mich über eine weitere Antwort freuen, Danke
Anzeige
AW: Zellbereich als .jpg speichern
24.06.2021 20:27:06
Rolf
Hallo Andreas,
ein paar mehr Zeilen Code braucht's schon ;-)
Probier mal

Sub BildExport()
Dim chPic As ChartObject
Dim strBildName As String
Dim shBild As Picture
strBildName = "C:\Temp\Egal.jpg"
Range("A1:BK88").CopyPicture Appearance:=xlScreen, Format:=xlPicture
Application.Wait (Now + TimeValue("00:00:01"))
ActiveSheet.Paste
Set shBild = ActiveSheet.Pictures(ActiveSheet.Pictures.Count)
shBild.CopyPicture Appearance:=xlScreen, Format:=xlPicture
Set chPic = ActiveSheet.ChartObjects.Add(0, 0, shBild.Width, shBild.Height)
With chPic.Chart
.ChartArea.Select   'ohne Select wird nur ein leeres Bild kopiert!
.Paste
.Export Filename:=strBildName, FilterName:="jpg"
End With
chPic.Delete
shBild.Delete
Set chPic = Nothing
Set shBild = Nothing
End Sub
Gruß Rolf
Anzeige
AW: Zellbereich als .jpg speichern
24.06.2021 21:20:17
Andreas
Hallo, erst einmal vielen, Vielen Dank.
das ist genau was ich mir vorstelle. Ist ja doch ein sehr aufwendiger Code geworden. Allerdings wird bei mir Tatsächlich trotz dem select nur ein leeres Bild abgespeichert.
Wenn du dazu noch eine Idee hättest wäre es ganz perfekt.
LG, Andreas
AW: Zellbereich als .jpg speichern
24.06.2021 21:25:25
Andreas
Halllo, habe das Dateiformat auf jpeg geändert und jetzt ist es Perfekt, Vielen lieben Dank noch ein mal :)
Anzeige
;

Forumthreads zu verwandten Themen

Tabelle als PDF speichern
PeTeR

Hallo VBA-Freaks,
ich suche seit Stunden - finde aber nicht den exakt passenden Code, obwohl es zig Einträge zu dem Thema gibt.
Ich will eine Tabelle per VBA in PDF umwandeln u. drucken. Mein Code:
Application.ActivePrinter = "Adobe PDF auf Ne01:"
ActiveWindow.SelectedSheets.Pri...
25.10.2008 23:06:00
Thread-ID: 1019291
5 Beiträge
Anzeige
Tabellenblätter einzeln als Datei speichern
murat

Hallo,
ich habe einen tollen VBA Code hier im Forum gefunden!
Ich möchte die einzeln Tabellenblätter als Datei Speichern. ich habe 20 Tabellenblätter in einer Datei aus der sollen 20 Dateien werden. Dateiname steht immer in Zelle C2 des jeweiligen tabellenblattes.
Der Code unten i...
13.01.2009 11:46:16
Thread-ID: 1039178
3 Beiträge
Anzeige
Tabelle als Text speichern, Dateiname aus Zelle
Jürgen

Hallo Excel-Profis,
ich möchte über ein Makro folgendes ausführen:
- das aktuelle Tabellenblatt soll im Textformat gespeichert werden
- das Dialogfeld "Speichern unter" soll am Bildschirm erscheinen
- der Dateiname soll aus der Zelle I1 in das Dialogfeld übernommen werden
Im...
08.04.2009 13:05:46
Thread-ID: 1067706
2 Beiträge
PDF-File als neues Tabellenblatt
StefanS

Hallo,
meine Vorgesetzten treiben mich noch in den Wahnsinn!!!!
Besteht generell die Möglichkeit per Hyperlink auf eine Pdf-Datei (z.B. in Sheet("Register_1")),
diese als neues Tabellenblatt (z.B. Sheet("Datenblatt")) einzufügen? Habe keine Ahnung, ob so etwas überhaupt mit Excel mö...
18.05.2009 15:42:00
Thread-ID: 1075923
3 Beiträge
Markierter Bereich als Text Datei speichern
Roland

Hallo,
Ich brauche von einem Excelblatt nur einen ausgewählten Bereich an Daten. Diese Daten müssen in einen bestimmten Format als Text Datei bespeichert werden, damit sie ein anderes Programm wieder lesen kann.
Am besten wäre es, wenn ich die Daten einfach markieren könnte und dann übe...
21.08.2009 23:44:54
Thread-ID: 1097867
6 Beiträge
Anzeige
tabelle per makro als pdf drucken ohne abfrage
Jens

hi leute
hab mal ne frage
ist es möglich die speicher abfrage vom pdf drucker zu umgehen?
ich möchte einen festen ordner vorgeben und die datei soll auch bei jedem druck überschrieben werden ohne nachfrage.
vielen dank im voraus
23.11.2009 08:59:36
Thread-ID: 1119332
3 Beiträge
Tabellenblatt als pdf und speichern
Horst

Hallo,
ich möchte über VBA ein Tabellenblatt als pdf speichern.
Momentan kann ich dank dem Makrorecorder ein pdf Dokument mit der BroadGun PDF Machine erstellen,
Acrobat Reader startet und zeigt das Dokument an.
Mein Wunsch wäre jedoch , dass das PDF Dokument auch gleich mit e...
27.11.2009 15:18:04
Thread-ID: 1120555
3 Beiträge
mehrere Tabellenblätter im Querformat ausdrucken
WernerP

Ich möchte mehrere Tabellenblätter in einem Rutsch im Querformat ausdrucken.
Markiere ich alle Tabellenblätter und wähle Drucken mit Vorschau, so muß ich für jedes einzelne
Blatt das Querformat einstellen.
Gibt es einen Weg für alle Blätter gleichzeitig Querformat einzustellen? G...
01.12.2009 13:02:29
Thread-ID: 1121202
2 Beiträge
Anzeige
Zellen aus mehreren Tabellenblätter in eine Tabell
Stephan

Hallo,
ich beziehe mich auf einen Thread - wo ich den ANTWORTEN - Button nicht gefunden habe.
es geht um folgenden Beitrag: https://www.herber.de/forum/archiv/1112to1116/t1113368.htm#1113368
Ich habe 12 Blätter und will Werte der einzelnen Blätter in einer Übersicht (13. Blatt) zus...
04.01.2010 18:47:08
Thread-ID: 1127122
6 Beiträge
mit PDF Creator ein Tabellenblatt als pdf abspeich | Herbers Excel-Forum
Horst
Hallo
ich will ein Tabellenblatt als pdf abspeichern.
Dank diesem Forum habe ich einen Code gefunden, welcher jedoch bei mir nicht richtig funktioniert.
Wenn ich bei Break (siehe Code) stoppe, ist der PDFCreator geöffnet, das umzuwandelne Tabellenblatt
ist eingetragen und der Status...
14.01.2010 16:16:29
Thread-ID: 1129991
6 Beiträge
Tabellenblatt als Datei speichern
Murat

Was stimmt bei dem VBA code nicht bekomme Fehler bei kompilieren variable nicht definert
Ich möchte die einzeln Tabellenblätter als Datei Speichern. ich habe 20 Tabellenblätter in einer Datei aus der sollen 20 Dateien werden. Dateiname steht immer in Zelle i2 des jeweiligen tabellenblattes....
19.01.2010 16:27:42
Thread-ID: 1131114
6 Beiträge
Tabelle als TXT speichern mit richtiger Zeilenanz.
Joni

Hallo,
ich habe das Problem, dass beim Speichern eines Tabellenblattes als TXT am Schluss noch eine Leerzeile mitgespeichert wird. Da ich die Zeilenanzahl der Textdatei auslese und auswerte habe ich somit immer eine Zeile zu viel. Gibt es eine Möglichkeit, dass wirklich nur befüllte Zeilen...
29.01.2010 18:38:40
Thread-ID: 1134231
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige