Escola Saberexcel VBA Estudos® – Treinamentos com Macros, Fórmulas e Funções
Excel VBA Shapes Planilha 54 imagem todos Autoformas
Estes macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), insere uma imagem em todos os Shapes existentes na folha de planilha, observe que existe uma linha de código que busca a imagem desejada no path(Diretório) da planilha Ativa. Também fiz um macro para deletar as imagens de todos os shapes para realização do teste do Usuário/Desenvolvedor.
Fique com Deus. Expedito Marcondes
.
‘//============’MACROS DO EXERCÍCIO PLANILHAS INTELIGENTES
Sub sbx_plano_fundo_todos_shapes()
vDiretorio = ActiveWorkbook.Path
For Each vAutoformas In ActiveSheet.Shapes
vAutoformas.Select
Selection.ShapeRange.Fill.UserPicture vDiretorio & “collor.jpg”
Next vAutoformas
[d20].Select
End Sub
‘//===’
Sub sbx_plano_fundo_limpar()
vDiretorio = ActiveWorkbook.Path
For Each vAutoformas In ActiveSheet.Shapes
vAutoformas.Select
Selection.ShapeRange.Fill.UserPicture vDiretorio & “branco.jpg”
Next vAutoformas
[d20].Select
End Sub
‘//===’MACRO COM CONSTANTE PARA SEU TREINAMENTO (MSGBOX PERSONALIZADA)
‘essas declarações (‘Global’) não tem nada a ver com os macros exercicios shapes,
‘são apenas ilustrativa para o seu treinamento, um aprendizado a mais.
‘ao longo de nosso aprendizado vamos incrementando todo conhecimento possível
‘//===Inseri as constantes em um modulo separada na folha de planilha, mas poderá ser no mesmo módulo.
Global Const s = “Aprenda Microsoft Excel VBA”
Global Const a = “Praticando com Macros Microsoft Excel VBA”
Global Const b = “Video Aulas, + 20.000 Planilhas, Apostilas e Ebooks”
Global Const e = “Planilhas Inteligentes, Estudos das Categorias do Excel”
Global Const r = “Fique com Deus, Expedito Marcondes.”
Global Const t = “Escola SaberExcel VBA Estudos®”
Global Const u = “Treinamentos com Macros, Fórmulas e Funções”
Global Const d = vbInformation
‘mensagem personalizada com declarações Constante Global.
‘Sub sbx_mensagem()
MsgBox s & vbCrLf & _
a & vbCrLf & _
b & vbCrLf & _
e & vbCrLf & _
“————-” & vbCrLf & _
r & vbCrLf & _
“//==========='” & vbCrLf & _
t, d, u
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: |
Planilha Excel VBA Shapes 54 imagem todos shapes |
<< EMAIL: CAIXA DE ITENS EXCLUIDOS – CASO NÃO ESTEJA EM SUA CAIXA DE ENTRADA >> |
Planilha Excel VBA Shapes 54 imagem todos shapes