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