none
Erro de execução 438? RRS feed

  • Pergunta

  • Era para aceitar todas as propriedades de um formulário.

    Aceita a propriedade font, mas não aceita a propriedade name.

    Peço que teste em sua máquina para ver se dá o mesmo erro.

    Sub deb()
    Dim frm As UserForm
        For i = 1 To ThisWorkbook.VBProject.VBComponents.Count
            'Debug.Print ThisWorkbook.VBProject.VBComponents(i).Name
            If "UserForm1" = ThisWorkbook.VBProject.VBComponents(i).Name Then
            
            Set frm = ThisWorkbook.VBProject.VBComponents(i).Designer
           Debug.Print frm.Font
           Debug.Print frm.Name
            End If
        Next i
        
    End Sub


    Anderson Diniz

    domingo, 25 de junho de 2017 12:28

Respostas

  • Sub deb()
    Dim frm As Object
        For i = 1 To ThisWorkbook.VBProject.VBComponents.Count
            'Debug.Print ThisWorkbook.VBProject.VBComponents(i).Name
            If "UserForm1" = ThisWorkbook.VBProject.VBComponents(i).Name Then
            
            Set frm = UserForm1
           Debug.Print frm.Font
           Debug.Print frm.Name
           End If
        Next i
        'frm.Show
        
    End Sub


    Anderson Diniz

    domingo, 25 de junho de 2017 15:24