Developing.ru

Код: Выделить всё

Sub ChangeControls()    
    Dim ctl As Control
    Dim uf As VBIDE.VBComponent
    Dim vbp As VBProject 
    Set vbp = Application.VBE.VBProjects("SalesInfoSheet")    
    Set uf = vbp.VBComponents("UOrders") 
    For Each ctl In uf.Designer.Controls
        Select Case ctl.Left
            Case 6
                ctl.Name = "mybutton" & CLng(((ctl.Top - 30) / 18) + 1)
                Next ctl    
End Sub

Код: Выделить всё

Sub RenameControls() 
    Dim vbpTemp As VBProject 
    Dim frmTemp As VBComponent 
    Dim cntTemp As MSForms.Control      
    Set vbpTemp = Application.VBE.ActiveVBProject 
    Set frmTemp = vbpTemp.VBComponents.Item("Userform1")      
    For Each cntTemp In frmTemp.Designer.Controls 
        If TypeOf cntTemp Is MSForms.TextBox Then 
            Select  Case UCase(cntTemp.Name) 
            Case "TEXTBOX1" 
                cntTemp.Name = "txtUsername" 
            Case "TEXTBOX2" 
                cntTemp.Name = "txtDepartment" 
            Case "TEXTBOX3" 
                cntTemp.Name = "txtAccount" 
            End Select 
        End If 
    Next      
End Sub