Alterar tamanho da caixa (checkbox) no Excel

Planilhas, Arquivos, modelos, exemplos, apostilas, nosso datacenter!

Alterar tamanho da caixa (checkbox) no Excel

Mensagempor Basole » Qui Set 15, 2016 4:34 pm

As vezes as caixas de seleção (da CheckBox) é pequeno demais para o seu gosto e o Excel não permite alterar o tamanho da "caixinha".
No exemplo abaixo (img1) 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:
Código: Selecionar todos
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


img1:
Imagem

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).

img2:
Imagem

Imagem

Segue o link do exemplo (Big CheckBox) : https://goo.gl/VUHgMf
Imagem Click em Imagem se a resposta foi util!

For this post the author Basole thanked: 2
EdsonBR (Qui Set 15, 2016 5:59 pm) • Issamu (Qui Set 15, 2016 5:04 pm)
Avatar do usuário
Basole
Membro
Membro
 
Mensagens: 494
Registrado em: Sex Fev 01, 2013 11:42 am
Localização: Sampa
Has thanked: 38 times
Have thanks: 223 times

{ SO_SELECT }

Re: Alterar tamanho da caixa (checkbox) no Excel

Mensagempor Issamu » Qui Set 15, 2016 5:04 pm

Muito criativa a ideia!!
Eu só complemento com a necessidade de haver uma célula vinculada para poder fazer a interação do check box com a planilha. Ai eu sugiro adicionar no código a célula a ser vinculada, por exemplo:

Código: Selecionar todos
Private Sub Label1_Click()
    If Me.Label1.Caption = Chr(254) Then
        Me.Label1.Caption = Chr(168)
        [A1] = False 'Vinculo com a célula A1
    Else
        Me.Label1.Caption = Chr(254)
        [A1] = True 'Vinculo com a célula A1
    End If
End Sub
Rafael Issamu F. Kamimura
Moderador Oficial Microsoft Community - MCC (Contribuidor do Microsoft Community)
http://zip.net/bjrt0X - http://zip.net/bhrvbR
Foi útil? Clique na mãozinha
Conheça: http://excelmaniacos.com/

For this post the author Issamu thanked:
EdsonBR (Qui Set 15, 2016 5:59 pm)
Avatar do usuário
Issamu
Ninja do Excel
Ninja do Excel
 
Mensagens: 611
Registrado em: Qui Nov 20, 2014 12:07 pm
Has thanked: 17 times
Have thanks: 375 times

Re: Alterar tamanho da caixa (checkbox) no Excel

Mensagempor EdsonBR » Qui Set 15, 2016 5:58 pm

Parabéns, Basole e Issamu!

Muita criatividade mesmo...

E gostei também do "Checkbox tabajara" :lol:

E o Issamu passou a régua! Podem pedir música, hehehe.

Podemos usar livremente? Ou tem direitos autorais?
Imagem
Avatar do usuário
EdsonBR
Membro
Membro
 
Mensagens: 653
Registrado em: Qui Nov 05, 2015 11:43 pm
Localização: Joinville, SC
Has thanked: 139 times
Have thanks: 428 times


Voltar para Biblioteca

Quem está online

Usuários navegando neste fórum: Nenhum usuário registrado e 1 visitante