Problema com redimensionamento da ListBox

Text Box, Form's, rotinas, etc.
Regras do fórum
Sua dúvida foi respondida? Marque como RESOLVIDO em seus tópicos, usando o botão com marca verde. Imagem

Problema com redimensionamento da ListBox

Mensagempor Glaydistone » Sáb Fev 23, 2019 6:19 pm

Olá pessoal,

Estou com um problema de dimensionamento da minha ListBox, segue em as anexo imagens, uma imagem representa um ANTES e outra representa o DEPOIS (COM PROBLEMA).

Toda vez que eu abro o mesmo arquivo em máquinas diferentes ou com resolução de monitores diferente, a LISTBOX redimensiona automaticamente.

Existe alguma maneira de resolver isso via código ou alguma alteração em propriedades?

Obrigado.
Você não está autorizado a ver ou baixar esse anexo.
Se a resposta foi útil, click na mãozinha lado superior direito.
Espero revê-lo em outros tópicos por aqui.
Avatar do usuário
Glaydistone
Membro
Membro
 
Mensagens: 122
Registrado em: Sex Mar 30, 2012 12:32 pm
Localização: Petrolina - PE
Has thanked: 17 times
Have thanks: 30 times

{ SO_SELECT }

Re: Problema com redimensionamento da ListBox

Mensagempor wagner » Dom Fev 24, 2019 4:52 pm

Glaydistone,

Boa tarde!

Isso tem um nível de complexidade meio elevado pois você tem que trabalhar com a resolução dos monitores das máquinas em que pretende trabalhar com o arquivo. Acredito que deva ter na internet muitos exemplos que trabalham a questão da resolução do monitor.

Não sei bem como isso pode ser feito. Apenas a título de ajuda, veja um exemplo que peguei na internet que altera a resolução do monitor.
Você não está autorizado a ver ou baixar esse anexo.
Se a resposta foi útil para você, por gentileza, Amigo, clique na mãozinha ao lado direito da ferramenta CITAR, no canto superior direito.

Atenciosamente
Wagner Morel
Avatar do usuário
wagner
Moderador
Moderador
 
Mensagens: 4969
Registrado em: Sáb Out 20, 2012 12:49 pm
Localização: Fortaleza - CE
Has thanked: 80 times
Have thanks: 2100 times

Re: Problema com redimensionamento da ListBox

Mensagempor Mauro Coutinho » Qua Fev 27, 2019 4:23 pm

Glaydistone, pelo o que entendi, esse ListBox é um Controle ActiveX inserido na Aba e você quer que ele mantenha o tamanho original independente da resolução e não se ajustar à resolução. Eu pouco uso este controle, então o ideal seria enviar seu modelo compactado para analizar melhor.

[]s
Mauro Coutinho
Mauro Coutinho - Moderador
São José dos Pinhais-Pr


Se a resposta foi últil para você, por gentileza, clique na mãozinha ao lado direito da sua tela. No canto superior.
Avatar do usuário
Mauro Coutinho
Ninja do Excel
Ninja do Excel
 
Mensagens: 3941
Registrado em: Sex Mar 26, 2010 9:24 pm
Localização: São José dos Pinhais - Pr
Has thanked: 181 times
Have thanks: 1455 times

Re: Problema com redimensionamento da ListBox

Mensagempor Glaydistone » Sex Mar 08, 2019 7:48 pm

Olá Mauro, Wagner e amigos,

Encontrei uma solução provisória, até o momento está atendendo o problema do dimensionamento.

Só tem um problema no Range("C7").Select, a célula fica travada, gostaria de deixá-la selecionada e livre para percorrer outras células, é possível fazer isso?

Coloquei o código abaixo dentro da Worksheet (Plan4).

Código: Selecionar todos
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ListBox1.ColumnCount = 5
ListBox1.ColumnWidths = "130;130;90;80;90"
ListBox1.Height = "130"
ListBox1.IntegralHeight = False
ListBox1.Left = "40"
ListBox1.Top = "180"
ListBox1.Width = "530"
Range("C7").Select
End Sub


Obrigado pessoal.
Se a resposta foi útil, click na mãozinha lado superior direito.
Espero revê-lo em outros tópicos por aqui.
Avatar do usuário
Glaydistone
Membro
Membro
 
Mensagens: 122
Registrado em: Sex Mar 30, 2012 12:32 pm
Localização: Petrolina - PE
Has thanked: 17 times
Have thanks: 30 times

Re: Problema com redimensionamento da ListBox

Mensagempor wagner » Sáb Mar 09, 2019 9:23 am

Glaydistone,

Bom dia!

Basta acrescentar na linha de comando que carrega o seu formulário a constante Vbmodeless. Supondo que seu formulário se chama Userform1, a linha de comando deverá ser essa:
Código: Selecionar todos
Useform1.Show VbModeless
Se a resposta foi útil para você, por gentileza, Amigo, clique na mãozinha ao lado direito da ferramenta CITAR, no canto superior direito.

Atenciosamente
Wagner Morel
Avatar do usuário
wagner
Moderador
Moderador
 
Mensagens: 4969
Registrado em: Sáb Out 20, 2012 12:49 pm
Localização: Fortaleza - CE
Has thanked: 80 times
Have thanks: 2100 times

Re: Problema com redimensionamento da ListBox

Mensagempor Glaydistone » Sáb Mar 09, 2019 3:09 pm

Wagner boa tarde,

Meu conterrâneo como vai?

No meu caso tratasse de um ListBox, não é Userform.

Sobre meu ListBox está funcionando bem com o código descrito anteriormente.

Meu problema agora está no código abaixo, pois está ficando com a célula travada.
Código: Selecionar todos
Range("C7").Select

Eu preciso que este código fique realmente dentro do SelectionChange.

Obrigado por sua atenção.
Se a resposta foi útil, click na mãozinha lado superior direito.
Espero revê-lo em outros tópicos por aqui.
Avatar do usuário
Glaydistone
Membro
Membro
 
Mensagens: 122
Registrado em: Sex Mar 30, 2012 12:32 pm
Localização: Petrolina - PE
Has thanked: 17 times
Have thanks: 30 times

Re: Problema com redimensionamento da ListBox

Mensagempor wagner » Dom Mar 10, 2019 12:43 pm

Glaydistone,

Boa tarde!

Tudo tranquilo amigo (pelo menos nossa Fortaleza se acalmou mais. Kkkkk)

Beleza. A princípio imaginei que era um ListBox dentro de um userform. Nem vi que o código estava no evento da planilha. Já tentou usar um DoEvents dentro do evento, antes de começarem as linhas de código?

Realmente, ficou um pouco complexo pois quando você chama um Select de Range dentro do Evento SelectionChange, o código passa a ficar em loop. Lembrei-me agora que antes de utilizar o DoEvents você pode começar o código com a seguinte linha de comando:
Código: Selecionar todos
Application.EnableEvents = False
‘Aqui todo o código
Application.EnableEvents = True
Se a resposta foi útil para você, por gentileza, Amigo, clique na mãozinha ao lado direito da ferramenta CITAR, no canto superior direito.

Atenciosamente
Wagner Morel
Avatar do usuário
wagner
Moderador
Moderador
 
Mensagens: 4969
Registrado em: Sáb Out 20, 2012 12:49 pm
Localização: Fortaleza - CE
Has thanked: 80 times
Have thanks: 2100 times

Re: Problema com redimensionamento da ListBox

Mensagempor Glaydistone » Dom Mar 10, 2019 9:19 pm

Wagner boa noite,

Eu passei parte de minhas ferias em Fortaleza justamente no mês de janeiro quando a segurança pública passava por um caos. Graças a Deus a paz voltou.

Meu caro voltando para nosso post, gostaria de agradecê-lo mais uma vez por sua atenção.

Eu não domino bem VBA, rsrsrsr.

Caso possa me ajudar com sua dica de usar um DoEvents dentro do evento, eu ficaria bastante agradecido.

Um forte.
Se a resposta foi útil, click na mãozinha lado superior direito.
Espero revê-lo em outros tópicos por aqui.
Avatar do usuário
Glaydistone
Membro
Membro
 
Mensagens: 122
Registrado em: Sex Mar 30, 2012 12:32 pm
Localização: Petrolina - PE
Has thanked: 17 times
Have thanks: 30 times

Re: Problema com redimensionamento da ListBox

Mensagempor wagner » Seg Mar 11, 2019 7:11 pm

Glaydistone,

Tente primeiro com esse último código que te passei (Application.EnableEvents). Se não der certo, basta colocar a palavra chave DoEvents antes de começar qualquer código, dentro do evento SelectionChange.
Se a resposta foi útil para você, por gentileza, Amigo, clique na mãozinha ao lado direito da ferramenta CITAR, no canto superior direito.

Atenciosamente
Wagner Morel
Avatar do usuário
wagner
Moderador
Moderador
 
Mensagens: 4969
Registrado em: Sáb Out 20, 2012 12:49 pm
Localização: Fortaleza - CE
Has thanked: 80 times
Have thanks: 2100 times

Re: Problema com redimensionamento da ListBox

Mensagempor Glaydistone » Qua Mar 13, 2019 9:37 am

Wagner bom dia,

Tentei os dois procedimentos sugeridos. Infelizmente não deu certo.

Obrigado pela duas dicas.
Se a resposta foi útil, click na mãozinha lado superior direito.
Espero revê-lo em outros tópicos por aqui.
Avatar do usuário
Glaydistone
Membro
Membro
 
Mensagens: 122
Registrado em: Sex Mar 30, 2012 12:32 pm
Localização: Petrolina - PE
Has thanked: 17 times
Have thanks: 30 times

Próximo

Voltar para Formulários

Quem está online

Usuários navegando neste fórum: Google [Bot] e 1 visitante