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"