Inserir Imagem tamanho da célula mesclada  [Resolvido]

Visual Basic for Aplication e macros no Excel.
Regras do fórum
Sua dúvida foi respondida? Marque como RESOLVIDO em seus tópicos, usando o botão com marca verde. Imagem

Inserir Imagem tamanho da célula mesclada

Mensagempor refernande » Qui Mar 14, 2019 8:07 am

Bom dia, preciso de uma macro para inserir imagens em umas planilhas, de forma que a imagem quando a imagem for inserida venha conforme a célula mesclada.
refernande
Membro
Membro
 
Mensagens: 34
Registrado em: Ter Jul 19, 2016 7:39 am
Has thanked: 9 times
Have thanks: 1 time

{ SO_SELECT }

Re: Inserir Imagem tamanho da célula mesclada

Mensagempor wagner » Qui Mar 14, 2019 9:22 am

refernande,

Bom dia!

Para fazer isso, primeiro você deve definir o tamanho das imagens de acordo com o tamanho das células mescladas. Depois, em cada célula mesclada você deverá inserir um objeto ActiveX Image no tamanho da célula mesclada. Finalmente, é só carregar as imagens que quiser dentro do objeto ActiveX Image.
Se a resposta foi útil para você, por gentileza, Amigo, clique na mãozinha ao lado direito da ferramenta CITAR, no canto superior direito.

Atenciosamente
Wagner Morel
Avatar do usuário
wagner
Moderador
Moderador
 
Mensagens: 5252
Registrado em: Sáb Out 20, 2012 12:49 pm
Localização: Fortaleza - CE
Has thanked: 93 times
Have thanks: 2246 times

Re: Inserir Imagem tamanho da célula mesclada

Mensagempor refernande » Qui Mar 14, 2019 9:38 am

Wagner,
Bom dia!

O Tamanho que a imagem fica na célula mesclada é de Altura: 8,37 Largura: 13,3, existe alguma forma de inserir de forma automática via Macro?
refernande
Membro
Membro
 
Mensagens: 34
Registrado em: Ter Jul 19, 2016 7:39 am
Has thanked: 9 times
Have thanks: 1 time

Re: Inserir Imagem tamanho da célula mesclada

Mensagempor wagner » Qui Mar 14, 2019 10:23 am

acredito que uma das formas é da maneira que lhe falei acima.
Se a resposta foi útil para você, por gentileza, Amigo, clique na mãozinha ao lado direito da ferramenta CITAR, no canto superior direito.

Atenciosamente
Wagner Morel
Avatar do usuário
wagner
Moderador
Moderador
 
Mensagens: 5252
Registrado em: Sáb Out 20, 2012 12:49 pm
Localização: Fortaleza - CE
Has thanked: 93 times
Have thanks: 2246 times

Re: Inserir Imagem tamanho da célula mesclada

Mensagempor Reinaldo » Qui Mar 14, 2019 11:11 am

Alem da sugestãodo colega Wagner, uma outra possibilidade:
A rotina abaixo inclui imagens, conforme a descrição/nome nas colunas "E/I/M" (por exemplo) nas celulas mescladas ao lado
Obs.:Neste exemplo as imagens devem estar no mesmo diretório da planilha.
Obviamente as imagens nãoestão anexas, separe e nomeia seus modelo/imagens
Código: Selecionar todos
Sub test()
Dim YourPic As Picture
Dim sPath As String, sDir As String, Img As String, ed As String
'Dim myPic As Variant
Dim myrng As Range, cel As Range
sPath = ThisWorkbook.Path 'Altere aqui para o seu caminho
'Acrescenta "\" ao caminho se necessario
If Right(sPath, 1) <> "\" Then
    sPath = sPath & "\"
    Else
    sPath = sPath
End If
Set myrng = Sheets("Arquivos").Range("A1:M18")
'Altera o diretorio de "trabalho" para o caminho sPath
ChDir sPath

sDir = Dir(sPath & "*.jpg")
Do While sDir <> ""
    Img = Left(sDir, Len(sDir) - 4)
    For Each cel In myrng
        If Img = cel.Value Then
            ed = cel.Offset(0, -2).Address
           
            With ActiveSheet.Range(ed)
                Set YourPic = .Parent.Pictures.Insert(sPath & sDir)
                YourPic.Top = .Top
                YourPic.ShapeRange.LockAspectRatio = msoFalse
                YourPic.ShapeRange.Height = 45.5
                YourPic.ShapeRange.Width = 95.5
                'YourPic.ShapeRange.ScaleWidth 0.45, msoFalse, msoScaleFromTopLeft
                'YourPic.ShapeRange.ScaleHeight 0.45, msoFalse, msoScaleFromTopLeft
                YourPic.Left = .Left
            End With
        End If
    Next
    sDir = Dir
Loop
End Sub
Você não está autorizado a ver ou baixar esse anexo.
Reinaldo
Gostou da resposta? Clique no ícone "Positivo" da mensagem!(ao lado de citar)
Avatar do usuário
Reinaldo
Expert
Expert
 
Mensagens: 4326
Registrado em: Sáb Dez 19, 2009 9:59 am
Localização: Garça - SP / SCS - SP
Has thanked: 194 times
Have thanks: 1992 times

Re: Inserir Imagem tamanho da célula mesclada

Mensagempor refernande » Qui Mar 14, 2019 11:59 am

Reinaldo,

Bom dia!

Sou leigo quanto vba mais não conseguir colocar pra roda o código enviado.

* Precisava de um código que quando click "Inserir Imagem", abrir a tela de procura selecionar a imagem e ela já vim na dimensão da célula mesclada ao lado.

Obrigado
Você não está autorizado a ver ou baixar esse anexo.
refernande
Membro
Membro
 
Mensagens: 34
Registrado em: Ter Jul 19, 2016 7:39 am
Has thanked: 9 times
Have thanks: 1 time

Re: Inserir Imagem tamanho da célula mesclada

Mensagempor refernande » Qui Mar 14, 2019 9:30 pm

Alguém pode me ajudar?
refernande
Membro
Membro
 
Mensagens: 34
Registrado em: Ter Jul 19, 2016 7:39 am
Has thanked: 9 times
Have thanks: 1 time

Re: Inserir Imagem tamanho da célula mesclada  [Resolvido]

Mensagempor Mauro Coutinho » Sex Mar 15, 2019 11:08 am

refernande, fiz uma adaptação rápida veja se ajuda:

Adatação Mauro Coutinho
FONTE - 'http://stackoverflow.com/questions/19448727/how-can-i-populate-an-excel-cell-with-an-image

Inserir Imagem em Celulas Mescladas
Inserir Imagem Range Mesclado.rar


Mauro Coutinho
Você não está autorizado a ver ou baixar esse anexo.
Mauro Coutinho - Moderador
São José dos Pinhais-Pr


Se a resposta foi últil para você, por gentileza, clique na mãozinha ao lado direito da sua tela. No canto superior.

For this post the author Mauro Coutinho thanked:
wagner (Sex Mar 15, 2019 2:19 pm)
Avatar do usuário
Mauro Coutinho
Ninja do Excel
Ninja do Excel
 
Mensagens: 3972
Registrado em: Sex Mar 26, 2010 9:24 pm
Localização: São José dos Pinhais - Pr
Has thanked: 183 times
Have thanks: 1475 times

Re: Inserir Imagem tamanho da célula mesclada

Mensagempor refernande » Sex Mar 15, 2019 11:24 am

Mauro Coutinho
Bom dia,

Funcionou perfeitamente Muito Obrigado.
refernande
Membro
Membro
 
Mensagens: 34
Registrado em: Ter Jul 19, 2016 7:39 am
Has thanked: 9 times
Have thanks: 1 time


Voltar para VBA & Macros

Quem está online

Usuários navegando neste fórum: Google Adsense [Bot] e 6 visitantes