none
Erro de execução 438? RRS feed

 > 

  • Pergunta

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    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

  • Question
    Entrar para Votar
    0
    Entrar para Votar 
    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
    |