XL: How to Create a Dynamic Dialog Box

Exención de responsabilidades de contenido KB retirado

Este artículo se refiere a productos para los que Microsoft ya no ofrece soporte técnico. Por tanto, el presente artículo se ofrece "tal cual" y no será actualizado.

Summary

The following example explains how to create a dynamic dialog box that changes size to show more options when you click a button on the dialog box.

More Information

Microsoft provides programming examples for illustration only, without warranty either expressed or implied. This includes, but is not limited to, the implied warranties of merchantability or fitness for a particular purpose. This article assumes that you are familiar with the programming language that is being demonstrated and with the tools that are used to create and to debug procedures. Microsoft support engineers can help explain the functionality of a particular procedure, but they will not modify these examples to provide added functionality or construct procedures to meet your specific requirements.

Creating the Dialog Box

To create the dialog box, follow these steps:


  1. In a new workbook, on the Insert menu, click Macro, and then Dialog.
  2. On the Forms toolbar, click the Option Button button. The mouse pointer will change to a cross. Center the pointer one-half inch below the bottom of Dialog1. Press and hold down the left mouse button and drag down a quarter of an inch and over one-and-a-half inches. Release the mouse button. There should now be an option button below Dialog1.
  3. On the Forms toolbar click the Create Button button. Inside of Dialog1, center the pointer one-and-a-half inches from the bottom and one and a half inches from the right side of the dialog box. Drag down three-quarters of an inch and over to the right three-quarters of an inch. Release the mouse button. There should now be a rectangular button on Dialog1.

Creating the Code

To create the code, follow these steps:

  1. On the Insert menu, click Macro, and then Module.
  2. Type the following code:
          Sub Show_Dialog()
    DialogSheets(1).Show
    DialogSheets(1).DialogFrame.Height = 147
    End Sub

    Sub Expand()
    DialogSheets(1).DialogFrame.Height = 200
    End Sub

Attaching the Expand Procedure to the Dialog Button

To attach the Expand procedure to the dialog button, follow these steps:

  1. Activate the Dialog1 sheet by clicking its sheet tab.
  2. Center the mouse pointer over the top of the button that you created in the bottom-right corner of Dialog1. Click once with the right mouse button. Click Assign Macro on the shortcut menu, and from the list of available macros, select Expand. Click OK.

Running the Macro

To run the macro, follow these steps:


  1. Activate a worksheet within the workbook. On the Forms toolbar, click the Create Button button and create a button on the current worksheet. The Assign Macro dialog box will appear. Select Show_Dialog, and then click OK.
  2. Click with the left mouse button once in a blank area of the current worksheet.
  3. Click with the left mouse button once on the button to run the macro.
  4. When the dialog box appears, click with the left mouse button once on the button that you created to show the option button. Click OK to dismiss the dialog box.

References

"Visual Basic User's Guide," version 5.0, Chapter 11, "Controls and Dialog Boxes"


For more information about dialog boxes in Microsoft Excel version 7.0, click Answer Wizard on the Help menu and type:


Dialog boxes
For more information about dialog boxes in Microsoft Excel version 5.0, click the Search button in Help and type:


Dialog boxes
Propiedades

Id. de artículo: 151343 - Última revisión: 10/11/2006 - Revisión: 1

Comentarios