ExcelのVBAで、クリップボードのデータ形式を確認する。
ExcelのVBAで、クリップボードのデータ形式を確認する方法です。
クリップボードのデータ形式を確認することで、データ形式により処理を変更したり、処理の事前確認をしたりすることができます。
なお、以下の手法では、前提として「Microsoft Forms 2.0 Object Library」への参照設定をする必要があります。
|
|
'クリップボードのデータ形式を確認・表示します。
Dim tempObject As Variant
Dim i As Long
tempObject = Application.ClipboardFormats
'クリップボードの中身が空の場合には、
'tempObject(1)は「-1」になります。
If tempObject(1) = -1 Then
MsgBox "クリップボードには何も入っていません。"
Exit Sub
End If
For i = 1 To UBound(tempObject)
Select Case tempObject(i)
Case xlClipboardFormatBIFF
MsgBox "Excel 2.x のバイナリ変換ファイル形式です。"
Case xlClipboardFormatBIFF2
MsgBox "Excel 2.x のバイナリ変換ファイル形式です。"
Case xlClipboardFormatBIFF3
MsgBox "Excel 3.x のバイナリ変換ファイル形式です。"
Case xlClipboardFormatBIFF4
MsgBox "Excel 4.x のバイナリ変換ファイル形式です。"
Case xlClipboardFormatBinary
MsgBox "バイナリ形式です。"
Case xlClipboardFormatBitmap
MsgBox "ビットマップ形式です。"
Case xlClipboardFormatCGM
MsgBox "CGのメタファイル形式です。"
Case xlClipboardFormatCSV
MsgBox "カンマ区切りのテキスト形式です。"
Case xlClipboardFormatDIF
MsgBox "VisiCalcのデータ変換形式です。"
Case xlClipboardFormatDspText
MsgBox "OEMテキスト形式です。"
Case xlClipboardFormatEmbeddedObject
MsgBox "ファイルに挿入されるオブジェクト形式です。"
Case xlClipboardFormatEmbedSource
MsgBox "ソース形式です。"
Case xlClipboardFormatLink
MsgBox "リンク形式です。"
Case xlClipboardFormatLinkSource
MsgBox "ソースへのリンク形式です。"
Case xlClipboardFormatLinkSourceDesc
MsgBox "ソースの説明へのリンク形式です。"
Case xlClipboardFormatMovie
MsgBox "ビデオ形式です。"
Case xlClipboardFormatNative
MsgBox "Native形式です。"
Case xlClipboardFormatObjectDesc
MsgBox "オブジェクトの説明形式です。"
Case xlClipboardFormatObjectLink
MsgBox "オブジェクトへのリンク形式です。"
Case xlClipboardFormatOwnerLink
MsgBox "オーナーへのリンク形式です。"
Case xlClipboardFormatPICT
MsgBox "メタファイル形式の画像形式(.wmf)です。"
Case xlClipboardFormatPrintPICT
MsgBox "印刷用のメタファイル形式です。"
Case xlClipboardFormatRTF
MsgBox "リッチテキスト形式です。"
Case xlClipboardFormatScreenPICT
MsgBox "画面表示用のメタファイル形式です。"
Case xlClipboardFormatStandardFont
MsgBox "標準フォント形式です。"
Case xlClipboardFormatStandardScale
MsgBox "標準倍率形式です。"
Case xlClipboardFormatSYLK
MsgBox "Microsoft シンボリックリンク形式です。"
Case xlClipboardFormatTable
MsgBox "Excelファストテーブル形式です。"
Case xlClipboardFormatText
MsgBox "テキスト形式です。"
Case xlClipboardFormatToolFace
MsgBox "画像(Macintoshツールに関連付け)形式です。"
Case xlClipboardFormatToolFacePICT
MsgBox "メタファイル形式のボタンイメージ形式です。"
Case xlClipboardFormatVALU
MsgBox "VALU形式です。"
Case xlClipboardFormatWK1
MsgBox "Lotus1-2-3 2.01及び2.2形式です。"
Case Else
'何もしない
End Select
Next
|
|
|
以上の記述で、クリップボードのデータ形式を確認することができます。
|