2 brza načina za kopiranje svih slika iz Excel radnog lista u Outlook e-poštu

Ponekad ćete možda morati da kopirate sve ugrađene slike u Excel radnom listu u Outlook e-poštu. U ovom trenutku možete pročitati ovaj članak. Ovdje ćemo vam predstaviti 2 brze metode.

Lako je kopirati sliku iz Excel radnog lista u Outlook e-poštu. Možete samo odabrati i pritisnuti “Ctrl + C” da kopirate ovu sliku. Ipak, ako postoji mnogo slika za kopiranje, kopiranje jedne po jedne je nesumnjivo glup i zamoran način. Stoga ćemo vam ovdje predstaviti 2 mnogo efikasnija načina. Sada čitajte dalje da biste ih detaljno upoznali.

Metoda 1: Ručno odaberite i kopirajte sve slike u radnom listu Excel

1. Za početak, otvorite određeni Excel radni list.
2. Zatim pritisnite dugme “F5”.
3. U iskačućem dijaloškom okviru „Idi na“ kliknite na dugme „Posebno“.
4. Zatim, u novom dijaloškom okviru "Idi na posebno", odaberite "Objekti" i kliknite "U redu".
5. Odjednom su odabrane sve ugrađene slike.
6. Sada pritisnite “Ctrl + C” da kopirate sve odabrane slike.
7. Nakon toga pokrenite Outlook i kreirajte novu e-poštu.
8. Kasnije stavite kursor u tijelo poruke i pritisnite “Ctrl + V”.
9. Odmah će sve kopirane slike biti zalijepljene u tijelo e-pošte, kao na sljedećoj slici.

Metoda 2: Kopirajte sve slike sa radnog lista u e-poštu pomoću VBA

1. Za početak, u Excelu pritisnite "Alt + F11" da biste pokrenuli Excel VBA editor.
2. Zatim stavite VBA kod ispod u modul ili projekat.

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

3. Zatim pritisnite taster “F5” u trenutnom makrou.
4. Odjednom će se prikazati nova e-pošta.
5. Ovdje možete dobiti upozorenje u kojem trebate kliknuti na “Dozvoli”.
6. Na kraju će sve slike u određenom Excel radnom listu biti u tijelu e-pošte, kao što je prikazano na sljedećem snimku ekrana.

Pazite na sve rizike oko Outlooka

Outlook je podložan korupciji jer postoji previše prijetnji oko njega, kao što su virus, sistemski kvar, hardverske greške i problemi s napajanjem itd. Stoga je neophodno da pripazite na sve ove opasne faktore. Prije svega, nikada ne biste trebali lako vjerovati e-porukama nepoznatih pošiljatelja. Osim toga, bolje bi bilo da povremeno pravite sigurnosnu kopiju svoje Outlook datoteke. Na kraju, ali ne i najmanje važno, kako bi popraviti PST fajl na vreme, trebalo bi da pripremite najsavremeniji alat za popravku, npr DataNumen Outlook Repair.

Uvod za autora:

Shirley Zhang je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući korumpiran sql i Outlook softverski proizvodi za popravku. Za više informacija posjetite www.datanumen.com