Change Code Windows
 

I am using the following code to set certain parameters on my code windows:

Dim cmpComponent As VBIDE.VBComponent
Dim cmpComponents As VBIDE.VBComponents
Dim cmpName As String
Dim xx As Integer
Set cmpComponents = ThisWorkbook.VBProject.VBComponents

For Each cmpComponent In cmpComponents
cmpName = ThisWorkbook.VBProject.VBComponents(cmpComponent.N ame).Name

ThisWorkbook.VBProject.VBComponents(cmpName).CodeM odule.CodePane.Window.Top =
12

Change Code Windows
 

ThisWorkbook.VBProject.VBComponents("UserForm1").D esignerWindow
--
- K Dales


"BillCPA" wrote:

I am using the following code to set certain parameters on my code windows:

Dim cmpComponent As VBIDE.VBComponent
Dim cmpComponents As VBIDE.VBComponents
Dim cmpName As String
Dim xx As Integer
Set cmpComponents = ThisWorkbook.VBProject.VBComponents

For Each cmpComponent In cmpComponents
cmpName = ThisWorkbook.VBProject.VBComponents(cmpComponent.N ame).Name

ThisWorkbook.VBProject.VBComponents(cmpName).CodeM odule.CodePane.Window.Top =
12
.
.

ThisWorkbook.VBProject.VBComponents(cmpName).CodeM odule.CodePane.Window.Close
Next cmpComponent

This works for the code windows, but not for the user forms. What would I
need to change to manipulate the form windows?

--
Bill @ UAMS