Note: The other languages of the website are Google-translated. Back to English
Masuk  \/ 
x
or
x
Daftar  \/ 
x

or

Gambar Excel: Sisipkan, ubah, hapus beberapa gambar atau gambar di Excel

Dalam tutorial ini, kita akan berbicara tentang cara memasukkan beberapa gambar ke dalam sel dan mengubah ukurannya agar sesuai dengan ukuran sel, cara memasukkan gambar ke dalam komentar, header atau footer, cara memasukkan gambar dari URL, dan sebagainya. Ini juga menjelaskan cara menyimpan, mengganti nama, menghapus banyak gambar yang Anda butuhkan di Excel.

Daftar Isi:

1. Sisipkan gambar atau gambar ke dalam lembar kerja dari komputer, web atau OneDrive

2. Kunci gambar atau gambar ke dalam sel Excel

3. Sisipkan beberapa gambar atau gambar di Excel

4. Sisipkan beberapa gambar atau gambar yang sesuai dengan namanya ke dalam sel

5. Sisipkan atau tampilkan gambar atau gambar dari URL

6. Sisipkan atau tampilkan gambar atau gambar dari jalur file

7. Sisipkan gambar atau gambar ke dalam komentar

8. Sisipkan gambar atau gambar ke dalam header atau footer

9. Sisipkan gambar atau gambar yang sama ke dalam beberapa lembar kerja

10. Sisipkan gambar atau gambar di balik isi sel

11. Masukkan berbagai sel sebagai gambar atau format gambar di Excel

12. Sisipkan gambar atau gambar berdasarkan nilai sel secara dinamis

13. Ekspor atau simpan semua gambar atau gambar dari file Excel

14. Ubah nama gambar dalam folder berdasarkan daftar sel di Excel

15. Memperbesar atau memperkecil gambar saat diklik

16. Gambar selalu mengambang saat menggulir lembar kerja

17. Hapus gambar atau gambar dari lembar aktif / rentang sel


Sisipkan gambar atau gambar ke dalam lembar kerja dari komputer, web, atau OneDrive

Semua versi Excel mendukung untuk menyisipkan gambar atau gambar dari komputer, tetapi, jika Anda ingin menyisipkan gambar dari web atau OneDrive, Anda harus memiliki Excel 2013 dan versi yang lebih baru.

Sisipkan gambar atau gambar dari komputer

Sangat mudah bagi kebanyakan dari kita untuk memasukkan gambar yang disimpan di komputer ke dalam lembar kerja. Harap lakukan seperti ini:

1. Di lembar kerja, klik tempat Anda ingin menyisipkan gambar.

2. Lalu klik Menyisipkan > Film > Alat ini, lihat tangkapan layar:

3. Di muncul keluar Sisipkan Gambar jendela, buka folder yang berisi gambar, lalu tahan Ctrl kunci untuk memilih gambar yang ingin Anda masukkan, lihat tangkapan layar:

4. Lalu klik Menyisipkan tombol, gambar yang dipilih telah dimasukkan ke dalam lembar. Sekarang, Anda dapat menyesuaikan atau mengubah ukuran gambar ke sel yang Anda butuhkan, lihat tangkapan layar:


Sisipkan gambar atau gambar dari web atau OneDrive

Jika Anda memiliki Excel 2013 atau versi yang lebih baru, Anda dapat memasukkan gambar dari web atau One Drive, lakukan seperti ini:

1. Di lembar kerja, klik tempat Anda ingin menyisipkan gambar.

2. Lalu klik Menyisipkan > Film > Gambar online, lihat tangkapan layar:

3. Jendela berikut akan ditampilkan. Dalam Gambar online bagian, ketikkan apa yang Anda cari ke dalam kotak teks, lalu tekan Memasukkan kunci. Semua gambar yang sesuai dicari sekaligus, lihat tangkapan layar:

4. Lalu, pilih gambar yang Anda inginkan, lalu klik Menyisipkan tombol. Setelah menyisipkan gambar, harap ubah ukuran atau sesuaikan gambar ke posisi yang Anda butuhkan.

Tip:

1. Untuk mencari beberapa gambar tertentu, Anda dapat memfilter gambar yang ditemukan berdasarkan ukuran, jenis, tata letak, atau warna sesuai kebutuhan.

2. Selain menyisipkan gambar dari pencarian Bing, Anda juga bisa menyisipkan gambar yang disimpan di OneDrive Anda. Di jendela di bawah ini, klik onedrive di bagian kiri bawah jendela, lalu pilih gambar yang ingin Anda sisipkan.


Kunci gambar atau gambar ke dalam sel Excel

Biasanya, setelah memasukkan gambar ke dalam sel, ketika Anda mengubah ukuran, memfilter atau menyembunyikan sel yang berisi gambar, gambar tidak akan diubah ukurannya atau disaring bersama dengan sel itu seperti yang ditunjukkan pada demo di bawah ini.

Dalam hal ini, Anda harus mengunci gambar ke dalam sel, sehingga dapat diubah ukurannya, disaring atau disembunyikan bersama dengan sel, lakukan dengan langkah-langkah berikut:

1. Klik untuk memilih satu gambar dan tekan Ctrl + A untuk memilih semua gambar di lembar kerja.

2. Kemudian, klik kanan satu gambar, dan pilih Ukuran dan Properti dari menu konteks, lihat tangkapan layar:

3. Di diperluas Format Gambar panel, di bawah properti bagian, pilih Pindahkan dan ukur dengan sel opsi, lihat tangkapan layar:

4. Kemudian, tutup Format Gambar panel. Sekarang, saat mengubah ukuran, memfilter, atau menyembunyikan sel, gambar juga akan dipindahkan, difilter, atau disembunyikan.


Sisipkan beberapa gambar atau gambar di Excel

Terkadang, Anda mungkin perlu memasukkan beberapa gambar ke dalam sel dan mengubah ukurannya agar sesuai dengan ukuran sel secara otomatis tanpa mengubah ukuran dan menyeret gambar. Di sini, saya akan memperkenalkan dua cara untuk menyelesaikan pekerjaan ini di Excel.

Masukkan beberapa gambar atau gambar dan ubah ukurannya agar sesuai dengan sel dengan kode VBA

Kode VBA berikut dapat membantu Anda memasukkan beberapa gambar ke dalam sel berdasarkan ukuran sel. Harap lakukan seperti ini:

1. Sesuaikan ukuran sel yang Anda inginkan untuk meletakkan gambar, lalu pilih sel.

2. Lalu, tahan ALT + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.

3. Klik Menyisipkan > Modul, dan tempelkan makro berikut di file Modul jendela.

Kode VBA: Sisipkan beberapa gambar berdasarkan ukuran sel

Sub InsertPictures()
'Updateby Extendoffice
Dim PicList() As Variant
Dim PicFormat As String
Dim Rng As Range
Dim sShape As Shape
On Error Resume Next
PicList = Application.GetOpenFilename(PicFormat, MultiSelect:=True)
xColIndex = Application.ActiveCell.Column
If IsArray(PicList) Then
    xRowIndex = Application.ActiveCell.Row
    For lLoop = LBound(PicList) To UBound(PicList)
        Set Rng = Cells(xRowIndex, xColIndex)
        Set sShape = ActiveSheet.Shapes.AddPicture(PicList(lLoop), msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height)
        xRowIndex = xRowIndex + 1
    Next
End If
End Sub

4. Lalu tekan F5 kunci untuk menjalankan kode ini. Dalam Buka jendela, pilih folder yang berisi gambar, lalu pilih gambar yang ingin Anda sisipkan, lalu klik Buka tombol, dan semua gambar yang dipilih telah dimasukkan ke dalam pilihan Anda berdasarkan ukuran sel. Lihat tangkapan layar:


Sisipkan beberapa gambar atau gambar dan ubah ukurannya agar sesuai dengan sel dengan fitur canggih

Jika Anda tidak terbiasa dengan kode VBA, di sini, Anda dapat menggunakan fitur daya - Impor Gambar of Kutools untuk Excel. Dengan fitur berguna ini, Anda dapat mengimpor banyak gambar ke dalam sel dengan cepat dan mudah.

Setelah menginstal Kutools untuk Excel, lakukan dengan langkah-langkah berikut:

1. Klik Kutools Plus > Ekspor Impor > Impor Gambar, lihat tangkapan layar:

2. Di muncul keluar Impor Gambar dialog, lakukan operasi berikut:

  • Tentukan urutan gambar dari daftar drop-down Impor pesanan, Anda dapat memilih Isi secara vertikal sel demi sel or Isi sel horizontal demi sel;
  • Lalu klik menambahkan tombol untuk memilih file gambar atau folder untuk menambahkan gambar ke dalam Daftar gambar;
  • klik Ukuran impor tombol, di Impor Ukuran Gambar kotak dialog, pilih Ukuran sel yang cocok pilihan.

3. Setelah menyelesaikan pengaturan, silakan klik impor tombol, dan sekarang, lagi Impor Gambar muncul, tentukan sel tujuan yang akan Anda impor gambarnya, lihat tangkapan layar:

4. Lalu klik OK tombol, semua gambar yang dipilih telah dimasukkan agar sesuai dengan ukuran sel tertentu seperti gambar di bawah ini yang ditampilkan:


Sisipkan beberapa gambar atau gambar yang cocok dengan namanya ke dalam sel

Jika Anda memiliki daftar nama produk dalam satu kolom, dan sekarang, Anda perlu memasukkan gambar yang sesuai ke kolom lain seperti gambar di bawah ini. Memasukkan gambar, dan kemudian menyeretnya ke setiap posisi satu per satu akan membuang banyak waktu, bagian ini, saya akan berbicara tentang beberapa metode cepat.

Masukkan beberapa gambar atau gambar yang cocok dengan namanya dengan kode VBA

Kode VBA berikut dapat membantu Anda memasukkan banyak gambar yang cocok dengan namanya dengan cepat, lakukan seperti ini:

1. Tahan ALT + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.

2. Klik menyadarit> Modul, dan tempelkan makro berikut di file Modul jendela.

Kode VBA: Masukkan beberapa gambar yang cocok dengan namanya

Sub InserPictureByName()
'Updateby Extendoffice
Dim xFDObject As FileDialog
Dim xStrPath, xStrPicPath As String
Dim xRgName, xRgInser, xRg, xRgI As Range
Dim xFNum As Integer
Set xFDObject = Application.FileDialog(msoFileDialogFolderPicker)
With xFDObject
    .Title = "Please select the folder:"
    .InitialFileName = Application.ActiveWorkbook.Path
    .Show
    .AllowMultiSelect = False
End With
On Error Resume Next
xStrPath = ""
xStrPath = xFDObject.SelectedItems.Item(1)
If xStrPath = "" Then
Exit Sub
End If
Set xRgName = Application.InputBox("Please select the cells contain the image name:", "Kutools for Excel", , , , , , 8)
If xRgName Is Nothing Then
    MsgBox "No cells are select, exit operation! ", vbInformation, "Kutools for Excel"
    Exit Sub
End If
Set xRgInser = Application.InputBox("Please select the cells to output the images", "Kutools for Excel", , , , , , 8)
If xRgInser Is Nothing Then
    MsgBox " No cells are select, exit operation.! ", vbInformation, "Kutools for Excel"
    Exit Sub
End If
For xFNum = 1 To xRgName.Count
    Set xRg = xRgName.Item(xFNum)
    Set xRgI = xRgInser.Item(xFNum)
    xStrPicPath = xStrPath & "\" & xRg.Text & ".png"
    If Not Dir(xStrPicPath, vbDirectory) = vbNullString Then
        With xRgI.Parent.Pictures.Insert(xStrPicPath)
            .Left = xRgI.Left
            .Top = xRgI.Top
            .ShapeRange.LockAspectRatio = msoFalse
            .ShapeRange.Height = 60
            .ShapeRange.Width = 60
        End With
    End If
Next
End Sub

Catatan: Pada kode di atas, Anda dapat mengubah tinggi dan lebar gambar di dalam skrip ".ShapeRange.Height = 60",".ShapeRange.Width = 60"Untuk kebutuhan Anda.

3. Lalu tekan F5 kunci untuk menjalankan kode ini, dan di jendela yang terbuka, pilih folder yang berisi gambar yang ingin Anda masukkan, lihat tangkapan layar:

4. Dan kemudian, klik OK tombol, kotak prompt muncul, pilih sel yang berisi nama gambar, lihat tangkapan layar:

5. Lanjutkan mengklik OK tombol, dan kotak prompt lain diikuti, pilih sel yang Anda ingin menampilkan gambar, lihat tangkapan layar:

6. Terakhir, klik OK, dan gambar telah dimasukkan ke dalam sel berdasarkan namanya sekaligus, lihat tangkapan layar:


Sisipkan beberapa gambar atau gambar yang cocok dengan namanya dengan fitur yang berguna

Jika Anda memiliki Kutools untuk Excel, Dengan yang Cocokkan Gambar Impor Fitur, Anda dapat memasukkan gambar berdasarkan nama gambar dengan cepat dan mudah.

Setelah menginstal Kutools untuk Excel, lakukan seperti ini:

1. Klik Kutools Plus > Ekspor Impor > Cocokkan Gambar Impor, lihat tangkapan layar:

2. Di muncul keluar Cocokkan Gambar Impor kotak dialog, lakukan operasi berikut:

  • Tentukan urutan gambar dari daftar drop-down Impor pesanan, Anda dapat memilih Isi secara vertikal sel demi sel or Isi sel horizontal demi sel;
  • Lalu, dari Rentang pertandingan kotak teks, pilih nama gambar yang ingin Anda sisipkan gambar berdasarkan;
  • Dan kemudian, klik menambahkan tombol untuk memilih file gambar atau folder untuk menambahkan gambar ke dalam Daftar gambar;
  • Selanjutnya, Anda harus menentukan ukuran gambar. Silakan klik Ukuran impor tombol, di Impor Ukuran Gambar kotak dialog, pilih satu ukuran gambar yang Anda butuhkan.

3. Setelah menyelesaikan pengaturan, silakan klik impor tombol, pilih satu sel atau daftar sel untuk mencari gambar dari yang muncul Cocokkan Gambar Impor dialog, lihat tangkapan layar:

4. Lalu klik OK, dan semua gambar yang namanya cocok dengan nilai sel telah dimasukkan, lihat tangkapan layar:


Sisipkan atau tampilkan gambar atau gambar dari URL

Pernahkah Anda mencoba menampilkan atau menyisipkan gambar dari daftar URL? Mungkin tidak ada metode bagus lainnya untuk menyisipkan gambar secara langsung di Excel, tetapi, Anda dapat menerapkan kode atau alat pihak ketiga untuk menanganinya.

Sisipkan atau tampilkan gambar atau gambar dari URL dengan kode VBA

Harap terapkan kode VBA berikut untuk memasukkan gambar berdasarkan daftar URL.

1. Pertama, sesuaikan ukuran sel yang ingin Anda temukan gambarnya.

2. Tahan ALT + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.

3. Klik Menyisipkan > Modul, dan tempelkan makro berikut di file Modul jendela.

Kode VBA: Masukkan gambar dari daftar URL

Sub URLPictureInsert()
'Updateby Extendoffice
Dim Pshp As Shape
Dim xRg As Range
Dim xCol As Long
On Error Resume Next
Application.ScreenUpdating = False
Set Rng = ActiveSheet.Range("A2:A5")
For Each cell In Rng
filenam = cell
ActiveSheet.Pictures.Insert(filenam).Select
Set Pshp = Selection.ShapeRange.Item(1)
If Pshp Is Nothing Then GoTo lab
xCol = cell.Column + 1
Set xRg = Cells(cell.Row, xCol)
With Pshp
.LockAspectRatio = msoFalse
If .Width > xRg.Width Then .Width = xRg.Width * 2 / 3
If .Height > xRg.Height Then .Height = xRg.Height * 2 / 3
.Top = xRg.Top + (xRg.Height - .Height) / 2
.Left = xRg.Left + (xRg.Width - .Width) / 2
End With
lab:
Set Pshp = Nothing
Range("A2").Select
Next
Application.ScreenUpdating = True
End Sub

Catatan: Pada kode di atas, A2: A5 adalah rentang sel yang berisi alamat URL yang ingin Anda ekstrak gambarnya, Anda harus mengubah referensi sel sesuai kebutuhan Anda.

4. Lalu tekan F5 kunci untuk menjalankan kode ini, gambar yang cocok akan diekstraksi dari URL ke kolom yang berdekatan dan ditempatkan di tengah sel, lihat tangkapan layar:


Sisipkan atau tampilkan gambar atau gambar dari URL dengan fitur luar biasa

Kutools untuk Excel memiliki fitur luar biasa - Sisipkan Gambar dari Path (URL). Dengan utilitas ini, gambar yang sesuai akan diekstraksi dari URL dengan cepat dan mudah.

Setelah menginstal Kutools untuk Excel, lakukan dengan langkah-langkah berikut:

1. Klik Kutools > Menyisipkan > Sisipkan Gambar dari Path (URL), lihat tangkapan layar:

2. Di muncul keluar Sisipkan Gambar dari Path (URL) kotak dialog, setel operasi berikut:

  • Pilih daftar sel URL dan rentang sel tempat Anda ingin meletakkan gambar;
  • Tentukan ukuran gambar yang Anda butuhkan dari Ukuran gambar bagian.

3. Dan kemudian, klik Ok tombol, dan semua gambar telah diekstraksi dari URL, lihat tangkapan layar:


Sisipkan atau tampilkan gambar atau gambar dari jalur file

Jika Anda perlu memasukkan gambar dari jalur file, berikut juga menyediakan solusi untuk Anda.

Sisipkan atau tampilkan gambar atau gambar dari jalur file dengan kode VBA

Anda dapat menerapkan kode VBA berikut untuk menyisipkan gambar berdasarkan jalur file gambar.

1. Tahan ALT + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.

2. Klik Menyisipkan > Modul, lalu tempel kode berikut di Modul Jendela.

Kode VBA: Masukkan gambar dari berbagai jalur file

Sub InsertPicFromFilePath()
'Updateby Extendoffice
    Dim xRg As Range
    Dim xCell As Range
    Dim xVal As String
    On Error Resume Next
    Set xRg = Application.InputBox("Please select file path cells:", "KuTools for Excel", Selection.Address, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    For Each xCell In xRg
        xVal = xCell.Value
        If xVal <> "" Then
            ActiveSheet.Shapes.AddPicture xCell.Value, msoFalse, msoTrue, _
            xCell.Offset(0, 1).Left, xCell.Top, xCell.Height, _
            xCell.Height
        End If
    Next
    Application.ScreenUpdating = True
End Sub

3. Setelah memasukkan kode di atas, tekan F5 kunci untuk menjalankan kode ini, kemudian kotak prompt muncul, pilih sel dari jalur file, lihat tangkapan layar:

4. Lalu klik OK tombol, semua gambar berdasarkan jalur file telah ditampilkan ke kolom berikutnya seperti gambar berikut yang ditampilkan:


Sisipkan atau tampilkan gambar atau gambar dari jalur file dengan fitur luar biasa

Kutools untuk Excel'S Sisipkan Gambar dari Path (URL) Fitur ini juga dapat membantu Anda untuk menampilkan gambar relatif dari jalur file.

Setelah menginstal Kutools untuk Excel, lakukan seperti ini:

1. Klik Kutools > Menyisipkan > Sisipkan Gambar dari Path (URL), di kotak dialog yang muncul, harap tentukan rentang jalur file, rentang untuk gambar keluaran, ukuran gambar yang Anda butuhkan, lihat tangkapan layar:

2. Setelah mengatur opsi, klik Ok tombol, gambar akan dimasukkan ke dalam sel yang dipilih sekaligus, lihat tangkapan layar:


Sisipkan gambar atau gambar ke dalam komentar

Mungkin mudah untuk menyisipkan gambar ke dalam sel, tetapi, terkadang, Anda mungkin ingin memasukkan gambar ke dalam kotak komentar, bagaimana Anda menangani tugas ini?

1. Pilih dan klik kanan sel tempat Anda ingin menyisipkan komentar, lalu pilih Sisipkan Komentar, lihat tangkapan layar:

Tips: Jika Anda telah menyisipkan komentar, abaikan langkah ini.

2. Lalu, arahkan kursor ke tepi kotak komentar, hingga Anda melihat kursor berubah menjadi ikon empat panah. Dan kemudian, klik kanan dan pilih Format Komentar opsi, lihat tangkapan layar:

3. Di muncul keluar Format Komentar kotak dialog, klik Warna dan Garis tab, dan kemudian pilih Efek Isi dari Warna daftar drop-down, lihat tangkapan layar:

4. Kemudian, berikut ini Efek Isi kotak dialog, klik Gambar tab, dan klik Pilih Gambar tombol untuk memilih satu gambar yang ingin Anda sisipkan, lihat tangkapan layar:

5. Dan kemudian, klik OK > OK, gambar telah dimasukkan ke dalam kotak komentar, lihat tangkapan layar:


Sisipkan gambar atau gambar ke dalam header atau footer

Jika Anda ingin memasukkan gambar ke header atau footer lembar kerja Excel Anda, langkah-langkah di bagian ini dapat membantu Anda, lakukan seperti ini:

1. Aktifkan lembar kerja tempat Anda ingin menyisipkan gambar ke header atau footer.

2. Lalu klik Menyisipkan > Bagian atas dan bagian bawah, dan Anda akan pergi ke Alat Header & Footer tab. Lihat tangkapan layar:

3. Untuk menyisipkan gambar di header atau footer, silakan klik kotak kiri, kanan atau tengah header atau footer yang Anda butuhkan, dan kemudian, klik Gambar bawah Disain tab, lihat tangkapan layar:

4. Kemudian, sebuah Sisipkan Gambar jendela akan muncul, pilih gambar yang ingin Anda tambahkan dan klik Sisipkan. Sekarang, a &[Gambar] placeholder akan muncul di kotak header atau footer. Klik di mana saja di luar kotak header atau footer, gambar yang dimasukkan akan ditampilkan seperti gambar di bawah ini:

Tips: Terkadang, Anda mungkin menemukan bahwa gambar tumpang tindih dengan area data lembar kerja seperti gambar di bawah ini. Ini terjadi karena gambar terlalu besar dan ukurannya tidak akan diubah agar pas dengan kotak bagian header atau footer secara otomatis.

Untuk mengatasi masalah ini, Anda hanya perlu mengubah ukuran gambar di header atau footer, lakukan dengan langkah-langkah berikut:

1. Klik di bagian header atau footer tempat gambar berada, lalu klik Format Gambar bawah Disain tab, lihat tangkapan layar:

2. di Format Gambar kotak dialog, di bawah Ukuran tab, sesuaikan ukuran gambar agar sesuai dengan kotak bagian header atau footer, lihat tangkapan layar:

3. Dan kemudian, klik OK, Anda akan mendapatkan hasil sesuai kebutuhan.


Sisipkan gambar atau gambar yang sama ke dalam beberapa lembar kerja

Terkadang, Anda mungkin ingin menyisipkan gambar logo ke semua lembar kerja buku kerja Anda, biasanya, Anda bisa menerapkan fungsi Sisipkan untuk menyisipkan gambar dari satu lembar ke lembar lainnya satu per satu. Kecuali fitur yang memakan waktu ini, kode VBA berikut dapat membantu Anda memasukkan gambar yang sama ke sel tertentu dari semua lembar sekaligus. Silakan lakukan dengan langkah-langkah di bawah ini:

1. Tahan ALT + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.

2. Klik Menyisipkan > Modul, dan tempel kode berikut di Modul Jendela.

Kode VBA: Masukkan gambar yang sama ke semua lembar kerja:

Sub InsertImagetoallsheets()
'Updateby Extendoffice
    Dim I As Long
    Dim xPath As String
    Dim xShape As Shape
    Dim xRg As Range
    xPath = "C:\Users\AddinTestWin10\Desktop\my images\logo.png"
    If Dir(xPath) = "" Then
        MsgBox "Picture file was not found in path!", vbInformation, "KuTools for Excel"
        Exit Sub
    End If
    For I = 1 To ActiveWorkbook.Sheets.Count
        Set xRg = Sheets(I).Range("A1")
        Set xShape = Sheets(I).Shapes.AddPicture(xPath, True, True, xRg.Left, xRg.Top, xRg.Width, xRg.Height)
    Next
End Sub

Catatan: Pada kode di atas, C: \ Users \ AddinTestWin10 \ Desktop \ gambar saya \ logo.png adalah jalur dan nama gambar, dan A1 in Rentang ("A1") adalah sel tempat Anda ingin menyisipkan gambar, harap ubah sesuai kebutuhan Anda.

3. Lalu tekan F5 kunci untuk menjalankan kode ini, dan gambar spesifik telah disisipkan ke sel A1 dari setiap lembar kerja dengan segera. Lihat demo di bawah ini:


Sisipkan gambar atau gambar di balik isi sel

Untuk membuat data lembar kerja lebih indah dan menarik, Anda dapat menggunakan gambar sebagai background. Untuk menyisipkan gambar di belakang konten sel, berikut adalah beberapa metode yang dapat membantu Anda.

Sisipkan gambar atau gambar di balik konten sel dengan fitur Background

1. Buka lembar kerja tempat Anda ingin menyisipkan gambar latar belakang.

2. Lalu klik Page Layout > Latar Belakang, lihat tangkapan layar:

3. Di muncul keluar Sisipkan Gambar jendela, pilih satu gambar dari komputer, situs web, atau OneDrive yang Anda butuhkan, lihat tangkapan layar:

4. Sekarang, gambar telah dimasukkan ke dalam lembar kerja sebagai latar belakang seperti gambar di bawah ini yang ditampilkan:

Tips: Untuk menghapus gambar latar belakang, cukup klik Page Layout > Hapus Latar Belakang. Lihat tangkapan layar:


Sisipkan gambar transparan atau gambar di belakang konten sel

Dengan metode di atas, Anda tidak dapat mengubah transparansi gambar latar yang disisipkan, jadi, jika warna gambar latar belakang berat, Anda tidak akan nyaman membaca data di lembar kerja. Bagian ini, saya akan berbicara tentang cara menyisipkan gambar transparan di belakang sel.

1. Klik Menyisipkan > bentuk, dan pilih bentuk persegi panjang, lihat tangkapan layar:

2. Kemudian, gambar bentuk sebesar yang Anda butuhkan di lembar kerja aktif.

3. Setelah menggambar bentuk, a menggambar Tools tab ditampilkan di pita, lalu klik dibentuk > Bentuk Garis Besar > Tidak ada garis besar, lihat tangkapan layar:

4. Dan kemudian, klik kanan bentuknya, dan pilih Format Bentuk dari menu konteks, lihat tangkapan layar:

5. Di diperluas Format Bentuk panel, di bawah Isi & Garis tab, lakukan operasi berikut:

  • Di bawah Mengisi bagian, pilih Isi gambar atau tekstur pilihan;
  • Klik Menyisipkan tombol dari Sumber gambar, dan pilih satu gambar yang ingin Anda sisipkan;
  • Kemudian, sesuaikan transparansi gambar dengan kebutuhan Anda dari Transparansibagian y.

6. Dan kemudian, Anda akan melihat bentuk yang penuh dengan gambar tampak seperti gambar latar belakang seperti gambar di atas.

Catatan: Setelah memasukkan jenis gambar latar belakang ini, Anda tidak akan diizinkan memasukkan teks apa pun dalam rentang gambar.


Sisipkan gambar transparan atau gambar di belakang konten sel sebagai cap air

Kedua metode di atas memiliki batasannya masing-masing, metode pertama tidak dapat mengubah transparansi gambar, metode kedua tidak memungkinkan memasukkan teks ke dalam sel di dalam area gambar. Untuk mengatasi masalah ini, Kutools untuk Excel'S Sisipkan Tanda Air fitur dapat membantu Anda.

Setelah menginstal Kutools untuk Excel, lakukan seperti ini:

1. Klik Kutools > Menyisipkan > Sisipkan Tanda Air, lihat tangkapan layar:

2. Di muncul keluar Sisipkan Tanda Air kotak dialog, pilih Tanda Air Gambar, Dan Kemudian klik Pilih Gambar untuk memilih satu gambar yang ingin Anda sisipkan, lalu tentukan skala gambar dan centang opsi Washout, lihat tangkapan layar:

3. Lalu klik Ok tombol, gambar telah dimasukkan ke dalam lembar kerja sebagai gambar latar belakang.


Sisipkan rentang sel sebagai gambar atau format gambar di Excel

Pernahkah Anda mencoba menyalin berbagai sel dan memasukkannya sebagai gambar di Excel? Bagian ini, saya akan memperkenalkan beberapa cara cepat untuk menangani pekerjaan ini di Excel.

Masukkan rentang sel sebagai gambar atau format gambar dengan fitur Salin sebagai Gambar

Di Excel, Anda dapat menggunakan file Salin sebagai Gambar berfungsi untuk menyalin dan menyisipkan rentang sel sebagai gambar.

1. Pilih rentang sel yang ingin Anda salin dan sisipkan sebagai gambar.

2. Lalu klik Home > salinan > Salin sebagai Gambar, lihat tangkapan layar:

3. Di muncul keluar Salin Gambar dialog, pilih Gambar dari dibentuk bagian, lihat tangkapan layar:

4. Lalu klik OK tombol, sekarang, Anda hanya perlu menekan Ctrl + V untuk menempelkan gambar ke bagian mana pun dari buku kerja.


Masukkan rentang sel sebagai gambar atau format gambar dengan alat Kamera

Di Excel, ada file kamera alat yang dapat membantu Anda mengambil foto untuk data yang Anda pilih, dan kemudian menempelkannya sebagai gambar. Ketika data asli berubah, gambar yang disalin akan diubah secara dinamis.

Pertama, Anda harus menampilkan file kamera di pita, lalu terapkan.

1. Klik Sesuaikan Bilah Alat Akses Cepat ikon, lalu klik Lebih Banyak Perintah opsi, lihat tangkapan layar:

2. Di tempat terbuka Opsi Excel kotak dialog, lakukan operasi berikut:

  • memilih Semua perintah dari Pilih perintah dari turun;
  • Lalu, gulir untuk memilih kamera dari kotak daftar;
  • Dan kemudian, klik menambahkan tombol untuk menambahkan alat ini ke Sesuaikan Bilah Alat Akses Cepat;
  • Terakhir, klik OK untuk menutup kotak dialog ini.

3. Dan kamera alat telah ditampilkan di pita, lihat tangkapan layar:

4. Kemudian, pilih rentang sel yang Anda inginkan gambarnya.

5. Dan kemudian, klik kamera alat, lalu pergi ke lembar kerja dan klik di mana saja, rentang data akan dimasukkan sebagai gambar seperti yang ditunjukkan demo di bawah ini:


Sisipkan rentang sel sebagai gambar atau format gambar dengan fitur yang berguna

Jika Anda memiliki Kutools untuk Excel, Dengan yang Perpustakaan Sumberdaya fitur, Anda dapat menyimpan data yang dipilih ke dalam Perpustakaan Sumberdaya, lalu gunakan sebagai gambar atau teks untuk masa depan sesuka Anda.

Setelah menginstal Kutools untuk Excel, lakukan seperti ini:

1. Pilih rentang data yang ingin Anda sisipkan sebagai gambar.

2. Lalu klik Kutools > Navigasi, lihat tangkapan layar:

3. Di diperluas Navigasi pane, klik Perpustakaan Sumberdaya ikon, lalu klik Tambahkan konten yang dipilih ke Perpustakaan Sumber Daya ikon, lihat tangkapan layar:

4. di Entri Perpustakaan Sumber Daya Baru kotak dialog, tentukan nama untuk item ini, lalu pilih grup yang ingin Anda tambahkan. Lihat tangkapan layar:

5. Lalu klik menambahkan tombol untuk menambahkannya Perpustakaan Sumberdaya panel. Jika Anda ingin menyisipkan rentang ini sebagai gambar, hanya perlu mengklik sel untuk menemukan gambar, lalu temukan item yang disimpan dari Perpustakaan Sumberdaya panel, dan klik Sisipkan sebagai > Gambar (EMF) dari daftar drop-down item. Dan rentang data akan dimasukkan ke dalam lembar sebagai gambar, lihat tangkapan layar:


Sisipkan gambar atau gambar berdasarkan nilai sel secara dinamis

Di bagian ini, saya akan menunjukkan cara menampilkan gambar tertentu berdasarkan nilai sel. Misalnya, saya ingin menampilkan gambar yang sesuai ketika saya memilih item tertentu dari sel drop-down, dan ketika saya memilih yang lain, gambar akan berubah secara dinamis seperti yang ditunjukkan demo di bawah ini:

Sisipkan gambar atau gambar berdasarkan nilai sel secara dinamis dengan fitur Named range

Biasanya, di Excel, Anda bisa membuat rentang bernama dinamis, lalu menggunakan gambar tertaut untuk menyelesaikan tugas ini di Excel.

1. Pertama, Anda harus membuat dua kolom yang berisi nama produk dan gambar relatif, lihat tangkapan layar:

2. Kemudian, buat daftar drop-down untuk nilai sel. Klik sel untuk menampilkan daftar drop-down, lalu klik Data > Validasi Data > Validasi Data, lihat tangkapan layar:

3. Di muncul keluar Validasi Data kotak dialog, di bawah pengaturan tab, pilih Daftar dari mengizinkan turun bawah, lalu pilih sel yang ingin Anda buat daftar turun bawah dari sumber kotak teks, lihat tangkapan layar:

4. Klik OK, dan daftar drop-down dengan nilai sel telah dibuat, pilih satu item dari daftar drop-down, lihat tangkapan layar:

5. Lalu klik Rumus > Tentukan Nama, lihat tangkapan layar:

6. di Nama baru kotak dialog, lakukan operasi berikut:

  • Masukkan nama yang disebut myimage ke dalam file Nama kolom tulisan;
  • Kemudian salin dan tempel rumus ini: =INDEX(Sheet11!$A$2:$B$6,MATCH(Sheet11!$E$2,Sheet11!$A$2:$A$6,0),2) ke dalam kotak teks Merujuk ke.

Catatan: Dalam rumus di atas:

  • Lembar11! $ A $ 2: $ B $ 6: adalah lembar kerja dan rentang yang berisi nilai dan gambar yang ingin Anda gunakan;
  • Lembar11! $ E $ 2: adalah sel di dalam lembar kerja tempat Anda membuat daftar drop-down;
  • Lembar11! $ A $ 2: $ A $ 6: adalah daftar sel yang Anda buat berdasarkan daftar drop-down;
  • Nomor variabel 2 adalah nomor kolom yang berisi gambar. Jika gambar Anda ada di kolom C, Anda harus memasukkan 3.

7. Dan kemudian, klik OK tombol, lalu silakan salin dan tempel gambar yang sesuai berdasarkan nilai sel di E2 dari kisaran asli ke sel F2, lihat tangkapan layar:

8. Selanjutnya silahkan pilih gambar di sel F2, lalu masukkan rumus ini = myimage (gambarku adalah nama rentang yang telah Anda buat pada langkah 6) ke dalam bilah rumus, lihat tangkapan layar:

9. Setelah memasukkan rumus, tekan Memasukkan kunci, dan sekarang, ketika Anda memilih satu item dari daftar drop-down, gambar relatifnya akan segera ditampilkan. Lihat tangkapan layar:


Sisipkan gambar atau gambar berdasarkan nilai sel secara dinamis dengan fitur praktis

Metode di atas mungkin sulit bagi kebanyakan dari kita, di sini, saya akan memperkenalkan fitur praktis - Daftar Tarik-turun Gambar of Kutools untuk Excel, dengan alat yang berguna ini, Anda dapat membuat beberapa daftar tarik-turun dengan gambar relatifnya hanya dengan beberapa klik.

Setelah menginstal Kutools untuk Excel, lakukan dengan langkah-langkah berikut:

1. Pertama, Anda harus membuat dua kolom yang berisi nama produk dan gambar relatif di lembar kerja Anda.

2. Dan kemudian, klik Kutools > Daftar Drop-down > Daftar Tarik-turun Gambar, lihat tangkapan layar:

3. di Daftar Tarik-turun Gambar kotak dialog, jika Anda telah membuat kolom nilai sel dan gambar, abaikan langkah 1, lalu, pilih data asli dan kisaran gambar dan kisaran output, lihat tangkapan layar:

4. Dan kemudian, klik Ok tombol, daftar drop-down dengan gambar telah dibuat ke dalam sel yang dipilih, dan ketika memilih item dari sel drop-down, gambar yang sesuai akan ditampilkan sekaligus, lihat demo di bawah ini:


Ekspor atau simpan semua gambar atau gambar dari file Excel

Jika ada beberapa gambar di buku kerja Anda, dan sekarang, Anda ingin mengekstrak dan menyimpan semua gambar dari file Excel ke folder. Bagaimana Anda bisa menyelesaikan tugas ini di Excel?

Ekspor atau simpan semua gambar atau gambar dari Excel dengan fitur Save As

Biasanya, Anda dapat menggunakan Save As fitur untuk menyimpan semua gambar dari workbook, lakukan seperti ini:

1. Klik fillet > Save As, Dalam Save As jendela, tentukan folder untuk meletakkan file yang diekspor, lalu pilih Halaman Web (*. Htm; *. Html) dari Simpan sebagai ketik daftar drop-down, lihat tangkapan layar:

2. Dan kemudian klik Hemat tombol, pergi ke folder tertentu, Anda akan melihat dua file, satu adalah file format HTML, dan yang lainnya adalah folder yang berisi gambar, bagan, atau objek lain dari buku kerja. Lihat tangkapan layar:

3. Kemudian Anda hanya dapat menyeret gambar ke folder lain sesuai kebutuhan.

Catatan: Dengan menggunakan ini Save As Fitur, Anda akan mendapatkan setiap gambar dua kali, satu lebih kecil, yang lain lebih besar, sehingga Anda dapat menyimpan gambar dengan resolusi lebih tinggi sesuai kebutuhan.


Ekspor atau simpan semua gambar atau gambar dari Excel dengan mengubah ekstensi file

Untuk menyimpan semua gambar dari file Excel, Anda juga dapat mengubah ekstensi file menjadi RAR. Harap lakukan seperti ini:

1. Ubah ekstensi file xlsx untuk langka seperti gambar di bawah ini yang ditampilkan:

2. Kemudian, unzip file tersebut, dan Anda akan melihat 3 folder dan 1 file di folder tersebut, lihat tangkapan layar:

3. Kemudian, klik untuk membuka xl folder, lalu buka media folder, Anda akan melihat semua gambar disimpan di sini tanpa duplikat, lihat tangkapan layar:


Ekspor atau simpan semua gambar atau gambar dari Excel dengan fitur canggih

Jika Anda memiliki Kutools untuk Excel, Dengan yang Ekspor Grafik fitur, Anda dapat dengan cepat mengekspor beberapa objek tertentu, seperti gambar, bagan, bentuk ke format gambar yang Anda butuhkan.

Setelah menginstal Kutools untuk Excel, lakukan dengan langkah-langkah berikut:

1. Klik Kutools Plus > Ekspor Impor > Ekspor Grafik, lihat tangkapan layar:

2. di Ekspor Grafik kotak dialog, lakukan operasi berikut:

  • Memilih Film pilihan dari jenis daftar drop-down;
  • Tentukan folder untuk menyimpan gambar ekspor Anda;
  • Kemudian klik daftar drop-down dari Format ekspor untuk memilih satu format untuk gambar Anda.

3. Terakhir, klik Ok tombol, semua gambar di buku kerja saat ini telah disimpan ke dalam folder yang Anda tentukan, lihat tangkapan layar:


Ubah nama gambar di folder berdasarkan daftar sel di Excel

Jika Anda memiliki banyak gambar dalam satu folder, dan sekarang, Anda ingin mengganti nama semua gambar ini, bagaimana Anda bisa menyelesaikan pekerjaan ini dengan cara yang mudah di Excel?

Di Excel, pertama, Anda harus mencantumkan semua nama gambar lama ke dalam kolom, lalu ketikkan nama baru, akhirnya, terapkan kode VBA untuk mengganti nama lama dengan nama baru sekaligus. Silakan lakukan dengan langkah-langkah di bawah ini:

1. Harap daftarkan semua nama gambar ke dalam daftar sel, atau Anda dapat menerapkan kode di bawah ini untuk membuat daftar semua nama gambar dalam folder tertentu tanpa mengetiknya satu per satu secara manual.

2. Menekan ALT + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi Jendela.

3. Klik Menyisipkan > Modul, dan tempelkan makro berikut di file Modul jendela.

Kode VBA: daftar semua nama gambar dari folder

Sub MainList()
'Updateby Extendoffice
On Error Resume Next
Set xRg = Application.InputBox("Please select a cell to put the filenames:", "KuTools For Excel", Selection.Address, , , , , 8)
If xRg Is Nothing Then Exit Sub
Set xRg = xRg(1)
Set Folder = Application.FileDialog(msoFileDialogFolderPicker)
If Folder.Show <> -1 Then Exit Sub
xDir = Folder.SelectedItems(1)
Call ListFilesInFolder(xRg, xDir, True)
End Sub
Sub ListFilesInFolder(ByVal xRg As Range, ByVal xFolderName As String, ByVal xIsSubfolders As Boolean)
Dim xFileSystemObject As Object
Dim xFolder As Object
Dim xSubFolder As Object
Dim xFile As Object
Dim rowIndex As Long
Set xFileSystemObject = CreateObject("Scripting.FileSystemObject")
Set xFolder = xFileSystemObject.GetFolder(xFolderName)
rowIndex = 1
For Each xFile In xFolder.Files
xRg.Formula = xFile.Name
Set xRg = xRg.Offset(rowIndex)
rowIndex = 1
Next xFile
If xIsSubfolders Then
For Each xSubFolder In xFolder.SubFolders
ListFilesInFolder xRg, xSubFolder.Path, True
Next xSubFolder
End If
Set xFile = Nothing
Set xFolder = Nothing
Set xFileSystemObject = Nothing
End Sub

4. Lalu tekan F5 kunci untuk menjalankan kode ini, dan kotak prompt muncul, klik sel tempat untuk menampilkan nama gambar, lihat tangkapan layar:

5. Lalu klik OK, Lain melihat-lihat dialog akan muncul, pilih folder berisi gambar yang ingin Anda daftar semua nama gambar, lihat tangkapan layar:

6. Klik OK, semua nama gambar di folder tertentu telah terdaftar ke dalam sel, lihat tangkapan layar:

7. Kemudian, ketik nama baru yang Anda butuhkan ke kolom lain seperti gambar di bawah ini yang ditampilkan:

8. Dan kemudian, Anda dapat menerapkan kode di bawah ini untuk mengganti nama gambar, terus tekan ALT + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi Jendela.

9. Klik Menyisipkan > Modul, dan tempelkan makro berikut di file Modul jendela.

Kode VBA: Ubah nama banyak file dalam satu folder

Sub RenameFiles()
'Updateby Extendoffice
Dim xDir As String
Dim xFile As String
Dim xRow As Long
With Application.FileDialog(msoFileDialogFolderPicker)
    .AllowMultiSelect = False
If .Show = -1 Then
    xDir = .SelectedItems(1)
    xFile = Dir(xDir & Application.PathSeparator & "*")
    Do Until xFile = ""
        xRow = 0
        On Error Resume Next
        xRow = Application.Match(xFile, Range("A:A"), 0)
        If xRow > 0 Then
            Name xDir & Application.PathSeparator & xFile As _
            xDir & Application.PathSeparator & Cells(xRow, "B").Value
        End If
        xFile = Dir
    Loop
End If
End With
End Sub

Catatan: Pada kode di atas, A: A menunjukkan daftar nama gambar lama yang ingin Anda ubah namanya, dan B berisi nama gambar baru yang ingin Anda gunakan, Anda dapat mengubahnya sesuai kebutuhan Anda.

10. Lalu tekan F5 kunci untuk menjalankan kode ini, dan muncul melihat-lihat jendela, pilih folder berisi gambar yang ingin Anda ganti namanya, lihat tangkapan layar:

11. Dan kemudian, klik OK tombol, semua nama gambar telah diganti dengan nama baru seperti gambar di bawah ini yang ditampilkan:


Memperbesar atau memperkecil gambar saat mengkliknya

Misalkan, Anda telah memasukkan gambar kecil ke dalam lembar kerja, sekarang, Anda ingin memperbesar gambar saat mengkliknya, dan mengecilkannya saat mengklik lagi seperti yang ditunjukkan demo di bawah ini. Bagaimana Anda bisa menyelesaikan tugas ini di Excel?

Untuk memperbesar atau memperkecil ukuran gambar saat mengkliknya, kode berikut dapat membantu Anda. Silakan lakukan dengan langkah-langkah di bawah ini:

1. Klik kanan gambar, dan pilih Tetapkan Makro, lihat tangkapan layar:

2. Lalu, di pop out Tetapkan Makro kotak dialog, klik Baru tombol, lihat tangkapan layar:

3. di Microsoft Visual Basic untuk Aplikasi jendela, silakan salin dan tempel kode di bawah ini di antara Sub serta End Sub kode. Lihat tangkapan layar:

Dim shp As Shape
    Dim big As Single, small As Single
    Dim shpDouH As Double, shpDouOriH As Double
    big = 3  
    small = 1
    On Error Resume Next
    Set shp = ActiveSheet.Shapes(Application.Caller)
    With shp
        shpDouH = .Height
        .ScaleHeight 1, msoTrue, msoScaleFromTopLeft
        shpDouOriH = .Height
     
        If Round(shpDouH / shpDouOriH, 2) = big Then
            .ScaleHeight small, msoTrue, msoScaleFromTopLeft
            .ScaleWidth small, msoTrue, msoScaleFromTopLeft
            .ZOrder msoSendToBack
        Else
            .ScaleHeight big, msoTrue, msoScaleFromTopLeft
            .ScaleWidth big, msoTrue, msoScaleFromTopLeft
            .ZOrder msoBringToFront
        End If
    End With

4. Lalu tekan Alt + Q kunci untuk menutup Microsoft Visual Basic untuk Aplikasi jendela. Sekarang, ketika Anda mengklik gambar, itu akan diperbesar ke ukuran yang Anda tentukan, dan klik lagi akan menyusut ke ukuran aslinya seperti yang ditunjukkan di bawah ini:


Selalu mengapungkan gambar saat menggulir lembar kerja

Terkadang, Anda mungkin ingin mengapung gambar di layar lembar kerja meskipun saat Anda menggulir ke atas atau ke bawah lembar kerja, sehingga Anda bisa melihat gambar sepanjang waktu. Pada bagian ini, saya akan memperkenalkan trik cepat bagi Anda untuk menangani pekerjaan ini di Excel. Silakan lakukan dengan langkah-langkah berikut:

1. Pertama, sisipkan gambar yang ingin Anda gunakan.

2. Lalu, klik kanan tab lembar yang berisi gambar yang Anda ingin selalu terlihat, lalu pilih Lihat kode dari menu konteks. Di tempat terbuka Microsoft Visual Basic untuk aplikasi jendela, salin dan tempel kode di bawah ini ke dalam Modul kosong:

Kode VBA: Selalu mengapungkan gambar di lembar kerja

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Updateby Extendoffice
    Application.ScreenUpdating = False
    If Target.Cells.Count > 1 Then Exit Sub
        With ActiveSheet.Shapes("Picture1")
            .Top = ActiveWindow.VisibleRange.Top + 5
            .Left = ActiveWindow.VisibleRange.Left + ActiveWindow.VisibleRange.Width - .Width - 45
        End With
    Application.ScreenUpdating = False
End Sub

Catatan: Dalam kode ini, Gambar 1 adalah nama gambar yang telah Anda sisipkan, harap ubah sesuai kebutuhan Anda.

3. Kemudian, simpan dan tutup jendela kode, sekarang, saat menggulir lembar kerja dan mengklik sel, gambar akan selalu disimpan di sudut kanan atas lembar kerja. Lihat tangkapan layar:


Hapus gambar atau gambar dari lembar aktif / rentang sel

Apakah Anda memiliki cara cepat untuk menghapus semua gambar dari lembar kerja, rentang sel atau buku kerja saat ini? Bagian ini, saya akan memperkenalkan beberapa metode untuk menyelesaikan pekerjaan ini di Excel.

Hapus gambar atau gambar dari lembar aktif dengan kode VBA

Untuk menghapus gambar dari lembar kerja saat ini, kode VBA di bawah ini dapat membantu Anda, lakukan seperti ini:

1. Aktifkan lembar kerja yang berisi gambar yang ingin Anda hapus.

2. Tahan ALT + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.

3. Klik Menyisipkan > Modul, dan tempelkan makro berikut di file Modul Jendela.

Kode VBA: Hapus semua gambar dari lembar kerja saat ini

Sub DeleteAllPics()
'Updateby Extendoffice
Dim Pic As Object
For Each Pic In ActiveSheet.Pictures
Pic.Delete
Next Pic
End Sub

4. Lalu tekan F5 kunci untuk menjalankan kode ini, dan semua gambar di lembar kerja aktif dihapus sekaligus.


Hapus gambar atau gambar dari berbagai sel dengan kode VBA

Jika Anda perlu menghapus gambar hanya dari berbagai sel, berikut adalah kode sederhana lain yang dapat membantu Anda.

1. Tahan ALT + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.

2. Klik Menyisipkan > Modul, dan tempelkan makro berikut di file Modul Jendela.

Kode VBA: Hapus gambar dari berbagai sel

Sub DeletePic()
'Updateby Extendoffice
    Dim xPicRg As Range
    Dim xPic As Picture
    Dim xRg As Range
    Application.ScreenUpdating = False
    Set xRg = Range("B4:C6")
    For Each xPic In ActiveSheet.Pictures
        Set xPicRg = Range(xPic.TopLeftCell.Address & ":" & xPic.BottomRightCell.Address)
        If Not Intersect(xRg, xPicRg) Is Nothing Then xPic.Delete
    Next
    Application.ScreenUpdating = True
End Sub

Catatan: Pada kode di atas, B4: C6 adalah rentang yang ingin Anda hapus gambarnya.

3. Lalu tekan F5 kunci untuk menjalankan kode ini, dan gambar dalam kisaran yang dipilih akan dihapus sekaligus, lihat tangkapan layar:


Hapus gambar atau gambar dari lembar aktif, lembar yang dipilih, semua lembar dengan fitur praktis

Jika Anda memiliki Kutools untuk Excel, Dengan yang Hapus Ilustrasi & Objek fitur, Anda dapat dengan cepat menghapus gambar dari lembar kerja, beberapa lembar yang dipilih atau seluruh buku kerja.

Setelah menginstal Kutools untuk Excel, lakukan dengan langkah-langkah berikut:

1. Klik Kutools > Menghapus > Hapus Ilustrasi & Objek, lihat tangkapan layar:

2. Di tempat terbuka Hapus Ilustrasi & Objek kotak dialog, periksa Film dari Menghapus bagian, dan lalu tentukan cakupan yang ingin Anda hapus gambarnya dari bawah file Lihat kedalam bagian, lihat tangkapan layar:

3. Lalu klik Ok tombol, dan semua gambar akan dihapus dari lembar kerja, lembar kerja yang dipilih atau seluruh buku kerja seperti yang Anda tentukan.



  • Super Formula Bar (dengan mudah mengedit beberapa baris teks dan rumus); Membaca Tata Letak (membaca dan mengedit sel dalam jumlah besar dengan mudah); Tempel ke Rentang yang Difilter...
  • Gabungkan Sel / Baris / Kolom dan Menyimpan Data; Pisahkan Konten Sel; Gabungkan Baris Duplikat dan Jumlah / Rata-rata... Mencegah Sel Duplikat; Bandingkan Rentang...
  • Pilih Duplikat atau Unik Baris; Pilih Baris Kosong (semua sel kosong); Temukan Super dan Temukan Fuzzy di Banyak Buku Kerja; Pilih Acak ...
  • Salinan Tepat Beberapa Sel tanpa mengubah referensi rumus; Buat Referensi Otomatis ke Beberapa Lembar; Sisipkan Poin, Kotak Centang, dan lainnya ...
  • Favorit dan Sisipkan Rumus dengan Cepat, Rentang, Grafik dan Gambar; Enkripsi Sel dengan kata sandi; Buat Milis dan mengirim email ...
  • Ekstrak Teks, Tambahkan Teks, Hapus berdasarkan Posisi, Hapus Space; Membuat dan Mencetak Subtotal Paging; Konversi Konten Antar Sel dan Komentar...
  • Filter Super (simpan dan terapkan skema filter ke sheet lain); Penyortiran Lanjutan menurut bulan / minggu / hari, frekuensi dan lainnya; Filter Khusus dengan huruf tebal, miring ...
  • Gabungkan Workbooks dan WorkSheets; Gabungkan Tabel berdasarkan kolom kunci; Pisahkan Data menjadi Beberapa Lembar; Konversi Batch xls, xlsx dan PDF...
  • Pengelompokan Tabel Pivot menurut nomor minggu, hari dalam seminggu dan banyak lagi ... Tampilkan Sel yang Tidak Terkunci dan Terkunci dengan warna berbeda; Sorot Sel Yang Memiliki Rumus / Nama...
tab kte 201905
  • Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
  • Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
  • Tingkatkan produktivitas Anda hingga 50%, dan kurangi ratusan klik mouse untuk Anda setiap hari!
officetab bawah
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.