FileDialogFilters.Clear Method - PowerPoint

Removes all filters currently applied in a file dialog box.

Syntax

expression.Clear

expression A variable that represents a FileDialogFilters object.

Example
The following example iterates through the default filters of the SaveAs dialog box and displays the description of each filter that includes a Microsoft Excel file.

Visual Basic for Applications

Visual Basic for Applications
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 "Description of filter: " & fdf.Description End If Next fdf End Sub

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 "Description of filter: " & fdf.Description End If Next fdf End Sub

ofv

See also: