Carregar imagem da planilha no Formulário Userform.

[MrPaul]

Prezados Amigos!

Criei um formulário no VBA e preciso que nele apareça o logo (imagem) da empresa. Porém gostaria que ele carregasse a imagem que estivesse em uma planilha oculta dentro do mesmo arquivo excel. Eu só consegui carregar imagem do endereço da minha pasta ("C:\nomedapasta\imagem.jpg") e desta forma se eu enviar o arquivo para outra pessoa a imgem não será carregada.

[karluxo]

divulguem os seus trabalhos!!!

[RafaVillani]

@MrPaul e @karluxo  vou deixar aqui duas soluções.

 

A primeira você deverá seguir todo o conteúdo deste site: https://excelevba.com.br/imagens-dentro-da-propria-planilha/

Prós: não é necessário salvar a imagem para carrega-la no objeto de imagem.

Contras: geralmente podem ocorrer conflitos no código, dependendo do seu tipo de sistema 32 ou 64 bits, código muito extenso.

 

A segunda seria este código: 

Dim Plan As String
Dim PastaNome As String
Dim oImage As Shape
Dim oSheet As Worksheet
Dim oTemp As ChartObject
Dim oChartArea As Chart

Plan = Plan1.Name
PastaNome = ThisWorkbook.Path & Application.PathSeparator & "imagem.gif" 'nome que será salvo a imagem

Set oSheet = Plan1
Set oImage = oSheet.Shapes.Item("Imagem") 'insira o nome da sua imagem

oImage.CopyPicture

Set oTemp = oSheet.ChartObjects.Add(100, 100, oImage.Width, oImage.Height)
Set oChartArea = oTemp.Chart
oTemp.Activate
With oChartArea
    .ChartArea.Select
    .Paste
    .Export Filename:=PastaNome, filtername:="GIF"
End With
UserForm1.Image1.Picture = LoadPicture(PastaNome)
oTemp.Delete

Este código copia e salva a sua imagem na pasta onde se encontra a pasta de trabalho, para depois carrega-la no objeto image.

Prós: código simples e bem curto, não sobrecarrega.

Contras: Não vejo contras neste código, pessoalmente prefiro ele.

 

RafaVillani