Fórum Excel Bácico, Avançado e Vba

Este fórum é destina a usuário de Excel, que queiram compartilhar informações a básicas, avançadas e programação em VBA...
 
InícioInício  FAQFAQ  BuscarBuscar  MembrosMembros  GruposGrupos  Registrar-seRegistrar-se  Conectar-se  

Compartilhe | 
 

 Imagem visible em planilha dependendo do número que esta na célula

Ir em baixo 
AutorMensagem
SPP



Mensagens : 40
Data de inscrição : 05/06/2013
Idade : 65
Localização : Muriaé MG

MensagemAssunto: Imagem visible em planilha dependendo do número que esta na célula   Sex Dez 04, 2015 5:34 pm

Boa tarde!

A1=1 visible imagem1 e oculta as outras
A1=2 visible imagem2 e oculta as outras
A1=3 visible imagem3 e oculta as outras
A1=4 visible imagem4 e oculta as outras

Obrigado desde já.
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba

avatar

Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Imagem visible em planilha dependendo do número que esta na célula   Sex Dez 04, 2015 6:54 pm

Boa tarde!!!

O código prepara apenas o raciocínio e não faz de forma perfeita o solicitado, cabe a você adapta-lo!

Esse código deve ser inserido dentro de um módulo de planilha.
Código:
Private Sub Worksheet_Change(ByVal Target As Range)
    Private Sub Worksheet_Change(ByVal Target As Range)
        'Célula alvo de entrada de dados
        If Target.Address = "$A$1" Then
            'Verifica se foi digitado em A1
            Select Case Target.Value
                'Se valor iqual a 1 então mosta a figura1
            Case 1 
                Worksheets("Plan1").Shapes("Figura 1").Visible = True
            Case 2
            'Se valor iqual a 2 então mosta a figura2
                Worksheets("Plan1").Shapes("Figura 1").Visible = False
                Worksheets("Plan1").Shapes("Figura 2").Visible = True
            Case Else
            'Se valor iqual a 3 então mosta a figura3
                Worksheets("Plan1").Shapes("Picture 1").Visible = False
                Worksheets("Plan1").Shapes("Picture 2").Visible = False
                Worksheets("Plan1").Shapes("Picture 3").Visible = True
            End Select
        End If
    End Sub
Veja também:
http://www.get-digital-help.com/2013/10/25/show-and-hide-a-picture-vba/
Att
Voltar ao Topo Ir em baixo
Ver perfil do usuário
SPP



Mensagens : 40
Data de inscrição : 05/06/2013
Idade : 65
Localização : Muriaé MG

MensagemAssunto: Re: Imagem visible em planilha dependendo do número que esta na célula   Sex Dez 04, 2015 8:07 pm

Boa tarde!

Digito o 1 em A1 dou enter

Esta dando erro de compilação nome repetido encontrado Worksheet_Change

Obrigado mais uma vez pela colaboração
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba

avatar

Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Imagem visible em planilha dependendo do número que esta na célula   Sex Dez 04, 2015 8:18 pm

Boa tarde!!!


Então remova o nome repetido!!!!!!!!
Private Sub Worksheet_Change(ByVal Target As Range)

Att
Voltar ao Topo Ir em baixo
Ver perfil do usuário
SPP



Mensagens : 40
Data de inscrição : 05/06/2013
Idade : 65
Localização : Muriaé MG

MensagemAssunto: Re: Imagem visible em planilha dependendo do número que esta na célula   Sex Dez 04, 2015 8:29 pm

Depois que te enviei, percebi que estava repetido retirei, mas mesmo assim as imagens não ocultam e quando troco o número na célula A1 não acontece nada. Coloquei em activate as 3 imagens como false elas ocultaram.
Voltar ao Topo Ir em baixo
Ver perfil do usuário
SPP



Mensagens : 40
Data de inscrição : 05/06/2013
Idade : 65
Localização : Muriaé MG

MensagemAssunto: Re: Imagem visible em planilha dependendo do número que esta na célula   Sex Dez 04, 2015 8:29 pm

Depois que te enviei, percebi que estava repetido retirei, mas mesmo assim as imagens não ocultam e quando troco o número na célula A1 não acontece nada. Coloquei em activate as 3 imagens como false elas ocultaram.
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba

avatar

Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Imagem visible em planilha dependendo do número que esta na célula   Sex Dez 04, 2015 10:23 pm

Boa noite!!

Eu não se se imagem para vc é o mesmo para o excel e para mim!


Poste seu arquivo modelo (use um site de hospedagem poste o arquivo depois colej o link aqui)!!!!!!!!


Att
Voltar ao Topo Ir em baixo
Ver perfil do usuário
SPP



Mensagens : 40
Data de inscrição : 05/06/2013
Idade : 65
Localização : Muriaé MG

MensagemAssunto: Re: Imagem visible em planilha dependendo do número que esta na célula   Sex Dez 04, 2015 11:23 pm

Alexandre

Tentei salvar a planilha para te enviar, mas ela não salvou por isto que não tava funcionando.
Fiz uma nova planilha e funcionou perfeitamente, só que tenho que colocar em activate, porque o número muda automaticamente de acordo com a fase da lua.

Como colocar em activate oque precisa mudar.
Desculpa o transtorno, não entendi o que aconteceu
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba

avatar

Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Imagem visible em planilha dependendo do número que esta na célula   Sex Dez 04, 2015 11:32 pm

Boa noite!!!

Na seta (dentro do EditorVB), no canto superior direito, mudea para

Private Sub Worksheet_Activate()
, ou o que desejar.

Lembre se cada evento tem sua própria característica (neste caso, so vai executar o código, quando selecionar a guia, neste caso uma única vez em cada vez que selecionar a guia), o evento anterior verifica se A1 mudou o valor toda vez que for alterado e executa o código, o que não funciona com formula (neste caso já outro evento).


Att
Voltar ao Topo Ir em baixo
Ver perfil do usuário
SPP



Mensagens : 40
Data de inscrição : 05/06/2013
Idade : 65
Localização : Muriaé MG

MensagemAssunto: Re: Imagem visible em planilha dependendo do número que esta na célula   Sex Dez 04, 2015 11:37 pm

Colei em activate, mas não funciona da erro em If Target.Address = "$A$1" Then
Voltar ao Topo Ir em baixo
Ver perfil do usuário
SPP



Mensagens : 40
Data de inscrição : 05/06/2013
Idade : 65
Localização : Muriaé MG

MensagemAssunto: Re: Imagem visible em planilha dependendo do número que esta na célula   Sex Dez 11, 2015 5:41 pm

Boa Tarde!

Alexandre consegui assim:

Private Sub Worksheet_Activate()
Dim cel As integer
cel = Range("A1").Value
Select Case cel
Case 1
ActiveSheet.Shapes("Imagem1").Visible = True
ActiveSheet.Shapes("Imagem2").Visible = False
ActiveSheet.Shapes("Imagem3").Visible = False
ActiveSheet.Shapes("Imagem4").Visible = False
Case 2
'Case2 = Case1 só que true na imagem2

End Select
End Sub
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Conteúdo patrocinado




MensagemAssunto: Re: Imagem visible em planilha dependendo do número que esta na célula   

Voltar ao Topo Ir em baixo
 
Imagem visible em planilha dependendo do número que esta na célula
Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» Essa imagem é foda !
» *** MINHA PRIMEIRA IMAGEM 3D - SUPER MARIO, VENHA OPINAR! POR FAVOR NÃO VA ME DEIXAR NO VACUO XD ***
» PRECISO DE UMA IMAGEM!
» #Para que serve , como usar Parsistent,Mask,Visible,Solid ? #
» [Engine] Mudar certa cor de uma imagem

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: