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

Bild von Zwischenablage direkt in File speichern

Forumthread: Bild von Zwischenablage direkt in File speichern

Bild von Zwischenablage direkt in File speichern
15.02.2005 20:20:34
Zwischenablage
Hallo zusammen
Wie kann ich mit VBA ein Bild (z.B Screenshot), welches sich in der Zwischenablage befindet, in eine Datei abspeichern?
Bin dankbar für jeden Tipp
Gruss Stefan B
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bild von Zwischenablage direkt in File speichern
15.02.2005 20:40:09
Zwischenablage
Hallo Stefan,
wie wird man eigentlich VBA-Profi?


Option Explicit
Sub Bild_exportieren()
    Dim myChartObject As ChartObject, myShape As Shape
    Dim bolfound As Boolean
    Application.ScreenUpdating = False
    Worksheets.Add
    ActiveSheet.Paste
    For Each myShape In ActiveSheet.Shapes
        If myShape.Type = msoPicture Then bolfound = True: Exit For
    Next
    If bolfound Then
        myShape.CopyPicture Appearance:=2, Format:=-4147
        Set myChartObject = ActiveSheet.ChartObjects.Add(0, 0, myShape.Width, myShape.Height)
        With myChartObject
            .Activate
            .Chart.Paste
            .Chart.Export Filename:=ActiveWorkbook.Path & "\zwischenablage.jpg", FilterName:="JPG", Interactive:=False
        End With
        Set myChartObject = Nothing
        Set myShape = Nothing
    End If
    With Application
        .DisplayAlerts = False
        ActiveSheet.Delete
        .DisplayAlerts = True
        .ScreenUpdating = True
    End With
End Sub


Gruß
Nepumuk (ein Amateur)
Anzeige
AW: Bild von Zwischenablage direkt in File speichern
Zwischenablage
Hi,
wärs nicht sinnvoll abzufragen, ob die Datei schon mal gespeichert ist?
Wo landet das Bild, wenn das aktive Workbook noch keinen Path hat?
Ulf
AW: Bild von Zwischenablage direkt in File speichern
15.02.2005 21:59:17
Zwischenablage
Hallo Ulf,
1. Ein eventuel vorhandenes Bild wird gnadenlos überschrieben.
2. Auf dem Laufwerk welches in Curdir angegeben ist.
3. Stefan ist "VBA-Profi", wenigstens das wird er wohl noch auf die Reihe bringen.
Gruß
Nepumuk
Anzeige
AW: Bild von Zwischenablage direkt in File speichern
Zwischenablage
Hi,
hab ich nicht gesehen, dass er Profi ist.
Ulf
AW: Bild von Zwischenablage direkt in File speichern
16.02.2005 08:29:50
Zwischenablage
Thanks, thanks, thanks
Danke vielmals, Leute, für die prompte Hilfe. Ihr könnt euch nicht vorstellen, wie lange ich schon nach einer Lösung suche. Your're so great!!!
Gruss Stefan
AW: Bild von Zwischenablage direkt in File speichern
16.02.2005 08:32:46
Zwischenablage
Ich hab mich wohl ein wenig überschätzt. Ich nenne mich mal lieber "Amateur"
greets
Anzeige
;

Forumthreads zu verwandten Themen

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
Bild aus Exceldatei speichern
Dave

Hallo,
habe ein Bild das sich in einer Exceldatei befindet und welches ich gerne
unter "Eigene Bilder" speichern möchte.
Habe aber keine Ahnung wie ich das Bild aus dieser Datei heraus bekomme.
Bitte um Hilfe
Gruß
Dave
13.02.2009 21:52:00
Thread-ID: 1050642
2 Beiträge
Anzeige
Einfügen aus Zwischenablage als Bild
Werner

Hallo!
Ich kann machen was ich will - ich finde nix zu meinem Problem:
In einer anderen Anwendung mache ich eine Hardcopy (also quasi ein Foto) mit Strg-c
Dieses Foto will ich als Bild über vba in eine Excel-Datei einfügen.
Das ist doch bestimmt ein ganz simpler Befehl oder?
...
18.02.2009 07:47:00
Thread-ID: 1051674
3 Beiträge
@ Sepp -- Bilder aus Word speichern
Dirk

Hallo Excelgemeinde!
(Sepp oder auch andere, die mir helfen möchten)
Ich habe von Sepp den unten aufgeführten Code. Der Funzt soweit auch gut.
Ich habe in den Code:
.documents(1).InlineShapes.Reset
eingebaut.
Damit schaffe ich es, dass das erste Bild im Document vor de...
04.05.2009 11:32:15
Thread-ID: 1072689
5 Beiträge
Dateiauswahldialog-Öffnen-Speichern win32-API
Werner

Hallo Excel Gemeinde,
ich bin durch Tino auf die
Win32-API Auswahldialogmethode gestoßen.
Vielen Excel-Usern mag dieses Thema bekannt sein, aber für diejenigen, die sich mit dem Thema:
Öffnen und Speichern von Dateien aus Excel heraus beschäftigen, lade ich nachfolgende Beispiel...
27.05.2009 13:53:21
Thread-ID: 1077696
4 Beiträge
geladenes Bild in Userform Image speichern
k

Hallo,
...habe in einer Userform das Element Picture drin und dieses wird mit Fotos aus einem Verzeichnis entsprechend geladen. Nun würde ich gern dem User die Möglichkeit geben - dieses Bild bei Bedarf unter eine Art "Datei speichern unter" für sich zu speichern.
Habe aber keine richti...
18.08.2009 13:46:40
Thread-ID: 1096746
9 Beiträge
Zelle als Bild speichern beschleunigen
Reinhard

Hallo Wissende,
nachfolgender Code macht schon das was ich mir erhoffte, er nimmt die Unicode Zeichen, die von A32 bis A65535 stehen und speichert sie als gif ab.
Dazu habe ich drei Fragen.
Wieso als Gif, im Code steht doch "Bitmap"? Ändere ich in
strFile = "c:\Test\meinBild" &...
12.02.2011 19:49:01
Thread-ID: 1200445
13 Beiträge
Dateiname aus Zellen aut.speichern
Wolfgang

Hallo,
der Dateiname eines Tabellenblatt soll aut.aus dem Inhalt von 2 Zellen des Tabellenblattes(Zelle D19 und D20)abgespeichert werden.
gibt es da eine Möglichkeit als makro
danke im voraus
17.05.2002 10:36:48
Thread-ID: 121594
3 Beiträge
Anzeige
Zwischenablage als Datei sichern (Bild!)
Frederik

Hallo,
ich habe schon eine Weile probiert & gesucht, aber noch keine Lösung gefunden, um im Makro einen markierten Zellbereich als Datei (Bild) abzuspeichern & dann in einem Mail als .Attachment anzuhängen.
Funktionierenden Mailcode habe ich bereits!
(Mag mit Outlook & d...
14.07.2011 14:56:04
Thread-ID: 1222154
3 Beiträge
Nach Bereich als Bild speichern, verzerrt
Stefan

Hallo zusammen,
mit folgendem Code kopiere ich einen Bereich und speichere ihn als Bilddatei ab. Allerdings ist das dann gespeicherte Bild extrem in die Breite gezogen. Hat jemand eine Idee, woran das liegt bzw. wie man es in normalen Größenverhältnissen speichern kann ?
Sub ScreenShot(...
27.01.2012 12:46:32
Thread-ID: 1248264
3 Beiträge
Anzeige
Tabellenbereich als Bild speichern
DirkR

Hallo Excelgemeinde,
ich versuche nun schon seit geraumer Zeit einen Tabellenbereich als Bild zu speichern.
Leider gelingt mir das nur sehr schlecht. Ich habe duzende Beiträge gefunden, ebensoviele Makros getestet. Aber leider stellt mich nichts von dem, was ich im Archiv finde, zufried...
13.02.2012 15:45:20
Thread-ID: 1250472
8 Beiträge
Bilder aus Excel heraus mit VB speichern
Thorsten

Hallo,ich moechte Bilder aus Excel heraus mit VB speichern. Allerdings habe ich nicht die genaue Ahnung in welchem Format die Bilder in Excel sind. Es handelt sich hierbei um Strassenkarten von MapPoint 2002 die ich in Excel importiert habe und die ich jetzt als jpg oder bmp Format speichern mo...
07.06.2002 18:33:38
Thread-ID: 126979
2 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

Bild von Zwischenablage direkt in Datei speichern

Schritt-für-Schritt-Anleitung

Um ein Bild aus der Zwischenablage in einer Datei zu speichern, kannst Du ein VBA-Skript verwenden. Hier ist eine einfache Schritt-für-Schritt-Anleitung:

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu starten.

  2. Füge ein neues Modul hinzu: Klicke mit der rechten Maustaste auf „VBAProject (DeinWorkbook)“ und wähle „Einfügen“ > „Modul“.

  3. Kopiere den folgenden Code in das Modul:

    Option Explicit

Sub Bild_exportieren()
   Dim myChartObject As ChartObject, myShape As Shape
   Dim bolfound As Boolean
   Application.ScreenUpdating = False
   Worksheets.Add
   ActiveSheet.Paste
   For Each myShape In ActiveSheet.Shapes
       If myShape.Type = msoPicture Then bolfound = True: Exit For
   Next
   If bolfound Then
       myShape.CopyPicture Appearance:=2, Format:=-4147
       Set myChartObject = ActiveSheet.ChartObjects.Add(0, 0, myShape.Width, myShape.Height)
       With myChartObject
           .Activate
           .Chart.Paste
           .Chart.Export Filename:=ActiveWorkbook.Path & "\zwischenablage.jpg", FilterName:="JPG", Interactive:=False
       End With
       Set myChartObject = Nothing
       Set myShape = Nothing
   End If
   With Application
       .DisplayAlerts = False
       ActiveSheet.Delete
       .DisplayAlerts = True
       .ScreenUpdating = True
   End With
End Sub

  4. Schließe den VBA-Editor und gehe zurück zu Excel.

  5. Führe das Makro aus: Drücke ALT + F8, wähle „Bild_exportieren“ und klicke auf „Ausführen“.

Mit diesem Skript kannst Du ein Bild aus der Zwischenablage als JPG speichern. Es wird im gleichen Verzeichnis wie Dein aktuelles Workbook gespeichert.

Häufige Fehler und Lösungen

  • Fehler: Bild wird nicht gespeichert

    • Stelle sicher, dass Du ein Bild in der Zwischenablage hast. Du kannst ein Screenshot machen und ihn in die Zwischenablage speichern, bevor Du das Makro ausführst.

  • Fehler: Kein Pfad gefunden

    • Wenn das aktive Workbook keinen gespeicherten Pfad hat, wird das Bild möglicherweise nicht gespeichert. Achte darauf, dass Du das Workbook vorher speicherst.

Alternative Methoden

Wenn Du kein VBA verwenden möchtest, kannst Du auch die folgenden Methoden ausprobieren:

  • Screenshot-Tool verwenden: Nutze ein Screenshot-Tool, um das Bild direkt zu speichern.
  • Bildbearbeitungssoftware: Füge das Bild in ein Programm wie Paint ein und speichere es von dort als JPG.

Praktische Beispiele

Hier sind einige Szenarien, in denen Du ein Bild aus der Zwischenablage speichern könntest:

  1. Screenshot von einer Präsentation: Mach einen Screenshot während einer Präsentation, füge ihn in die Zwischenablage ein und speichere ihn als JPG, um ihn in einer späteren Präsentation zu verwenden.
  2. Grafiken aus Excel: Erstelle Grafiken in Excel und speichere diese direkt als Bilder zur Verwendung in Berichten oder auf Webseiten.

Tipps für Profis

  • Automatisierung: Du kannst das VBA-Skript erweitern, um automatisch zu prüfen, ob eine Datei mit dem gleichen Namen bereits existiert, um Überschreibungen zu vermeiden.
  • Batch-Verarbeitung: Wenn Du mehrere Bilder speichern möchtest, kannst Du das Skript so anpassen, dass es eine Schleife durchführt, um mehrere Bilder nacheinander zu speichern.

FAQ: Häufige Fragen

1. Wie kann ich das Bild in einem anderen Format speichern?
Du kannst das Format in der Zeile .Chart.Export ändern, indem Du den FilterName entsprechend anpasst (z.B. "PNG" für PNG-Dateien).

2. Funktioniert das auch in Excel Online?
Leider ist VBA nicht in Excel Online verfügbar. Du kannst diese Methode nur in der Desktop-Version von Excel verwenden.

Beliebteste Forumthreads (12 Monate)

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