以数字数组的形式返回剪贴板中当前的格式。可用数组中每个元素与“说明”部分所述的适当常量相比较,以判断剪贴板中是否包含特定的格式。Variant 类型,只读。
expression.ClipboardFormats(Index)
expression 必需。该表达式返回“应用于”列表中对象之一。
Index Variant 类型,可选。指明要返回的数组元素。若省略本参数,本属性返回包含当前剪贴板上所有格式的数组。详细信息,请参阅“说明”部分。
本属性返回数字数组。可用数组中每个元素与下列 XlClipboardFormat 常量之一相比较,以判断剪贴板中是否包含特定的格式:
xlClipboardFormatBIFF
xlClipboardFormatBIFF2 xlClipboardFormatBIFF3 xlClipboardFormatBIFF4 xlClipboardFormatBinary xlClipboardFormatBitmap xlClipboardFormatCGM xlClipboardFormatCSV xlClipboardFormatDIF xlClipboardFormatDspText xlClipboardFormatEmbeddedObject xlClipboardFormatEmbedSource xlClipboardFormatLink xlClipboardFormatLinkSource xlClipboardFormatLinkSourceDesc xlClipboardFormatMovie xlClipboardFormatNative |
xlClipboardFormatObjectDesc
xlClipboardFormatObjectLink xlClipboardFormatOwnerLink xlClipboardFormatPICT xlClipboardFormatPrintPICT xlClipboardFormatRTF xlClipboardFormatScreenPICT xlClipboardFormatStandardFont xlClipboardFormatStandardScale xlClipboardFormatSYLK xlClipboardFormatTable xlClipboardFormatText xlClipboardFormatToolFace xlClipboardFormatToolFacePICT xlClipboardFormatVALU xlClipboardFormatWK1 |
如果剪贴板中包含多信息文本格式(RTF)对象,本示例将显示一消息框。可从 Word 文档中复制文本以创建 RTF 对象。
aFmts = Application.ClipboardFormats
For Each fmt In aFmts
If fmt = xlClipboardFormatRTF Then
MsgBox "Clipboard contains rich text"
End If
Next