Saberexcel - o site de quem precisa Aprender Macros Microsoft Excel VBA
Esse macro(codigo) do Aplicativo Microsoft Excel VBA(Visual Basic Application), insere um shapes(Imagem) em uma autoforma com tamanho determinado. Observe que a primeira retira a linha de borda do shapes.
Sub Inserir_Imagem()
Dim vImagem As String
Dim Sh As Shape
Set Sh = Worksheets("Inserir_Imagem").Shapes.AddShape(msoShapeRectangle, 30, 40, 120, 25)
vImagem = ThisWorkbook.Path & "\Logo.JPG"
Sh.Fill.UserPicture vImagem
End Sub
'Sem as bordas
'Essa macro retira a linha de borda da imagem.
Sub Inserir_imagem_sem_linha()
Dim strImage As String
Dim Sh As Shape
Set Sh = Worksheets("Inserir_Imagem").Shapes.AddShape(msoShapeRectangle, 30, 40, 120, 125)
strImage = ThisWorkbook.Path & "\paisagem.JPG"
Sh.Line.Visible = msoFalse 'retira a linha da borda.
Sh.Fill.UserPicture strImage
End Sub
Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel
Baixe o exemplo de planilha contendo as macros acima
Excel planilha vba shapes imagem insere (60.31 KB)
Publicidade
Compre com segurança, garantia e ótimos preços 
