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

Ponekad ćete možda trebati kopirati sve ugrađene slike u Excel radni list 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 s 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 koje treba kopirati, kopiranje jedne po jedne nedvojbeno je glup i zamoran način. Stoga ćemo vam ovdje predstaviti 2 mnogo učinkovitija načina. Sada čitajte kako biste ih detaljno upoznali.

Metoda 1: Odaberite i ručno kopirajte sve slike u radni list programa Excel

1. Za početak, otvorite određeni Excel radni list.
2. Zatim pritisnite tipku "F5".
3. U skočnom dijaloškom okviru "Idi na" kliknite gumb "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” za kopiranje svih odabranih slika.
7. Nakon toga pokrenite Outlook i kreirajte novu e-poštu.
8. Kasnije postavite 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 s radnog lista u e-poštu pomoću VBA

1. Za početak, u Excelu pritisnite "Alt + F11" za pokretanje Excel VBA editora.
2. Zatim stavite donji VBA kod u modul ili projekt.

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 tipku “F5” u trenutnoj makronaredbi.
4. Odmah će se prikazati nova e-pošta.
5. Ovdje možete dobiti upozorenje u kojem biste trebali kliknuti "Dopusti".
6. Na kraju će sve slike u određenom Excel radnom listu biti u tijelu e-pošte, kao što je prikazano na sljedećoj snimci zaslona.

Pripazite na sve rizike oko Outlooka

Outlook je osjetljiv na korupciju jer oko njega ima previše prijetnji, poput virusa, kvara sustava, hardverskih grešaka, problema s napajanjem i tako dalje. Stoga je potrebno pripaziti na sve te opasne čimbenike. Prije svega, nikada ne biste trebali spremno vjerovati e-porukama nepoznatih pošiljatelja. Osim toga, bilo bi bolje da povremeno izrađujete sigurnosnu kopiju Outlook datoteke. Na kraju, ali ne manje važno, kako bi popraviti PST datoteku na vrijeme, trebali biste pripremiti vrhunski alat za popravak, npr DataNumen Outlook Repair.

Uvod za autora:

Shirley Zhang stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući pokvaren sql i softverske proizvode za popravak Outlooka. Za više informacija posjetite www.datanumen.com