Este fórum está sendo desativado

[Berg]

Pessoal,

Bom dia.

Possuo uma planilha (formulário) com diversos campos, como nome, função setor, etc...
No campo nome fiz uma validação de dados com uma lista suspensa, onde ao mudar o nome, altera-se a função e setor.
Tenho um outro campo chamado Ergonomia, onde deve-se aparecer uma foto quando o setor for manutenção e outra foto quando o setor mudar para administração.
Minha dúvida é, como fazer estas fotos mudarem automaticamente, quando os setores mudarem?

Abs,

Berg

[Vidal]

Apenas assista ao vídeo
http://www.google.com.br/url?sa=t&rct=j ... 9193,d.Y2I

[Henrique]

Berg,

Boa tarde!

A sugestão do Vidal é muito boa, mas se quiser fazer utilizando VBA não passe vontade.

Código: Selecionar todos

Sub TestInsertPicture()
    ActiveSheet.Pictures.Delete
    InsertPicture Range("h8").Value, _
        Range("D10"), True, True
End Sub

Sub InsertPicture(PictureFileName As String, TargetCell As Range, _
    CenterH As Boolean, CenterV As Boolean)
' inserts a picture at the top left position of TargetCell
' the picture can be centered horizontally and/or vertically
Dim p As Object, t As Double, l As Double, w As Double, h As Double
    If TypeName(ActiveSheet) <> "Worksheet" Then Exit Sub
    If Dir(PictureFileName) = "" Then Exit Sub
    ' import picture
    Set p = ActiveSheet.Pictures.Insert(PictureFileName)
    ' determine positions
    With TargetCell
        t = .Top
        l = .Left
        If CenterH Then
            w = .Offset(0, 1).Left - .Left
            l = l + w / 2 - p.Width / 2
            If l < 1 Then l = 1
        End If
        If CenterV Then
            h = .Offset(1, 0).Top - .Top
            t = t + h / 2 - p.Height / 2
            If t < 1 Then t = 1
        End If
    End With
    ' position picture
    With p
        .Top = t
        .Left = l
    End With
    Set p = Nothing
End Sub

Espero ter ajudado!

[Henrique]

Se quiser o arquivo me passa uma mensagem no privado que lhe mando por email. É que não sei porque mas não estou conseguindo anexar arquivos no site.

[Berg]

Henrique,

Obrigado pelo código em VBA, mas uma dúvida. Se eu utilizar este código, ele vai puxar o arquivo da imagem certo, então se eu tiver que disponibilizar esta planilha para outras pessoas, devo enviar junto o arquivo da imagem certo?
Neste caso, onde coloco os nomes dos arquivos das imagens no código VBA?
Posso colocar a imagem em qualquer lugar da planilha?

Abs,

Berg

[Henrique]

Berg,

Normalmente eu crio uma aba da planilha com nome de config e em uma região insiro o diretório onde os arquivos vão ficar armazenados (Ex.: C:\Meus Documentos\Imagens\) e no código VBA faço referência a esta pasta + nome do arquivo, que vai depender da escolha que for feita.
É melhor deixar as imagens fora da planilha. Pois caso contrário a planilha começará a ficar com tamanho elevado.

Abraço,

Espero ter ajudado!
Se gostou da um click na mãozinha!

Henrique

[Berg]

Henrique,

Não existe a possibilidade de utilizar a função SE neste caso?
Exemplo: =se(clelula x = "administração";foto1;se(celula x="manutenção";foto2;"")
Não há esta possibilidade?
Pois só terei duas imagens e duas opções de condições, ou manutenção ou administração.
Como faço para te mandar a planilha com as imagens?

Abs,

Berg

[Henrique]

Berg,

Segue exemplo de uso de imagens em VBA.

Abraço,

[Vidal]

vc pode tentar com PROCV
aí vai um exemplo.. se achar que atende sua necessidade, avise.. e eu adapto pra vc