BUG: Microsoft Excel Does Not Repaint Properly With Automation

ID: Q187745

The information in this article applies to:


When automating Microsoft Excel 97 or Excel 2000, if the application window has been made visible and the user manually closes it, Excel will not repaint correctly the next time the application window is made visible again.


This problem occurs when a user attempts to quit a running instance of Excel while an Automation client still has a reference to the application object for that instance. By design, Excel does not quit an instance of itself unless all external references are released; if a user tries to quit Excel manually, the application window is merely hidden so that the Automation client may continue working. If, however, the Automation client attempts to make Excel visible again, the application window will not be displayed properly and repainting will not occur.


A workaround is to set the ScreenUpdating property of the application object to True after you have made the window visible. This will force Excel to repaint its client area so that it will be displayed properly.


Microsoft has confirmed this to be a bug in the Microsoft products listed at the beginning of this article.


Steps to Reproduce Behavior

  1. Start a new Standard EXE project in Visual Basic. Form1 is created by default.

  2. On the Project menu, click References, and then select the Microsoft Excel 8.0 object library. For Excel 2000 select Microsoft Excel 9.0 object library.

  3. Place a CommandButton on Form1.

  4. Copy the following code to the Code Window of Form1:
          Private oApp As Excel.Application
          Private Sub Command1_Click()
             oApp.Visible = True
          End Sub
          Private Sub Form_Load()
             Set oApp = CreateObject("Excel.Application")
             Command1.Caption = "Show Excel"
          End Sub
          Private Sub Form_Unload(Cancel As Integer)
             Set oApp = Nothing
          End Sub 

  5. On the Run menu, click Start, or press the F5 key to start the program.

  6. Click on the Command button to make Excel visible. Close Excel by pressing the Close button on Excel's title bar, or by selecting Exit from the File menu. Now press the Visual Basic Command button again, and note that Excel does not paint itself correctly.

  7. Repeat the steps again with the Command button's code modified as follows:
          Private Sub Command1_Click()
             oApp.Visible = True
             oApp.ScreenUpdating = True
          End Sub 

Additional query words:

Keywords          : kbinterop kbAutomation kbVBp kbGrpDSO kbOffice2000 kbExcel97 kbVBA500 kbexcel2000 
Version           : WINDOWS:2000,5.0,97; :
Platform          : WINDOWS 
Issue type        : kbbug 

Last Reviewed: June 3, 1999