Notifications

Clear all

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

2024 - VBA & Macros

Post Recente por Cisneiro 8 anos atrás

7 Posts

4 Usuários

0 Reactions

5,319 Visualizações

RSS

Cisneiro

(@cisneiro)

Posts: 75

Trusted 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

Fernando Fernandes

(@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

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 07/06/2017 11:09 am

Basole

(@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

Click em se a resposta foi util!

Postado : 07/06/2017 11:14 am

Cisneiro

(@cisneiro)

Posts: 75

Trusted 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

(@cisneiro)

Posts: 75

Trusted 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

(@wagner-morel-vidal-nobre)

Posts: 0

Illustrious Member

Cisneiro,

Boa tarde!

Assim.

planilhando 6.zip

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

Postado : 07/06/2017 11:42 am