Bagaimana cara memasukkan gambar yang sama ke dalam beberapa lembar kerja dengan cepat?
Biasanya, kita dapat menyisipkan gambar ke dalam lembar kerja dengan cepat menggunakan fungsi Sisipkan di Excel, tetapi, pernahkah mencoba memasukkan gambar yang sama ke semua lembar kerja buku kerja Anda? Artikel ini, saya akan memperkenalkan metode yang berguna bagi Anda untuk menyelesaikan pekerjaan ini.
Masukkan gambar yang sama ke dalam semua lembar kerja buku kerja dengan kode VBA
Masukkan gambar yang sama ke dalam semua lembar kerja buku kerja dengan kode VBA
Kode VBA berikut dapat membantu Anda memasukkan gambar ke semua lembar kerja dengan mudah, lakukan seperti 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 InsertLogo()
Dim I As Long
Dim xPath As String
Dim xShape As Shape
Dim xRg As Range
xPath = "C:\Users\DT168\Desktop\pic\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
Note: Pada kode di atas, C:\Users\DT168\Desktop\pic\logo.png adalah jalur dan nama gambar Anda, dan A1 in Range("A1") adalah sel tempat Anda ingin menyisipkan gambar, silakan ubah sesuai keinginan Anda.
3. Lalu tekan F5 kunci untuk menjalankan kode ini, dan kemudian gambar spesifik telah dimasukkan ke dalam setiap sel A1 dari semua lembar kerja sekaligus. Lihat tangkapan layar:
Note: Gambar yang disisipkan akan disesuaikan dengan ukuran sel.
Alat Produktivitas Kantor Terbaik
Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Lanjutan untuk Meningkatkan Produktivitas dan Menghemat Waktu. Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...
Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh Lebih Mudah
- 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.
- Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!