AS EMPRESAS ESTÃO "DESESPERADAS" POR ESTE TIPO DE PROFISSIONAL... - VOCÊ É UM DELES?

MEGA FORMAÇÃO EM INFRAESTRUTURA DE TI - O Conhecimento que Vira Dinheiro - CLIQUE AQUI

Você está em: PrincipalArtigosSérie "Como Fazer": Menus no Excel › Lições : 07
Quer receber novidades e e-books gratuitos?
« Anterior Δ Página principal ¤ Índice Próxima »
Criando menus, barras de comando e botões personalizados no Excel usando VBA
Autor: Robert Friedrick Martim
Lição 006 - Colocando os FaceIDs

Nos exemplos anteriores em vários casos foi colocado um FaceID no botão. O único objeto do menu que pode receber a carinha é o botão.

O Excel possui centenas dessas carinhas que podem ser utilizadas em nossos projetos. A figura abaixo mostra uma planilha do Excel contendo diversas carinhas e suas respectivas referências numéricas :

Figura 0‑16

Além das carinhas disponibilizadas com o Excel podemos também utilizar as nossas carinhas personalizadas. Para utilizar as carinhas disponíveis com o Excel basta seguir os exemplos anteriores. Porém, para criar as nossas próprias carinhas precisamos desenvolver nosso código um pouco. A figura abaixo mostra uma barra de comando contendo FaceIDs personalizadas:

Figura 0‑17

FaceID personalizadas

Para se criar este tipo de temos que passar por dois processos:

  1. Copiar a figura
  2. Colar a figura no botão

Para iniciar vamos criar várias figuras em uma planilha. As figuras podem ser desenhadas (como no exemplo abaixo) ou importadas de arquivos qualquer.

Figura 6‑3

Acima, temos 7 figuras distintas que utilizaremos para criar a barra de comando personalizada como mostrado anteriormente. Para o que desejamos fazer, precisamos dar nomes que as figuras. O ideal é que os nomes sejam em séria. Neste caso específico, os nomes são fig1, fig2, fig3, fig4, fig5, fig6 e fig7.

Como o processo de copiar envolve a seleção do objeto a ser copiado, precisamos levar isso em conta no nosso código. Além disso, tendo em vista que copiamos estas figuras para uma planilha em nossa pasta de trabalho precisamos fazer referência a esta pasta também.

Sendo assim, o código que resolve nosso problema pode ser dado por:

Sub carinhasPersonalizadas()

   Dim cmdBar      As CommandBar

   Dim btn         As CommandBarButton

   Dim ws          As Worksheet

 

   On Error Resume Next

   CommandBars("Carinhas personalizadas").Delete

 

   Set ws = ThisWorkbook.Sheets("FaceID")

   Set cmdBar = CommandBars.Add(Name:="Carinhas personalizadas", _

    Position:=msoBarFloating)

 

For i = 1 To 7

    ws.Shapes("fig" & i).Select

    Selection.Copy

    Set btn = cmdBar.Controls.Add(Type:=msoControlButton)

     With btn

       .Caption = "Meu nome é fig" & i

       .Width = 30

       .PasteFace

     End With

   Next i

cmdBar.Visible = True

End Sub

O que o código está fazendo

Primeiramente precisamos definir os objetos. O objeto novo é o ws (worksheet – planilha). Uma vez que dimensionamos o objeto precisamos dizer ao programa para definir a ws como sendo a planilha FaceID.

O código continuar a se desenvolver como nos exemplos anteriores, isto é, damos um “set” no cmdBar e nos botões. A única diferença aqui é que ao dar o “set” no Caption do botão fazemos isso dentro de um loop.

Figura 0‑19

Esta planilha pode ser baixada no seguinte endereço:  www.j-walk.com/ss/excel/tips/faceidgrid.exe

« Anterior Δ Página principal ¤ Índice Próxima »
Quer receber novidades e e-books gratuitos?

MEGA FORMAÇÃO EM INFRAESTRUTURA DE TI

(Online, Vitalício, Prático e Atualizado)!

  • Chega de ser Ignorado pelo Mercado!

  • A vida não vai Melhorar Sozinha!

  • Quem domina infraestrutura, domina o Mercado.

  • Com esta Formação você vai Dominar o Conhecimento e torne-se o Profissional que as Empresas estão Buscando, "desesperadamente", mas não estão encontrando.

NÃO PROCURE VAGAS, SEJA PROCURADO!

 

Curso Completo de Excel - Curso Online com Certificado - 925 Vídeo Aulas - 22 Cursos - 120:42 horas

 

Para Todos os Detalhes, Acesse:

Curso Completo de Excel - Curso Online com Certificado - 925 Vídeo Aulas - 22 Cursos - 120:42 horas

 

https://juliobattisti.com.br/curso-infra-ti.asp

 

Contato: Telefone: (51) 3717-3796 | E-mail: webmaster@juliobattisti.com.br | Whatsapp: (51) 99627-3434

Júlio Battisti Livros e Cursos Ltda | CNPJ: 08.916.484/0001-25 | Rua Vereador Ivo Cláudio Weigel, 537 - Universitário, Santa Cruz do Sul/RS, CEP: 96816-208

Todos os direitos reservados, Júlio Battisti 2001-2026 ®

LIVRO: MACROS E PROGRAMAÇÃO VBA NO EXCEL 2016 - CURSO COMPLETO E PRÁTICO

DOMINE A PROGRAMAÇÃO VBA NO EXCEL - 878 PÁGINAS - CLIQUE AQUI