Notifications
Clear all

MACRO PARA COLORIR AUTOFORMAS

7 Posts
4 Usuários
0 Reactions
2,818 Visualizações
(@brunoh)
Posts: 6
Active Member
Topic starter
 

Bom dia,

Eu trabalho em um terminal portuário e tenho o interesse de fazer um mapa do porto com autoformas, cada autoforma obedecerá uma condição de criticidade (muito parecido com a formatação condicional, pena que não da para fazer com autoformas).
Ex.: Existe um retânculo que representa a Área 1, e ele ficará vermelho, amarelo ou verde de acordo com os respectivos percentuais "0 à 30%"; "31 a 60%" e "61 a 100%" [vale lembrar que os percentuais serão expostos por uma célula - A1, por exemplo]
Eu pesquisei aqui no forúm e não achei algo do tipo. Alguém tem um código para me passar, assim eu posso usá-lo como ponto de partida.

Grato,

Bruno

 
Postado : 29/11/2013 8:55 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Brunoh,

boa tarde!

Como não tem nenhum modelo para sabermos o tamanho da autoforma eu fiz um exemplo usando a formatação condicional.
Veja se é mais ou menos assim que precisa ou talvez dá para aproveitar algo.

Caso não for do seu agrado, peça help novamente.

Att,

 
Postado : 29/11/2013 10:45 am
(@brunoh)
Posts: 6
Active Member
Topic starter
 

Boa tarde Marciel,

Segue em anexo o que eu queria falar. É o desenho que eu fiz (de uma maneira bem básica), e cada retangulo que forma a figura, modifica a sua cor de acordo com os padrões de criticidade.

 
Postado : 29/11/2013 11:21 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Brunoh, veja se é isto, para que funcione corretamente, tem de Habilitar as Macros ao abrir o arquivo.

Colorir Shapes de acordo com Valor da Celula

Qualquer duvida retorne.

[]s

 
Postado : 29/11/2013 7:11 pm
(@paulitotavares)
Posts: 36
Trusted Member
 

Bom dia Mauro

Uma dúvida.

Como é que eu consigo saber o nome de cada shape. Pergunto isto, porque quero colorir várias formas, numa folha excel, mas não sei ver qual o nome delas, para depois inserir a ordem em vba.

Cumprimentos

 
Postado : 29/05/2014 4:06 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

O nome de cada Shape irá aparecer na Caixa de nome ao seleciona-lo, quando você insere um shape ou qualquer outro activeX ou quando seleciona uma celula sempre é mostrado na Caixa de nome.
Quando você insere um Shape é mostrado o nome padrão do excel, então é só selecionar na Caixa de nome e dar um nome personalizado.

Veja que o nome do shape selecionado tem de coincidir com o nome que está na rotina.

Espero que seja isto o que quer.

[]s

 
Postado : 29/05/2014 5:07 pm
(@undreadbr)
Posts: 0
New Member
 

Caros usuários, poderiam postar novamente os anexos?

Pelo que lí no fórum , foram corrompidos na migração de servidor.

Agradeceria muito a ajuda.

 
Postado : 09/05/2017 9:09 am