VBA～クリップボードに格納されているデータの形式を判定しよう～Excel

VBAでクリップボードに格納されているデータの形式を判定したい場合はApplication.ClipboardFormatsプロパティを使います。クリップボードが空の場合はClipboardFormats(1)が-1になります。

下のコードを実行するとクリップボードが空の場合はメッセージボックスに"クリップボードに何もありません。"と表示されます。画像がある場合は画像がアクティブシートのセルB2に貼り付けられます。

画像がある場合は画像がアクティブシートのセルB2に貼り付けられます。

Sub test1()

Dim a As Long

If Application.ClipboardFormats(1) = True Then

MsgBox "クリップボードに何もありません。"
Exit Sub

End If

For a = 1 To UBound(Application.ClipboardFormats)

If Application.ClipboardFormats(a) = xlClipboardFormatBitmap Then

ActiveSheet.Paste Destination:=Range("B2")
Exit For

End If

Next

End Sub

形式は以下の通りになります。