Às vezes, pode ser necessário copiar todas as imagens incorporadas em uma planilha do Excel para um e-mail do Outlook. Neste momento, você pode ler este artigo. Aqui, apresentaremos 2 métodos rápidos.
É fácil copiar uma imagem de uma planilha do Excel para um e-mail do Outlook. Você pode apenas selecionar e pressionar “Ctrl + C” para copiar esta imagem. No entanto, se houver muitas imagens a serem copiadas, copiar uma a uma é sem dúvida uma maneira estúpida e tediosa. Portanto, aqui apresentaremos 2 maneiras muito mais eficazes. Agora continue lendo para obtê-los em detalhes.
Método 1: Selecionar e copiar todas as imagens na planilha do Excel manualmente
- Para comotart, abra a planilha específica do Excel.
- Em seguida, pressione o botão de tecla “F5”.
- Na caixa de diálogo pop-up “Ir para”, clique no botão “Especial”.
- Em seguida, na nova caixa de diálogo “Ir para Especial”, selecione “Objetos” e clique em “OK”.
- De uma só vez, todas as imagens incorporadas foram selecionadas.
- Agora, pressione “Ctrl + C” para copiar todas as imagens selecionadas.
- Depois disso, inicie o Outlook e crie um novo e-mail.
- Posteriormente, coloque o cursor no corpo da mensagem e pressione “Ctrl + V”.
- Imediatamente, todas as imagens copiadas serão coladas no corpo do e-mail, conforme a figura a seguir.
Método 2: Copie todas as imagens da planilha para o e-mail com VBA
- Para% start com, no Excel, pressione “Alt + F11” para acionar o editor Excel VBA.
- Em seguida, coloque o código VBA abaixo em um módulo ou projeto.
Sub CopyImagesToMail() Dim objWorksheet As Excel.Worksheet Dim objOutlookApp As Object Dim objMail As Object Dim objMailDocument As Object Dim objShape As Excel.Shape 'Obter a planilha específica Set objWorksheet = ThisWorkbook.Worksheets(1) 'Criar um novo e-mail Set objOutlookApp = CreateObject("Outlook.application") Set objMail = objOutlookApp.CreateItem(objOutlookAppobjMailItem) objMail.Display Set objMailDocument = objMail.GetInspector.WordEditor 'Copy images to the email For Each objShape In objWorksheet.Shapes objShape.Copy objMailDocument.Range(0, 0).Colar Next End Sub
- Em seguida, pressione a tecla “F5” na macro atual.
- Imediatamente, um novo e-mail será exibido.
- Aqui você pode receber um aviso, no qual deve clicar em “Permitir”.
- Eventualmente, todas as imagens na planilha específica do Excel estarão no corpo do e-mail, conforme mostrado na captura de tela a seguir.
Fique atento a todos os riscos do Outlook
O Outlook é suscetível à corrupção, pois há muitas ameaças ao seu redor, como vírus, falha do sistema, falhas de hardware e problemas de energia e assim por diante. Portanto, é necessário que você esteja atento a todos esses fatores perigosos. Em primeiro lugar, você nunca deve confiar prontamente em e-mails de remetentes desconhecidos. Além disso, é melhor manter o backup de seu arquivo do Outlook periodicamente. Por último, mas não menos importante, para corrigir PST arquivo a tempo, você deve preparar uma ferramenta de reparo de ponta, como DataNumen Outlook Repair.
Introdução do autor:
Shirley Zhang é especialista em recuperação de dados em DataNumen, Inc., líder mundial em tecnologias de recuperação de dados, incluindo SQL corrompido e produtos de software de reparo do Outlook. Para mais informações visite www.datanumen.com