locked
Inserir Imagem RRS feed

  • Pergunta

  • Bom dia pessoal, alguém sabe como faço para inserir umade imagem acordo com o numero retornado do Spin Button, utilizando VLOOKUP ????
    Valews

    sexta-feira, 4 de agosto de 2006 15:48

Respostas

  • Testei desta forma e funcionou bem:

    a) No intervalo A1:A5 criei números (1 a 5)

    b) No intervalo B1:B5 coloquei caminhos de imagens (c:\PastaTal\ArquivoTal.jpg)

    c) Coloquei um SpinButton

    d) Coloquei um Image control

    O seguinte código carrega as imagens:

    Private Sub SpinButton1_Change()
    Dim strImagem As String

    On Error Resume Next
    strImagem = Application.VLookup(Me.SpinButton1.Value, _
    Worksheets(1).Range("A1:B5"), 2, False)

    If Err = 0 Then
        If Len(Dir(strImagem, vbArchive)) > 0 Then
            Me.Image1.Picture = LoadPicture(strImagem)
        Else
            Me.Image1.Picture = LoadPicture("")
        End If
    Else
        Me.Image1.Picture = LoadPicture("")
    End If
    End Sub

    sábado, 5 de agosto de 2006 23:56
    Moderador

Todas as Respostas

  • Testei desta forma e funcionou bem:

    a) No intervalo A1:A5 criei números (1 a 5)

    b) No intervalo B1:B5 coloquei caminhos de imagens (c:\PastaTal\ArquivoTal.jpg)

    c) Coloquei um SpinButton

    d) Coloquei um Image control

    O seguinte código carrega as imagens:

    Private Sub SpinButton1_Change()
    Dim strImagem As String

    On Error Resume Next
    strImagem = Application.VLookup(Me.SpinButton1.Value, _
    Worksheets(1).Range("A1:B5"), 2, False)

    If Err = 0 Then
        If Len(Dir(strImagem, vbArchive)) > 0 Then
            Me.Image1.Picture = LoadPicture(strImagem)
        Else
            Me.Image1.Picture = LoadPicture("")
        End If
    Else
        Me.Image1.Picture = LoadPicture("")
    End If
    End Sub

    sábado, 5 de agosto de 2006 23:56
    Moderador
  • Valeu cara... o código funcionou!!!
    Obrigado
    segunda-feira, 7 de agosto de 2006 13:04