Материал из VB Эксперт
Перейти к: навигация, поиск

cancel a procedure if the user clicked the Cancel button in a dialog box:

Sub dlg()
    If Dialogs(wdDialogFileOpen).show = 0 Then End
End Sub

Display one of Excel"s built-in dialog boxes and let the user make the choices: by using the Application object"s Dialogs property.

Sub show()
  Result = Application.Dialogs(xlDialogFormulaGoto).show
End Sub

Returning the Button the User Chose in a Dialog Box

Return Value      Button Clicked         
-2                Close        
-1                OK        
0                 Cancel        
1                 The first command button        
2                 The second command button        
>2                Subsequent command buttons

Set the contents of the File Name text box in the Save As dialog box in Word and then display the dialog box

Sub show()
    With Dialogs(wdDialogFileSaveAs)
        .Name = "Yellow Paint Primer"
    End With
End Sub

Specifying a Timeout for a Dialog Box

Sub dlg2()
    With Dialogs(wdDialogToolsOptions)
        .DefaultTab = wdDialogToolsOptionsTabUserInfo
        .show (15000)
    End With
End Sub

To display Excel"s Open dialog box

Sub showDialog()
End Sub

Using an Application"s Built-in Dialog Boxes from VBA: wdDialogFileOpen

Sub box()
  If Documents.Count = 0 Then
      Proceed = MsgBox("no document.Please open a document.", vbOKCancel + vbExclamation, "Format Report")
      If Proceed = vbOK Then
          If Documents.Count = 0 Then End
      End If
  End If
End Sub