PROMOÇÃO ESPECIAL – EXCEL VBA Adquirir o Material Didático Escola SaberExcel VBA Estudos
Planilha Excel VBA Shapes 27 carrega imagem dir se x ou y
Este procedimento Evento WorkSheetChange() da Folha de Planilha do Aplicativo Microsoft Excel VBA(Visual Basic Application), aprenderemos a como buscar e carregar uma imagem(foto) em um diretório, neste caso o Diretório do Livro Ativo, onde sensibilizaremos pelo Evento Change ao escrever uma letra “X” na coluna(B”), busca a imagem correspondente ao nome inserido na coluna(‘A’) e monta a imagem na Coluna(‘C’), porém se deletar o “x” a imagem da linha correspondente será deletada. Bons Estudos
‘//=======’ NO MODULO DE CÓDIGO DA FOLHA DE FOLHA DE PLANILHA: (PLAN1)
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 And Target.Count = 1 Then
Application.EnableEvents = False
If UCase(Target) = “X” Then
dLocal = ActiveWorkbook.Path
‘dLocal = “c:VBASaberexcel” ‘Se preferir outro diretório que não seja o Path do Wkb Ativo
NomeImagem = dLocal & “” & Target.Offset(0, -1) & “.jpg”
If Dir(NomeImagem) <> “” Then
On Error Resume Next
Shapes(Target.Offset(0, -1)).Delete
Target.Offset(0, 1).Select
mImagem = ActiveSheet.Pictures.Insert(NomeImagem).Select
Selection.Name = Target.Offset(0, -1)
Shapes(Target.Offset(0, -1)).Left = Target.Offset(0, 1).Left + 5
Shapes(Target.Offset(0, -1)).Top = Target.Offset(0, 1).Top + 2
Target.Select
Target.Offset(, 3).Interior.ColorIndex = 36
End If
Else
NomeImagem = dLocal & “” & Target.Offset(0, -1) & “.jpg”
On Error Resume Next
Shapes(Target.Offset(0, -1)).Delete
Target.Offset(, 3).Interior.ColorIndex = 35
End If
Application.EnableEvents = True
End If
End Sub
‘//=======’ MOSTRAR SHAPES(PROCEDIMENTO) OU IR PARA VBE
Sub sbx_visualizar_macro()
Dim Resposta As String
Resposta = MsgBox(“deseja visualizar(tela ou vbe)?” & vbCrLf & ” se SIM = Tela” & vbCrLf & ” se NAO = VBE”, vbYesNo, “Saberexcel – o site das macros”)
If Resposta = 6 Then
Plan1.Shapes(“sbx_proc”).Visible = True
Else
Application.Goto reference:=”Plan1.Worksheet_Change”
End If
End Sub
‘ocultar e ou mostrar shapes, obseve que esse macro ligado a um shapes(autoforma) verifica se esta oculto
‘ou não e mostra/oculta o shapes desejado.
Sub sbx_ocultar_shapes()
If Plan1.Shapes(“sbx_proc”).Visible = True Then
Plan1.Shapes(“sbx_proc”).Visible = False
Else
Plan1.Shapes(“sbx_proc”).Visible = True
End If
End Sub
Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola SaberExcel VBA Estudos® – Treinamentos com Macros, Fórmulas e Funções.
| Compre pelo PagSeguro | Compre pelo PayPal | |
 |
 |
|
| Material Didático: Curso Excel VBA Expert |
 |
 Baixe o exemplo de planilha contendo os macros acima: |
| << Verifique também a Caixa de Itens Excluídos >> |
 Planilha Excel VBA Shapes 27 busca imagem dir se x |
Planilha Excel VBA Shapes 27 busca imagem dir se x
