none
Mudar figura no formulário Excel? RRS feed

 > 

  • Pergunta

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

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