Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
VBA Editor "flashing" while Excel is still NOT Visible to the user
Hi guys,
This is my very first time in this discussion group. I work on an application that should run under both Excel 11.0 and Excel 12.0 I am automating Excel with the application NOT visible, but when running the code below, the VBA Editor flashes on-screen. How can I suppress that "flashing"? Thanks in advance, Aldo. The following block of code should create a Sub into "ThisWorkbook". Sub Create_Workbook_BeforeCloseSub() Dim VBProj As VBIDE.VBProject Dim VBComp As VBIDE.VBComponent Dim CodeMod As VBIDE.CodeModule Dim LineNum As Long Const DQUOTE = """" 'one " character Set VBProj = ActiveWorkbook.VBProject Set VBComp = VBProj.VBComponents(ActiveWorkbook.CodeName) Set CodeMod = VBComp.CodeModule With CodeMod LineNum = LineNum + 1: .InsertLines LineNum, "Option Explicit" LineNum = .CreateEventProc("BeforeClose", "Workbook") LineNum = LineNum + 1: .InsertLines LineNum, " ActiveWorkbook.Close(False)" End With 'Close VBA editor Application.VBE.MainWindow.Visible = False End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
VBA Editor "flashing" while Excel is still NOT Visible to the user
Hi
Application.ScreenUpdating = False your code Application.ScreenUpdating = True -- Regards Roger Govier "Aldo" wrote in message ... Hi guys, This is my very first time in this discussion group. I work on an application that should run under both Excel 11.0 and Excel 12.0 I am automating Excel with the application NOT visible, but when running the code below, the VBA Editor flashes on-screen. How can I suppress that "flashing"? Thanks in advance, Aldo. The following block of code should create a Sub into "ThisWorkbook". Sub Create_Workbook_BeforeCloseSub() Dim VBProj As VBIDE.VBProject Dim VBComp As VBIDE.VBComponent Dim CodeMod As VBIDE.CodeModule Dim LineNum As Long Const DQUOTE = """" 'one " character Set VBProj = ActiveWorkbook.VBProject Set VBComp = VBProj.VBComponents(ActiveWorkbook.CodeName) Set CodeMod = VBComp.CodeModule With CodeMod LineNum = LineNum + 1: .InsertLines LineNum, "Option Explicit" LineNum = .CreateEventProc("BeforeClose", "Workbook") LineNum = LineNum + 1: .InsertLines LineNum, " ActiveWorkbook.Close(False)" End With 'Close VBA editor Application.VBE.MainWindow.Visible = False End Sub |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
VBA Editor "flashing" while Excel is still NOT Visible to the user
Go to this site
http://www.cpearson.com/excel/vbe.aspx and search for Eliminating Screen Flicker During VBProject Code -- HTH, Barb Reinhardt If this post was helpful to you, please click YES below. "Aldo" wrote: Hi guys, This is my very first time in this discussion group. I work on an application that should run under both Excel 11.0 and Excel 12.0 I am automating Excel with the application NOT visible, but when running the code below, the VBA Editor flashes on-screen. How can I suppress that "flashing"? Thanks in advance, Aldo. The following block of code should create a Sub into "ThisWorkbook". Sub Create_Workbook_BeforeCloseSub() Dim VBProj As VBIDE.VBProject Dim VBComp As VBIDE.VBComponent Dim CodeMod As VBIDE.CodeModule Dim LineNum As Long Const DQUOTE = """" 'one " character Set VBProj = ActiveWorkbook.VBProject Set VBComp = VBProj.VBComponents(ActiveWorkbook.CodeName) Set CodeMod = VBComp.CodeModule With CodeMod LineNum = LineNum + 1: .InsertLines LineNum, "Option Explicit" LineNum = .CreateEventProc("BeforeClose", "Workbook") LineNum = LineNum + 1: .InsertLines LineNum, " ActiveWorkbook.Close(False)" End With 'Close VBA editor Application.VBE.MainWindow.Visible = False End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Excel 2007 displays Locked by "another user", does not show User I | Excel Discussion (Misc queries) | |||
Stop the "flashing" when I execute an Excel macro? | Excel Discussion (Misc queries) | |||
Excel - Golf - how to display "-2" as "2 Under" or "4"as "+4" or "4 Over" in a calculation cell | Excel Discussion (Misc queries) | |||
Screen "Flashing" on Window change | Excel Discussion (Misc queries) | |||
Password visible if user selects "view code" | Excel Worksheet Functions |