none
Mudar figura no formulário Excel? RRS feed

  • Pergunta

  • Tenho um formulário com um controle Image. Gostaria que, de acordo com o valor da variável num, ficasse uma figura dentro controle. Se o valor de num for menor que 5, deve ficar a figura 1, se for maior que 5, deve ficar a figura 2. Como fazer isso tendo apenas um controle Image?
    terça-feira, 15 de janeiro de 2013 03:10

Respostas

  • Private Sub UserForm_Click()
        Dim num As Long
        Dim sCaminho As String
        
        num = InputBox("Qual é o valor de 'num'?")
    
        Select Case num
            Case 1: sCaminho = "c:\temp\a.jpg"
            Case 2: sCaminho = "c:\temp\b.jpg"
            Case 3: sCaminho = "c:\temp\c.jpg"
            Case 4: sCaminho = "c:\temp\d.jpg"
            Case 5: sCaminho = "c:\temp\e.jpg"
        End Select
        
        Image1.Picture = LoadPicture(sCaminho)
        
    End Sub
    Se tiverem muitos números diferentes para carregar imagens, favor voltar a postar aqui.

    Felipe Costa Gualberto - http://www.ambienteoffice.com.br

    • Marcado como Resposta diniabr2012 quinta-feira, 17 de janeiro de 2013 03:27
    • Não Marcado como Resposta diniabr2012 quinta-feira, 17 de janeiro de 2013 03:56
    • Marcado como Resposta diniabr2012 quinta-feira, 17 de janeiro de 2013 10:36
    quarta-feira, 16 de janeiro de 2013 21:42
    Moderador