Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Alterar Cor Forma (Fluxo Atividades)

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
salvador
Manda bem
Manda bem
Mensagens: 130
Registrado em: Qua Fev 12, 2014 8:01 am

Alterar Cor Forma (Fluxo Atividades)

Mensagem por salvador »

Pessoal, bom dia.

Tenho um fluxograma desenhado no Excel de atividades do meu setor, e eu gostaria de utiliza-lo para fazer o acompanhamento das atividades.

Como seria esse acompanhamento. Quando o usuário terminar uma tarefa, ele clica em cima da mesma e ela fica amarela e grava no banco de dados o nome da tarefa, a data e a hora que foi realizada.

Será que existe uma forma de fazer isso com as formas do Excel.

Deixei um arquivo de exemplo do que eu preciso anexo.

Obrigado
Anexos
Fluxo_Tarefas.zip
(8.88 KiB) Baixado 237 vezes


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


salvador
Manda bem
Manda bem
Mensagens: 130
Registrado em: Qua Fev 12, 2014 8:01 am

Re: Alterar Cor Forma (Fluxo Atividades)

Mensagem por salvador »

Pessoal, veja se da forma abaixo dá para me ajudar.
Veja que eu gravei uma macro da forma como eu preciso alterar, ou seja, quando eu clico num Shape (Forma) muda a cor para amarelo.
O que eu gostaria é que a macro entendesse que sempre que eu clicar num Shape ele fique amarelo, e se clicar novamente ele volta para o azul por exemplo.

Da forma como eu fiz abaixo, terei que fazer uma macro para cada Shape e também não consigo fazer ela voltar para outra cor se clicado pela seguinda vez.

Me ajuda galera, por favor, preciso muito desta macro.


Veja a macro gravada:

Código: Selecionar todos

Sub Muda_Quadrado_Etapa_01()
    
    ActiveSheet.Shapes.Range(Array("Etapa_01")).Select
    With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(255, 255, 0)
        .Transparency = 0
        .Solid
    End With
    Range("H8").Select
End Sub
Sub Muda_Quadrado_Etapa_02()

    ActiveSheet.Shapes.Range(Array("Etapa_02")).Select
    With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(255, 255, 0)
        .Transparency = 0
        .Solid
    End With
    
End Sub


Avatar do usuário
Reinaldo
Jedi
Jedi
Mensagens: 1537
Registrado em: Sex Ago 01, 2014 4:09 pm
Localização: Garça - SP / SCS - SP

Re: Alterar Cor Forma (Fluxo Atividades)

Mensagem por Reinaldo »

... ou seja, quando eu clico num Shape (Forma) muda a cor para amarelo..
Experimente:

Código: Selecionar todos

Sub clicou()
ActiveSheet.Shapes.Range(Array(Application.Caller)).Select
    With Selection.ShapeRange.Fill
         If .ForeColor.RGB = 13998939 Then
            .Visible = msoTrue
             .ForeColor.RGB = RGB(255, 255, 0)
             .Transparency = 0
             .Solid
        Else
            .ForeColor.RGB = 13998939
        End If
        Range("E6").Select
    End With
End Sub
Observação: Atribuir as formas a macro Clicou
Anexos
Cópia de Fluxo_Tarefas.zip
(13.71 KiB) Baixado 267 vezes


salvador
Manda bem
Manda bem
Mensagens: 130
Registrado em: Qua Fev 12, 2014 8:01 am

Re: Alterar Cor Forma (Fluxo Atividades)

Mensagem por salvador »

Perfeito meu amigo.
É isso mesmo.


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder