Propiedad Description

Microsoft Office Objects

Mostrar todo

Propiedad Description

       

Propiedad Description cuando se aplica al objeto COMAddIn.

Devuelve o establece un valor String descriptivo para el objeto COMAddIn especificado. Lectura/Escritura.

expresión.Description

expresión   Requerida. Expresión que devuelve un objeto COMAddIn.

Propiedad Description cuando se aplica al objeto FileDialogFilter.

Devuelve la descripción de cada objeto Filter como un valor String. La descripción es el texto que se muestra en el cuadro de diálogo del archivo. Es de sólo lectura.

expresión.Description

expresión   Requerida. Expresión que devuelve un objeto FileDialogFilter.

Ejemplo

Cuando se aplica al objeto COMAddIn.

El ejemplo siguiente muestra el texto descriptivo del complemento COM de accesibilidad para dibujar de Microsoft Office.

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

Cuando se aplica al objeto FileDialogFilter.

El ejemplo siguiente repite los filtros predeterminados del cuadro de diálogo Guardar como y muestra la descripción de los filtros que incluye cada archivo de Microsoft Excel. La propiedad Extensions se utiliza para encontrar los objetos de filtro apropiados.

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