Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 09:22:48
VBA Filter in intelligenter Tabelle funktioniert nicht
18.04.2024 08:54:52
automatisches übertragen von Daten
18.04.2024 08:16:13
Dynamische Positionsnummerierung
18.04.2024 08:15:33
Seitwärts scrollen - Fenster fixiert
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
460to464
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
460to464
460to464
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Special: Bild aus Excel als eigene Datei speichern

Special: Bild aus Excel als eigene Datei speichern
28.07.2004 15:02:49
Manasse
Hallo,
habe ein Problem ganz anderer Art.
Kennt jemand eine Möglichkeit, ein Bild, das in eine Exceltabelle einkopiert wurde, wieder als ein eigenständiges Bild im JPG oder BMP o.ä. Format zu speichern?
Für jeden Tipp bin ich sehr dankbar
Gruß
Manasse

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Special: Bild aus Excel als eigene Datei speichern
28.07.2004 15:10:21
EtoPHG
Bild über kopieren in ein Paint-Programm einfügen und von dort als Datei speichern
Hansueli
AW: Special: Bild aus Excel als eigene Datei speichern
Timo
Hallo Manasse,
ich habe mir dafür mal ein Makro geschrieben.
Du findest es anbei:

Sub Diagramm_exportieren()
On Error GoTo errorhandler
Dateiname = Application.GetSaveAsFilename(filefilter:="Jpg Files (*.jpg), *.jpg,Gif Files (*.gif), *.gif")
ActiveChart.Export Filename:=Dateiname
errorhandler:
End Sub

Du hast dabei die Auswahl das Diagramm als Gif oder als JPG abzuspeichern.
Ich hoffe ich konnte Dir damit weiterhelfen.
Gruß,
Timo
Anzeige
AW: Special: Bild aus Excel als eigene Datei speichern
Manasse
Hallo Timo,
vielen Dank für Dein Makro. Wenn ich es aufrufe kommt der Dialog speichern unter. Aber wenn ich dann abgespeichert habe, verschwindet die Datei im Nirvana. Sie liegt nicht in dem Ordner, in dem sie angeblich gespeichert wurde.
Benutze ich das Makro falsch oder gibt es da einen Trick?
Manasse
AW: Special: Bild aus Excel als eigene Datei speic
Karl
Es fehlt wohl die Angabe des Filters:

Sub ...
ActiveChart.Export Dateiname, Right$(Dateinname, 3)
End 


Sub
AW auf Karls Erweiterung (klappt nicht)
Manasse
Hallo Karl,
Danke für Deinen Hinweis. Habe die Zeile eingfügt so wie ich dachte, dass es richtig sei. Aber leider wird immernoch keine Datei gespeichert.
Vielleicht hast Du nochmal Nerv', Dich der Sache anzunehmen. Wenn nicht habe ich Pech gehabt. Trotzdem nochmals Danke für Deine Mühe.
Zur Sicherheit hier das Makro mit Deiner Erweiterung:
========================================

Sub Diagramm_exportieren()
On Error GoTo errorhandler
Dateiname = Application.GetSaveAsFilename(filefilter:="Jpg Files (*.jpg), *.jpg,Gif Files (*.gif), *.gif")
ActiveChart.Export Filename:=Dateiname
ActiveChart.Export Dateiname, Right$(Dateinname, 3)
errorhandler:
End Sub

=============================================
Es klappt auch nicht, wenn ich die Zeile "ActiveChart.Export Filename:=Dateiname" entfernt habe.
Manasse
Anzeige
AW: AW auf Karls Erweiterung (klappt nicht)
28.07.2004 17:31:48
Nepumuk
Hallo Manasse,
das kann auch nicht funktionieren, da sich das Bild noch nicht in einer Chartarea befindet. So sollte es funktionieren:


Sub Bild_erstellen()
    Dim myChart As Chart, myChartObject As ChartObject
    Dim int_with As Integer, int_hight As Integer
    Application.ScreenUpdating = False
    Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture
    int_with = Selection.Width - Selection.Width / 100 * 8
    int_hight = Selection.Height - Selection.Height / 100 * 8
    Set myChart = Charts.Add
    Set myChartObject = ActiveChart.ChartObjects.Add(0, 0, int_with, int_hight)
    With myChartObject.Chart
        .Paste
        .Export Filename:=ActiveWorkbook.Path & "\zwischenablage.jpg", FilterName:="JPG", Interactive:=False
    End With
    Application.DisplayAlerts = False
    myChart.Delete
    Application.DisplayAlerts = True
    Set myChart = Nothing
    Set myChartObject = Nothing
    Application.ScreenUpdating = True
End Sub


Einfach das Bild mit einem Mausklick kopieren und das Programm starten.
Gruß
Nepumuk
Anzeige
AW: Special: Bild aus Excel als eigene Datei speichern
Manasse
Hi Hansueli,
ganz herzlichen Dank!! Einfache Lösung, klappt prima !!
Manasse

300 Forumthreads zu ähnlichen Themen

Bilddatei mit neuem Namen speichern
egonkernien

Hallo wer hilft bitte?
Guten Abend.
Ich möchte eine Dialogbox aufrufen, dort eine Bilddatei auswählen.
Ich möchte diese Bilddatei in ein Image1 auf einer Userform laden. Z.B. D:\Daten\Bilder\DSC0011.jpg
Dann diese Bilddatei umbenennen in D:\Daten\Test\082008_01.jpg, abspeichern...
28.08.2008 22:32:28
Thread-ID: 1005608
5 Beiträge
Anzeige
Bild aus Tabelle einem Image in einer Userform zuw
Polarfuchs

Hallo Ihr Checker,
in einer Arbeitsmappe habe ich ein Tabellenblatt mit Bildern. Wie kann ich ein bestimmtes Bild, die haben die Benennungen "Vorname_Nachname", einem Image einer UserForm zuweisen? Mit "LoadPicture" habe ich es schon versucht. Da bekomme ich die Fehlermeldung "Typen unvertr...
28.09.2008 14:40:18
Thread-ID: 1012915
7 Beiträge
Excel Tabelle als Leerz. getrennte txt speichern
Eddie

Mahlzeit,
ich will gerne meine Tabelle als Leerzeichen getrennte Datei speichern, nur leider macht das prn-Format nur 240 Zeichen in einer zeile .... gibt es einen anderen Weg, umd das layout zu behalten, und dann als leerzeichen getrennte Datei zu speichern ?
Vielleicht kann man auch b...
01.01.1970 00:00:00
Thread-ID: 1014969
34 Beiträge
Anzeige
Export von Excel Diagrammen als JPG
Excel

Hi zusammen!
Ich habe ein Prblem mit einem (bzw. mehreren) Excel-Diagrammen:
Ich habe eine Datebank mit einer Vielzahl von Datensätzen. Ich wähle in einem anderen Tabellenblatt per Dropdown-Feld je einen Datensatz aus und aus den per sverweis hierher gezogenen Werten aus der Datenbank w...
12.11.2008 11:27:00
Thread-ID: 1023758
6 Beiträge
Bereich von Tabelle1 als Grafik in Tabelle2 einfüg
Tabelle1

Hallo Leute,
ich komm irgendwie nicht weiter und benötige Hilfe.
es soll z.B. von Sheets("Tabelle1") Range("a1:b5")
als Grafik
in Sheets("Tabelle2")
Gruss
Atikar
19.11.2008 17:09:19
Thread-ID: 1026118
3 Beiträge
Bereich als Bild in bestimmter Größeexportieren
dirkraeder

Hallo Excelgemeinde!!
Ich habe ein Problem und benötige eure Hilfe!
Ich habe mir eine Excel Datei gebastelt. In dieser Datei habe ich ein Formular, dass sich durch Auswahl in einem Kombinationsfeld verändert.
Nun muss ich die Ansicht dieses Formulars als GIF-Bilddatei immer wieder m...
26.11.2008 11:08:00
Thread-ID: 1027962
3 Beiträge
als Bild kopieren
Manu

Hallo
die in Excel erstellten Grafiken übernehme ich als Bild in eine ppt. Bisher mache ich Screenshots, schneide unnötiges im Paint weg und speichere es als jpg ab um es als Grafik wieder in ppt zu importieren. Ich bin an Neuem interessiert und bin des jetztigen, m.E. sehr langen und aufwe...
16.12.2008 08:36:00
Thread-ID: 1033184
2 Beiträge
screenshot als JPG speichern
heike

Hallo experten,
ich suche eine VBA - Lösung um einen Screenshot zu erzeugen und diesen als JPG abzuspeichern.
Eine Lösung, um eine BMPdatei zu speicher habe ich bereits (sieh unten).
Danke Nepumuk.
Am besten währe genau dieser Ansatz, weil ich das Bild beschneiden kann.
Nur...
16.12.2008 20:47:09
Thread-ID: 1033426
2 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
4
6
33
4
5
2
2
1
1
2
2
3
2
3
1
3
5
8
8
1
2
5
3
1