Código para abrir caixa de diálogo "Inserir Imagem"

2024 - VBA & Macros

Post Recente por Fernando Fernandes 8 anos atrás

4 Posts

2 Usuários

0 Reactions

1,071 Visualizações

RSS

Fabio_R

(@fabio_r)

Posts: 2

New Member

Topic starter

Boa noite pessoal!

Por favor, estou com uma dúvida que não consigo solucionar de maneira alguma.
Preciso de um código no VBA que apenas abra a caixa de diálogo "Inserir Imagem", para eu escolher manualmente a imagem e colar em alguma célula do excel que eu escolher.
Pois as soluções que eu encontrei são apenas para colar no useform, e não é isso que eu preciso.

Desde já agradeço a atenção!

Postado : 09/05/2017 7:54 pm

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Se pesquisar no forum sobre "Inerir Imagem" encontrara vários tópicos a respeito, mas segue uma rotina que foi indicada no tópico viewtopic.php?f=10&t=24503:

Sub InsereImagem()
    Dim MySht As Worksheet
    Dim MyPic As Shape
    Dim Foto As Variant
    Dim Esquerda, Topo, Largura, Altura As Single

    Foto = Application.GetOpenFilename("Imagem (*.jpg;*.jpeg;*.gif;.*png), *.jpg;*.gif;*.jpeg;*.png,Todas (*.*), *.*", Empty, "Desenvolvido por.: Álvaro Horta e Suely Soares", Empty, Empty)
    
    Esquerda = ActiveCell.Left + 1
    Topo = ActiveCell.Top + 1
    Largura = ActiveCell.Width - 1
    Altura = ActiveCell.Height - 1

    If Foto <> False Then
        
        Set MySht = ActiveSheet
        
        Set MyPic = MySht.Shapes.AddPicture(Foto, True, True, Esquerda, Topo, Largura, Altura)
                    
    End If
    
End Sub

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 09/05/2017 9:07 pm

Fabio_R

(@fabio_r)

Posts: 2

New Member

Topic starter

Obrigado mesmo Mauro, e desculpe por não ter procurado conforme você informou, eu sou novo aqui no forum e estou me adaptando e eu estava precisando muito desse código.
Valeu

Postado : 10/05/2017 9:46 am