Escola Saberexcel VBA Estudos - site de quem precisa aprender Macros MS Excel VBA

Esse macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), insere uma determinada imagem em todas as folhas de planilha do livro ativo.
note:  o endereço do path(diretorio) da arquivo (jpg) imagem esta no proprio macro, então, faça a correção do caminho do do diretorio>
Espero que o exemplo possa lhe ser útil. Fique com Deus, Expedito Marcondes - 01-01-2012 : 10:29:00
'- - - - - - - - - - - - - - - - - - -'
Sub sbx_insere_imagem_todas_folhas_planihas()
i = InputBox(prompt:="Entre com a célula [ex: b8] ", Title:="Escola Saberexcel VBA Estudos®")
'se caso cancelar a operação nao ocorrerá erro:
If i = cancel Then
   Exit Sub
End If

On Error GoTo fim
   For n = 1 To Sheets.Count
       Sheets(n).Activate
       Range(i).Select
       ActiveSheet.Pictures.Insert ("C:\Programadores\saberExcel\vba\ATT00004.jpg")
   Next n
   exit sub
fim:
MsgBox ("ocorreu um erro verifique"), vbCritical, "Escola Saberexcel VBA Estudos®"
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.



  Baixe o exemplo de planilha contendo o macro acima:
Excel planilha vba shapes imagem todas planilha (112.64 KB)