Notifications
Clear all

Aumentar a Fonte da Lista de Validação de dados

7 Posts
4 Usuários
0 Reactions
5,302 Visualizações
(@cisneiro)
Posts: 0
New Member
Topic starter
 

Boa tarde, na planilha tenho varias células com lista suspensa. porem quando eu clico na setinha para exibir a lista, a mesma aparece muito pequena. gostaria que esta lista aparecesse com uma fonte maior, pois aparece muito pequena. Sendo que só posso trabalhar com essa planilha no zoom 70%. na lista suspensa da combobox a fonte fica grande mesmo com o zoom baixo, mais teria colocar varias combobox o que pesaria muito a planilha. teria como fazer com que o zoom fosse alterado ao clicar na seta que exibe a lista de validação? ou quando o cursor estiver nestas células?
Anexei a planilha para melhor entendimento
Agradeço desde já a quem tentar ajudar. Obrigado

 
Postado : 07/06/2017 10:35 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde Cisneiro

Já temos tópicos com a mesma dúvida, veja:

viewtopic.php?f=5&t=16986

[]s

 
Postado : 07/06/2017 11:09 am
(@basole)
Posts: 487
Reputable Member
 

Segue um exemplo veja se consegue adaptar:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Address = "$G$4" Then 'AQUI altere a celula c/ a Lista de validao
    ActiveWindow.Zoom = 120
  Else
    ActiveWindow.Zoom = 70
  End If
End Sub
 
Postado : 07/06/2017 11:14 am
(@cisneiro)
Posts: 0
New Member
Topic starter
 

Patropi, o tópico que você mencionou se refere a caixa de combinação dos controles activex e não a célula. E no meu caso seria impraticável inserir 528 caixas de combinação e colocar códigos em cada uma. preciso modificar o tamanho da fonte da lista de validação de dados como mencionei no tópico.

 
Postado : 07/06/2017 11:34 am
(@cisneiro)
Posts: 0
New Member
Topic starter
 

Basole, esse código serviria. mas como adapto ele para funcionar no intervalo $B$1:$B$528?

esse código funciona só em uma célula com lista de validação. como eu escrevo ele para funcionar em várias células da coluna B?

 
Postado : 07/06/2017 11:38 am
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

Cisneiro,

Boa tarde!

Assim.

 
Postado : 07/06/2017 11:42 am
(@cisneiro)
Posts: 0
New Member
Topic starter
 

Caramba Wagner, perfeito. resolveu o problema, agora posso jogar a lupa fora.
Muito obrigado

 
Postado : 07/06/2017 2:29 pm