Boa noite, valzito

Uma observação muito importante, quando tu colocares um arquivo exemplo informe os dados que
são pertinentes ao seu projeto (informe dados fictícios) e o seu código que se relaciona(m) com
a(s) sua(s) questão(ões); pois no seu arquivo exemplo não existia dados (na Planilha1), somente
um formulário com os botões e um campo image (sem nenhum código).

Só continha códigos que não estavam relacionados a este formulário.. eu tive que criar do "zero", tanto
os dados como os códigos ...

Normalmente nem vejo (praticamente todos aqui fariam o mesmo)quando se encontra desta forma o
arquivo exemplo, pelo fato que gasta muito tempo para criar do "zero" (aqui ajudamos no nosso
tempo livre); mas desta vez eu deixei passar ..

Agora vamos a sua questão; estou disponibilizando um arquivo exemplo "Solucao 1.2 LB.Zip" no
link abaixo, com a solução para o seu problema:

https://www.sendspace.com/file/lis608

Na coluna "E" fica o endereço das imagens - um exemplo "C:UsersUsuarioDocumentsfigura1.jpg", e você
pode alterar para o endereço que seja o mais adequado ao seu projeto (não coloque as imagens diretamente na
sua planilha, para não ficar "muito pesado" - é só um conselho).

Verifique se era isso queria ...

Aguardando sua resposta e seu Feed Back (é muito importante)... se foi útil, não esqueça de clicar na "mãozinha"

LaerteB

Bom dia Laerte,

Primeiramente te peço mil desculpas, pois por ter pouquíssimo conhecimento em VBA não tinha noção do tamanho dos códigos nem tampouco a trabalheira que daria.

Quanto aquele módulo, eu usava aqui para um outro projeto em que as imagens eram carregadas diretamente das abas da planilha usando somente commandbutons, por isso imaginei que seria útil.

Quanto ao que você me mandou, observei que tem textbox, o que não teria nenhuma utilidade para o que quero. Na verdade seria somente carregar
as imagens diretamente da planilha conforme mostrei no arquivo google drive. Como são poucas imagens, acho que não vai pesar tanto o arquivo.

Dito isto, pergunto:
O que precisaria acrescentar e ou tirar para que funcione nas condições mencionei?

Obrigado pela atenção e mais uma vez peço desculpas pelo ocorrido.

abç

Boa noite, valzito

Não precisa pedir desculpas, como está começando em VBA é normal ter dificuldades; mas coloquei
aquelas informações para seu beneficio e que na próxima vez tu insiras dados nas planilhas ...

Em referencia aquele módulo, andei analisando e utiliza API que eu costumo não utilizar...

Estou enviando um novo arquivo exemplo "Solucao 1.3 LB e Informacoes sobre Image1.Zip" com
imagens na "Plan1" (somente para exemplificar, mude de acordo com o seu projeto) e também
um arquivo .jpg com informações pertinentes ao campo "Image1"; abaixo segue o Link:
https://www.sendspace.com/file/44gmjd

Vamos a alguns adendos, primeiro os textbox são um complemento que não podem ser tirados
do UserForm1 (observe que não estão interferindo no seu formulário, pois estão invisíveis para o
usuário e não ocupam quase nada de espaço), com eles os códigos ficaram mais enxutos e eficazes ...

Agora na Plan1 tem a coluna "E" com as imagens (coloque as imagens do seu projeto) e a coluna "F" com o nome das
imagens, por favor não esqueça de colocar na coluna "F" os nomes iguais de cada figura correspondente que fica no
campo "caixa de nome", do lado esquerdo acima das colunas "A" e "B" - estes nomes são essenciais para carregamento
das imagens ...

Não deixe de ver o outro arquivo .jpg que se encontra também no .Zip, tem informações que são úteis ..

Verifique e veja se agora está ok ...

Qualquer coisa estamos aqui

Aguardando sua resposta e seu Feed Back (é muito importante)... se foi útil, não esqueça de clicar na "mãozinha"

LaerteB

Boa Noite Laerte,

Ficou, exatamente como eu queria. Apenas as imagens carregam sem foco, não sei se você observou, mas funcionou tudo ok. Talvez eu tenha que fazer um novo post para buscar ajuda para acrescentar mais algumas coisas e tal, mas ficou excelente. Muitíssimo obrigado pelo empenho em ajudar.
Fica na paz irmão.

Boa noite, valzito

Fiquei muito feliz que está como queria ...

Em relação as imagens carregarem sem foco, provavelmente é por causa das medidas delas na planilha; para
ficarem mais "nítidas" terá que ser imagens maiores ou iguais no tamanho da caixa de imagens do formulário,
faça o teste e veja se resolve ...

Em relação a buscar ajuda sobre quesitos diferentes a esse Tópico, é melhor mesmo abrir outro com as
suas novas dúvidas (sempre informando com um arquivo exemplo) que iremos analisar ...

Verifique se melhora o resultado das imagens com a informação acima citada, e me diga se ajudou ...

Aguardando sua resposta e seu Feed Back(é muito importante) ... se foi útil, não esqueça de clicar na "mãozinha"

LaerteB

Bom dia Laerte,
As imagens do projeto seria, no geral, print de tabelas alfanuméricas. Eu tentei conforme você mencionou e não consegui. Poderia mandar um exemplo prático?

abç

Boa tarde, valzito

Verifiquei o seu caso novamente e fiz pequenas alterações, para ficar de acordo com o que pediu ...

Vamos as alterações primeiro;.. você terá que alterar para esses números onde estão o trecho
deste código abaixo:

  Set imgchart = Sheets("Plan1").ChartObjects.Add(0, 0, 204, 170)
    imgchart.Name = "testeimg"
    imgchart.Width = 200  'antes estava como 100
    imgchart.Height = 170  'antes estava como 100

Conforme a alteração acima, o enquadramento da figura no campo imagem "Image1" que se encontra no
UserForm1 ficará OK, mas tem que ser alterado nas propriedades da "Image1" no campo "PictureSizeMode"
de "1 - fmPictureSizeModeStretch" para "0 - fmPictureSizeModeClip" (conforme arquivos do Link
com informação visual) ..

Agora em relação as "Figuras" ou o "print de tabelas alfanuméricas" terá que seguir como informo nos
arquivos do Link, que explica todos os parâmetros de resolução, tamanho, dimensões e de como
será o tamanho da imagem inserida na Planilha ..

Para verificar estas informações da "Figura" pode abrir qualquer editor de imagens ou com o botão
direito do mouse sobre a "Figura", clicando em Propriedades / Detalhes, rolando a barra de rolagem
até Imagem - conterá todas as informações que precisa ..

Abaixo o Link que contem o arquivo "Informacoes sobre dimensoes das Figuras e propriedade da Image1.Zip"
com os arquivos de imagem informativos:

https://www.sendspace.com/file/vey5zi

Agora as imagens carregam com nitidez e enquadradas

Verifique se está tudo de acordo , não esqueça de me responder ..

Aguardando sua resposta e seu Feed Back(é muito importante) ... se foi útil, não esqueça de clicar na "mãozinha"

LaerteB

Laerte, agora deu certo. Ficou top!!

Parabéns pelo empenho em está sempre ajudando aos que leigos no assunto assim como eu

Obrigado amigo, fica na paz!!

Bom dia, valzito

Obrigado a ti ...

Legal que conseguiu resolver a suas questões, fiquei feliz que fui de alguma ajuda ..

Agora que já foi resolvido todas as suas questões de seu Tópico, é melhor marcar como resolvido clicando
no botão V (em Verde) que fica do lado da ferramenta Editar; na mensagem que resolveu o seu problema

Qualquer coisa estamos aqui para ajudá-lo

Abraços

LaerteB