Bild von Zwischenablage direkt in File speichern

Bild

Betrifft: Bild von Zwischenablage direkt in File speichern von: Stefan B
Geschrieben am: 15.02.2005 20:20:34

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

Bild


Betrifft: AW: Bild von Zwischenablage direkt in File speichern von: Nepumuk
Geschrieben am: 15.02.2005 20:40:09

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 = TrueExit 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)


Bild


Betrifft: AW: Bild von Zwischenablage direkt in File speichern von: Ulf
Geschrieben am: 15.02.2005 21:15:57

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


Bild


Betrifft: AW: Bild von Zwischenablage direkt in File speichern von: Nepumuk
Geschrieben am: 15.02.2005 21:59:17

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


Bild


Betrifft: AW: Bild von Zwischenablage direkt in File speichern von: Ulf
Geschrieben am: 15.02.2005 22:06:03

Hi,

hab ich nicht gesehen, dass er Profi ist.

Ulf


Bild


Betrifft: AW: Bild von Zwischenablage direkt in File speichern von: Stefan B
Geschrieben am: 16.02.2005 08:29:50

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


Bild


Betrifft: AW: Bild von Zwischenablage direkt in File speichern von: Stefan B
Geschrieben am: 16.02.2005 08:32:46

Ich hab mich wohl ein wenig überschätzt. Ich nenne mich mal lieber "Amateur"

greets


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Bild von Zwischenablage direkt in File speichern"