| Descricao: |
 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
|