Planilha Excel VBA barra ferramenta usando imagem

PROMOÇÃO ESPECIAL – EXCEL VBA Adquirir o Material Didático Escola SaberExcel VBA Estudos

Planilha Excel VBA barra ferramenta usando imagem Este Macros e procedimento do aplicativo MS Excel VBA(Visual Basic Application), cria uma barra de menu personalizada com botões e botão com imagem que chamam determinada macro, observe que o botão com imagem é formado
a partir da imagem inserida no Diretorio (Ativo) Path, e referenciada na linha de código.

PROMOÇÃO ESPECIAL – EXCEL VBA Adquirir Todo Material Didático Escola SaberExcel VBA Estudos

Set vImage = ActiveSheet.Pictures.Insert(ThisWorkbook.Path & “\chita.jpg”)

Sub auto_open()
Dim Barra As CommandBar
Dim Botao As CommandBarControl
On Error Resume Next
Set Barra = CommandBars.Add(Name:=”BarraBotoes”)
Barra.Visible = True

Set Botao = CommandBars(“BarraBotoes”).Controls.Add(Type:=msoControlButton)
Botao.Style = msoButtonIconAndCaption
Botao.TooltipText = “Escola Saberecel VBA Estudos®”
Botao.FaceId = 66
Botao.OnAction = “mensagem_saberexcel”
Botao.Caption = “Escola_Saberexcel”

Set Botao = CommandBars(“BarraBotoes”).Controls.Add(Type:=msoControlButton)
Botao.BeginGroup = True
Botao.TooltipText = “Imagem chita.jpg Diretorio’path ativo'”

Set vImage = ActiveSheet.Pictures.Insert(ThisWorkbook.Path & “\chita.jpg”)
vImage.Copy
Botao.PasteFace
vImage.Delete
Botao.OnAction = “sbx_imagem_chita”
End Sub
‘//========’
‘ao fechar o livro, deleta a barra personalizada “BarraBotoes”
Sub auto_close()
On Error Resume Next
CommandBars(“BarraBotoes”).Delete
End Sub
‘//========’ macro mensagem chamada pelo botão da barra personalizada.
Sub mensagem_saberexcel()
MsgBox “Aprenda Microsoft Excel VBA” & vbCrLf & “Treinamentos com Macros, Fórmulas e Funções”, vbInformation, “Escola Saberexcel VBA Estudos”
End Sub
‘//========’ macro chamada pelo botão imagem da chita.jpg,
Sub sbx_imagem_chita()
MsgBox “imagem da chita jpg, no diretorio da planilha”, vbInformation, “Escola Saberexcel VBA Estudos®”
End Sub