Inserir IMG em Form...
 
Notifications
Clear all

Inserir IMG em Formulário

2 Posts
1 Usuários
0 Reactions
1,244 Visualizações
(@ccaciano)
Posts: 0
New Member
Topic starter
 

Na ABA FERRAMENTA eu tenho uma imagem, na qual eu defini um nome e pra ela através do GERENCIADOR DE NOMES.

Preciso colocar essa imagem em um formulário no qual a mesma seja carregada pela referencia criada no Gerenciador de Nomes.

 
Postado : 07/12/2016 12:41 pm
(@ccaciano)
Posts: 0
New Member
Topic starter
 

Consegui encontrar uma solução.

Eu criei um Gráfico sem Range, então o mesmo aparece em branco.
Então no menu Formatar eu defini uma imagem de fundo e usei o código abaixo para salvar a imagem em um destino e carregar a mesma no formulário.
Dessa forma não é necessário ter arquivos de imagem adicionais em diretórios específicos.

Sub icone_x()

Dim sRange As Range
'Transfere para a variável Gráfico o primeiro gráfico da planilha
Set ico = fiscal.Sheets("FERRAMENTA").ChartObjects(1).Chart

'Cria o caminho e nome para salvamento do arquivo JPEG
ArquivoX = "c:tempicone.jpeg"

'Salva o gráfico como arquivo JPEG
ico.Export Filename:=ArquivoX, Filtername:="JPEG"

'Carrega o gráfico salvo para o Controle Image1 do Userform
xAlterar.Image.Picture = LoadPicture(ArquivoX)

End Sub
 
Postado : 08/12/2016 12:52 pm