Thema: Auslesen der aktuell in der Zwischenablage vorhandenen Formate

StandardModule: Modul1

Sub TestClipboard()
   Dim vaFormats As Variant, dFormat As Variant
   vaFormats = Application.ClipboardFormats
   For Each dFormat In vaFormats
      Select Case dFormat
         Case xlClipboardFormatBIFF
            MsgBox "xlClipboardFormatBIFF (" & dFormat & ")"
         Case xlClipboardFormatBIFF2
            MsgBox "xlClipboardFormatBIFF2 (" & dFormat & ")"
         Case xlClipboardFormatBIFF3
            MsgBox "xlClipboardFormatBIFF3 (" & dFormat & ")"
         Case xlClipboardFormatBIFF4
            MsgBox "xlClipboardFormatBIFF4 (" & dFormat & ")"
         Case xlClipboardFormatBinary
            MsgBox "xlClipboardFormatBinary (" & dFormat & ")"
         Case xlClipboardFormatBitmap
            MsgBox "xlClipboardFormatBitmap (" & dFormat & ")"
         Case xlClipboardFormatCGM
            MsgBox "xlClipboardFormatCGM (" & dFormat & ")"
         Case xlClipboardFormatCSV
            MsgBox "xlClipboardFormatCSV (" & dFormat & ")"
         Case xlClipboardFormatDIF
            MsgBox "xlClipboardFormatDIF (" & dFormat & ")"
         Case xlClipboardFormatDspText
            MsgBox "xlClipboardFormatDspText (" & dFormat & ")"
         Case xlClipboardFormatEmbeddedObject
            MsgBox "xlClipboardFormatEmbeddedObject (" & dFormat & ")"
         Case xlClipboardFormatEmbedSource
            MsgBox "xlClipboardFormatEmbedSource (" & dFormat & ")"
         Case xlClipboardFormatLink
            MsgBox "xlClipboardFormatLink (" & dFormat & ")"
         Case xlClipboardFormatLinkSource
            MsgBox "xlClipboardFormatLinkSource (" & dFormat & ")"
         Case xlClipboardFormatLinkSourceDesc
            MsgBox "xlClipboardFormatLinkSourceDesc (" & dFormat & ")"
         Case xlClipboardFormatMovie
            MsgBox "xlClipboardFormatMovie (" & dFormat & ")"
         Case xlClipboardFormatNative
            MsgBox "xlClipboardFormatNative (" & dFormat & ")"
         Case xlClipboardFormatObjectDesc
            MsgBox "xlClipboardFormatObjectDesc (" & dFormat & ")"
         Case xlClipboardFormatObjectLink
            MsgBox "xlClipboardFormatObjectLink (" & dFormat & ")"
         Case xlClipboardFormatOwnerLink
            MsgBox "xlClipboardFormatOwnerLink (" & dFormat & ")"
         Case xlClipboardFormatPICT
            MsgBox "xlClipboardFormatPICT (" & dFormat & ")"
         Case xlClipboardFormatPrintPICT
            MsgBox "xlClipboardFormatPrintPICT (" & dFormat & ")"
         Case xlClipboardFormatRTF
            MsgBox "xlClipboardFormatRTF (" & dFormat & ")"
         Case xlClipboardFormatScreenPICT
            MsgBox "xlClipboardFormatScreenPICT (" & dFormat & ")"
         Case xlClipboardFormatStandardFont
            MsgBox "xlClipboardFormatStandardFont (" & dFormat & ")"
         Case xlClipboardFormatStandardScale
            MsgBox "xlClipboardFormatStandardScale (" & dFormat & ")"
         Case xlClipboardFormatSYLK
            MsgBox "xlClipboardFormatSYLK (" & dFormat & ")"
         Case xlClipboardFormatTable
            MsgBox "xlClipboardFormatTable (" & dFormat & ")"
         Case xlClipboardFormatText
            MsgBox "xlClipboardFormatText (" & dFormat & ")"
         Case xlClipboardFormatToolFace
            MsgBox "xlClipboardFormatToolFace (" & dFormat & ")"
         Case xlClipboardFormatToolFacePICT
            MsgBox "xlClipboardFormatToolFacePICT (" & dFormat & ")"
         Case xlClipboardFormatVALU
            MsgBox "xlClipboardFormatVALU (" & dFormat & ")"
         Case xlClipboardFormatWK1
            MsgBox "xlClipboardFormatWK1 (" & dFormat & ")"
         Case Else
            MsgBox "Zwischenablage ist leer (" & dFormat & ")"
      End Select
   Next
End Sub

Beiträge aus dem Excel-Forum zu den Themen Format und ClipBoard