Description 属性

全部显示

Description 属性应用于 COMAddIn 对象的情形。

返回或设置指定COMAddIn 对象的说明性 String 值。可读写。

expression.Description

expression 必需。该表达式返回一个 COMAddIn 对象。

Description 属性应用于 FileDialogFilter 对象的情形。

以 String 类型值返回每个 Filter 对象的说明。该说明为文件对话框中显示的文本。只读。

expression.Description

expression 必需。该表达式返回一个 FileDialogFilter 对象。

示例

应用于 COMAddIn 对象的情形。

本示例显示用于绘图的 Microsoft Accessibility COM 加载项的说明文本。

MsgBox "The description of this " & _
 "COMAddIn is """ & Application.COMAddIns. _
 Item("msodraa9.ShapeSelect"). _
 Description & """

应用于 FileDialogFilter 对象的情形。

本示例在“另存为”对话框的默认筛选中迭代，并显示每个包括 Microsoft Excel 文件的筛选说明。Extensions 属性用于查找相应的筛选对象。

Sub Main()

    'Declare a variable as a FileDialogFilters collection.
    Dim fdfs As FileDialogFilters

    'Declare a variable as a FileDialogFilter object.
    Dim fdf As FileDialogFilter

    'Set the FileDialogFilters collection variable to
    'the FileDialogFilters collection of the SaveAs dialog box.
    Set fdfs = Application.FileDialog(msoFileDialogSaveAs).Filters

    'Iterate through the description and extensions of each
    'default filter in the SaveAs dialog box.
    For Each fdf In fdfs

        'Display the description of filters that include
        'Microsoft Excel files.
        If InStr(1, fdf.Extensions, "xls", vbTextCompare) > 0 Then
            MsgBox "Filter description: " & fdf.Description
        End If
    Next fdf

End Sub