Saberexcel - site das macros

Essa macro do Aplicativo microsoft Excel VBA(Visual Basic Application), abre a caixa de diálogo Abrir e insere um shapes(autoforma) na folha de planilha ligada automaticamente a um macro, como mostra macros abaixo.


Sub Abre_determinada_imagens()
On Error Resume Next ' caso nao selecione nada
vCaminho = Application.GetOpenFilename("Planilhas imagens - Saberexcel (*.jpg;*.jpeg;*.gif), *.jpg;*.gif;*.jpeg,Todas (*.*), *.*", Empty, "Adicionar Imagem", Empty, Empty)
ActiveSheet.Pictures.Insert(vCaminho).Select
Selection.ShapeRange.AlternativeText = vCaminho
Selection.Name = "sbx"
Selection.OnAction = "Clic_imagem"

End Sub

Sub Clic_imagem()
MsgBox ("Imagem inserida e ligada à um macro"), vbInformation, "Saberexcel - site das macros"
End Sub



Aprenda tudo sobre o Aplicativo microsoft Excel VBA(Visual Basic Application), praticando com os produtos didáticos Saberexcel



  Baixe o exemplo de planiha contendo os macros acima
Excel planilha vba shapes insere imagem liga macro (25.31 KB 2011)