Basole
Geek
Registrado
945 Mensagens
596 Curtidas
É as vezes as caixas de seleção é pequeno demais para o seu gosto e o excel não permite alterar o tamanho da "caixinha".
No exemplo abaixo (img) eu simulei uma caixa de seleção, utilizando uma Label ActiveX (ou Rotulo se preferir ).
Alterei as propriedades BackStyle para Transparente e a fonte para Wingdings Tamanho 48 e o caracter (Alt+ 0168)
E para "marcar e Desmarcar" o meu Checkbox tabajara eu utilizei a macro abaixo:
[code=vb]
Private Sub Label1_Click()
If Me.Label1.Caption = Chr(254) Then
Me.Label1.Caption = Chr(168)
Else
Me.Label1.Caption = Chr(254)
End If
End Sub
[/code]
Anexos
GSilva7
Novo Membro
Registrado
40 Mensagens
5 Curtidas
Bacana @Basole . Gostaria deixá-lo menor que o tamanho normal. É só mudar os valores aí no código que consigo deixa-lo no tamanho que eu quiser?
Basole
Geek
Registrado
945 Mensagens
596 Curtidas
Não. o que altera o tamanho, é o tamanho da fonte.
Click no Botão Modo de Design na aba Desenvolvedor, com botao direito sobre a Label 1 (checkbox tabajara), em seguida propriedade, e Font e por ultimo selecione o tamanho da fonte desejada. (vide imgs abaixo).
GSilva7
Novo Membro
Registrado
40 Mensagens
5 Curtidas