BUG: Microsoft Excel Does Not Repaint Properly With Automation

• Microsoft Visual Basic for Applications version 5.0
• Microsoft Office 2000 Developer
• Microsoft Excel 2000
• Microsoft Excel 97 for Windows

SYMPTOMS

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.

CAUSE

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.

RESOLUTION

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.

STATUS

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

MORE INFORMATION

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