Boa tarde, valzito
Primeiro o nosso amigo klarc28 está corretíssimo, não é só colocar o arquivo exemplo, mas precisa
estar completo com todos os botões, userforms e outros que estão relacionados a suas dúvidas..
Não entendi o que quer... "salvar a Caption..." e o "ao fechar o aplicativo a alteração seja mantida no form1" do que
se trata?? mudar um "nome" de algum comando, botão ou outro (explique melhor o que quer) e sem o userform2 fica
mais difícil ....
Para o erro "O item especificado não foi encontrado" quando tu clica no Botão de comando1
(no UserForm1) foi sanado, para a palavra da Planilha / Sheet estar incompleta - você tinha colocado
"ut" em vez de "utg" que é o correto - agora para o Shapes tu tens que colocar como está na Planilha
utg, então não seria "imagem 1" e sim "IMAGEM 1" que é o correto; veja a linha que está agora
corrigida, conforme abaixo:
Worksheets("utg").Shapes("IMAGEM 1").CopyPicture
Outra forma de representar a Planilha sem o Nome dela, como para a linha acima "utg" seria:
Plan1.Shapes("IMAGEM 1").CopyPicture
Abaixo o arquivo exemplo "Exemplo Solucao 1 Caption LB.Zip" com as alterações do erro descritas acima:
https://www.sendspace.com/file/g7xf2f
Verifique e me informe se foi sanado o erro ..
Aguardando sua resposta (com o arquivo exemplo completo) e seu Feed Back (é muito importante)... se foi útil, não esqueça de clicar na "mãozinha"
LaerteB
Postado : 24/11/2019 1:55 pm