Inserir Imagem

Question

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

Answer 1

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

Answer 2

Valeu cara... o código funcionou!!!
Obrigado