Czasami może być konieczne skopiowanie wszystkich obrazów osadzonych w arkuszu programu Excel do wiadomości e-mail programu Outlook. W tej chwili możesz przeczytać ten artykuł. Tutaj przedstawimy Ci 2 szybkie metody.
Kopiowanie obrazu z arkusza programu Excel do wiadomości e-mail programu Outlook jest łatwe. Możesz po prostu wybrać i nacisnąć „Ctrl + C”, aby skopiować ten obraz. Jednak jeśli jest wiele obrazów do skopiowania, kopiowanie jednego po drugim jest niewątpliwie głupim i żmudnym sposobem. Dlatego tutaj przedstawimy Ci 2 znacznie skuteczniejsze sposoby. Teraz czytaj dalej, aby uzyskać szczegółowe informacje.
Metoda 1: Wybierz i skopiuj wszystkie obrazy w arkuszu programu Excel ręcznie
- Na początek otwórz konkretny arkusz kalkulacyjny programu Excel.
- Następnie naciśnij klawisz „F5”.
- W wyskakującym oknie dialogowym „Idź do” kliknij przycisk „Specjalne”.
- Następnie w nowym oknie dialogowym „Przejdź do specjalnego” wybierz „Obiekty” i kliknij „OK”.
- Od razu zaznaczono wszystkie osadzone obrazy.
- Teraz naciśnij „Ctrl + C”, aby skopiować wszystkie wybrane obrazy.
- Następnie uruchom program Outlook i utwórz nową wiadomość e-mail.
- Później umieść kursor w treści wiadomości i naciśnij „Ctrl + V”.
- Natychmiast wszystkie skopiowane obrazy zostaną wklejone do treści wiadomości e-mail, jak na poniższym rysunku.
Metoda 2: Skopiuj wszystkie obrazy z arkusza roboczego do wiadomości e-mail za pomocą VBA
- Aby rozpocząć, w programie Excel naciśnij „Alt + F11”, aby uruchomić edytor VBA w programie Excel.
- Następnie umieść poniższy kod VBA w module lub projekcie.
Sub CopyImagesToMail()
Dim objWorksheet As Excel.Worksheet
Dim objOutlookApp As Object
Dim objMail As Object
Dim objMailDocument As Object
Dim objShape As Excel.Shape
'Get the specific worksheet
Set objWorksheet = ThisWorkbook.Worksheets(1)
'Create a new email
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).Paste
Next
End Sub
- Następnie naciśnij klawisz „F5” w bieżącym makrze.
- Od razu zostanie wyświetlony nowy e-mail.
- Tutaj możesz otrzymać ostrzeżenie, w którym powinieneś kliknąć „Zezwól”.
- Ostatecznie wszystkie obrazy w określonym arkuszu programu Excel będą znajdować się w treści wiadomości e-mail, jak pokazano na poniższym zrzucie ekranu.
Uważaj na wszystkie zagrożenia związane z programem Outlook
Program Outlook jest podatny na korupcję, ponieważ istnieje wokół niego zbyt wiele zagrożeń, takich jak wirusy, awarie systemu, awarie sprzętu, problemy z zasilaniem i tak dalej. Dlatego konieczne jest, abyś uważał na wszystkie te niebezpieczne czynniki. Przede wszystkim nigdy nie należy ufać wiadomościom e-mail od nieznanych nadawców. Poza tym lepiej okresowo twórz kopię zapasową pliku programu Outlook. Ostatni, ale nie mniej ważny, aby naprawić PST plik na czas, powinieneś przygotować najnowocześniejsze narzędzie do naprawy, takie jak DataNumen Outlook Repair.
Wprowadzenie autora:
Shirley Zhang jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym uszkodzony plik sql i oprogramowanie do naprawy programu Outlook. po więcej informacji odwiedź www.datanumen.com