Este fórum está sendo desativado

[MarceloAdriano]

Olá Caros colegar do Fórum do Guru

Gostaria, se possível, que ao incrementar pelo SpinButton1 os usuários de 1 à 5 - que aparecesse automaticamente a foto do usuário que ira trabalhar nos lançamentos...
Eu até tente, realizar o código mais em vão...
Segue a imagem ilustrativa e a planilha em anexo...
De antemão agradeço

[babdallas]

Marcelo,

modifique a seguinte linha no evento change do spinbutton:

Código: Selecionar todos

imagem = endereco & Plan1.Cells(i, 7).Value

Ao invés de cells(i,7) estava range(i,7). Não sei se o problema é somente esse, mas vamos por partes.

[MarceloAdriano]

Olá babdallas
Já teve progresso, pois a foto padrão, ao clicar no incrementar pelo spinbutton já fica em branco. Porém não carrega a foto contida e indicada na plan1.range("G10:G13")...
Podendo continuar e contribuir com seus conhecimentos para sanar esse meu projeto...lhe agradeço!

Grato,
Marcelo Adriano

[babdallas]

Só para eu entender, digita aí o caminho com o nome do arquivo de imagem que você quer colocar. Só para verificar se você fez corretamente.

[MarceloAdriano]

Olá babdallas
Obrigado mais uma vez!
Segue o caminho dos arquivos da onde estão as fotos: C:\Users\Marcelo Adriano\Downloads\Imagens
e o código na integra:
Private Sub SpinButton1_Change()

Dim imagem
On Error Resume Next

SpinButton1.Min = 1
SpinButton1.Max = 5
Plan1.Range("i8").Value = SpinButton1
txt_Codigo.Text = Plan1.Range("i9").Value 'Código
txt_Usuario.Text = Plan1.Range("i11").Value


'Figura

Set imagem = endereco & Plan1.Cells(i, 8).Value
'Set Endereco = D:\Usuários\Marcelo Adriano\HD_1TERA\Excel_Projetos\Fluxo de Caixa\IMAGENS_FLUXO ou

ultimaLinha = Plan1.Cells(Rows.Count, "E").End(xlUp).Row 'loop

For i = 10 To ultimaLinha

If Plan1.Cells(i, 5).Value = SpinButton1 Then 'Plan1.Range("i8") Then ''CDbl =>converte texto em número CDbl(txt_Codigo)
'Obj_Imagem = Cells(i, 8)
imagem = endereco & Plan1.Cells(i, 7).Value
Set Obj_Imagem.Picture = LoadPicture(imagem)
Obj_Imagem.PictureSizeMode = fmPictureSizeModeZoom


End If

Next i
end sub

Grato,
Marcelo Adriano

[babdallas]

As suas imagems estão com que nome? Tem a extensão do arquivo? Está em alguma célula da planilha?
Eu fiz um pequeno teste aqui com spinbutton e imagem e funcionou. As imagens estavam em uma pasta do meu computador. Foi um código bem simples, conforme abaixo.

Código: Selecionar todos

Private Sub SpinButton1_Change()

    Dim endereco As String
    
    SpinButton1.Min = 1
    SpinButton1.Max = 2
    
    
    endereco = "C:\Users\CF19\Documents\Meus documentos\Dados\Fotos\Luisa e Laura\DSC_0" & SpinButton1.Value + 218 & ".JPG"
    
    Image1.Picture = LoadPicture(endereco)
    Image1.PictureSizeMode = fmPictureSizeModeStretch


End Sub

Private Sub UserForm_Initialize()
    SpinButton1.Value = 1
End Sub

[MarceloAdriano]

Olá
Inicialmente obrigado!
A extensão dos arquivos estão em .jpg inicialmente as imagens estavam como nomes, depois alterei para 1,2,3 e 4
e estas numerações estão contidas na planilha através do range plan.1.range("G10:G13") na Plan "Config".
Amanha, como mais tempo, tentarei implementar em meu projeto.

Grato,
Marcelo Adriano

[MarceloAdriano]

Olá babdallas
Consegui a solulção era mais simples que imimaginava, era so colocar o endereço completo do arquivo que continha a imagem

Obrigado pela ajuda e consideração...

Grato,
Marcelo Adriano

[babdallas]

Que bom que resolveu Marcelo!
Foi por isso que perguntei sobre o nome dos arquivos para você, porque notei que você não estava direcionando corretamente o endereço com o nome dos arquivos, inclusive com a extensão do arquivo.
Boa sorte aí no projeto! Abraço

[MarceloAdriano]

Obrigado ..
As vezes o erro esta na nossa cara e precisando de alguém que nos faça enchegar

Obrigado babdallas

Grato,
Marcelo Adriano