Bild aus Clipboard/ Zwischenablage in Datei
22.05.2014 09:24:43
Arthur
Ich würde gerne ein Bild, das sich im Zwischenablage befindet in eine Datei speichern. Das will irgendwie nicht. Zwar scheint es mir kein Problem zu sein Text auszulesen. Bei Bildern klemmt das. Bei gefundenem Code stürzt Excel komplett ab und so habe ich mich selbst versucht.
Folgenden Weg bin ich gegangen und komme nicht weiter:
Sub ndbfnbf()
Const VbCFText As Integer = 1 'Text (.txt files)
Const VbCFBitmap As Integer = 2 'Bitmap (.bmp files)
Const VbCFMetafile As Integer = 3 'metafile (.wmf files)
Const VbCFEMetafile As Integer = 14 'Enhanced metafile (.emf files)
Const VbCFDIB As Integer = 8 'Device-independent bitmap (DIB)
Const VbCFPalette As Integer = 9 'Color palette
Const VbCFFiles As Integer = 15 'List of files
Const VbCFRTF As Integer = -16639 'Rich text format (.rtf files)
Dim clipboard As MSForms.DataObject
Dim strContents As String
Set clipboard = New MSForms.DataObject
clipboard.GetFromClipboard
' ... hier würde Text erkannt, aber kein Bild
lvVari = clipboard.GetFormat(VbCFBitmap)
lvVari = clipboard.GetFormat(VbCFMetafile)
lvVari = clipboard.GetFormat(VbCFEMetafile)
lvVari = clipboard.GetFormat(VbCFDIB)
lvVari = clipboard.GetFormat(VbCFText)
lvVari = clipboard.GetFormat(VbCFPalette)
lvVari = clipboard.GetFormat(VbCFFiles)
lvVari = clipboard.GetFormat(VbCFRTF)
' ... und wie's gespeichert wird ?
Set clipboard = Nothing
End Sub
Gruß, Arthur