Se entendi, você quer que ao abrir o formulario a figura vá para a planilha sem ter de clicar no botão para enviar, se for isto, no modelo que o basole enviou faça as seguinte alterações :
Desabilite as linhas conforme abaixo, pois ela limpa a figura que estava, e se tiver habilitada a imagem nao será enviada para a planilha qdo abrir o formulário.
Private Sub CommandButton1_Click()
Modify_Family.Show vbModeless
' Set Image1.Picture = Nothing
' On Error Resume Next
' Shapes("PicInL7").Delete
End Sub
Troque a que Inicializa o form pela a abaixo :
Private Sub UserForm_Initialize()
Left = Application.UsableWidth - Width
'Envia a imagem para a planilha
Set Sheets("Print Sheet").Image1.Picture = Modify_Family.Image1.Picture
End Sub
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 28/03/2016 7:50 pm