Microsoft KB Archive/187745

= BUG: Microsoft Excel Does Not Repaint Properly with Automation =

Article ID: 187745

Article Last Modified on 1/23/2007

-

APPLIES TO


 * Microsoft Excel 2000 Standard Edition
 * Microsoft Visual Basic for Applications 5.0
 * Microsoft Office XP Developer Edition
 * Microsoft Office 2000 Developer Edition
 * Microsoft Excel 2002 Standard Edition
 * Microsoft Excel 97 Standard Edition

-



This article was previously published under Q187745



SYMPTOMS
When automating Microsoft Excel 97, Excel 2000, or Excel 2002, 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.



Steps to Reproduce Behavior
 Start a new Standard EXE project in Visual Basic. Form1 is created by default. 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, and for Excel 2002, select the Microsoft Excel 10.0 object library. Place a CommandButton on Form1.  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  On the Run menu, click Start, or press the F5 key to start the program.</li> 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.</li>  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 </li></ol>

Keywords: kbautomation kbbug kbinterop kbpending KB187745

-

[mailto:TECHNET@MICROSOFT.COM Send feedback to Microsoft]

© Microsoft Corporation. All rights reserved.