Bagaimana cara mengekstrak gambar dari komentar di Excel?
Di Excel, Anda dapat memasukkan gambar ke dalam komentar semudah mungkin, tetapi, pernahkah Anda mempertimbangkan untuk mengekstrak gambar dari kotak komentar ke dalam sel atau ke folder tertentu? Artikel ini, saya akan berbicara tentang cara mengekstrak gambar dari komentar.
Ekstrak dan simpan gambar dari komentar ke dalam folder dengan fungsi Save As
Ekstrak gambar dari komentar ke dalam sel dengan kode VBA
Ekstrak dan simpan gambar dari komentar ke dalam folder dengan fungsi Save As
Jika Anda ingin mengekstrak dan menyimpan gambar dari komentar ke dalam folder, lakukan hal berikut:
1. Salin lembar yang berisi komentar dengan gambar yang ingin Anda simpan ke dalam buku kerja kosong baru.
2. Dan kemudian klik File > Save As untuk menyimpan buku kerja baru ini sebagai web Halaman format dalam folder tertentu, lihat tangkapan layar:
3. Lalu klik Save tombol untuk menyimpan file, lalu pergi ke folder tertentu untuk melihat gambar yang disimpan, dua file dibuat di folder, satu adalah file html, dan yang lainnya adalah folder yang berisi semua gambar dan file lainnya, lihat tangkapan layar:
Ekstrak gambar dari komentar ke dalam sel dengan kode VBA
Jika Anda ingin mengekstrak gambar dari komentar ke dalam sel seperti gambar berikut yang ditunjukkan, di sini, saya dapat membuat kode VBA untuk Anda, 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 Module Window.
Kode VBA: Ekstrak gambar dari komentar ke dalam sel:
Sub CommentPictures()
'Updateby Extendoffcie
Dim cmt As Comment
Dim xRg As Range
Dim visBool As Boolean
Dim cmtTxt As String
Dim jpgPath As String
Dim shpHeight As Integer, shpWidth As Integer
Application.ScreenUpdating = False
For Each cmt In ActiveSheet.Comments
With cmt
cmtTxt = .Text
shpHeight = .Shape.Height
shpWidth = .Shape.Width
.Text Text:="" & Chr(10) & ""
visBool = .Visible
.Visible = True
On Error Resume Next
Set xRg = .Parent.Offset(0, 1)
.Shape.CopyPicture _
Appearance:=xlScreen, Format:=xlPicture
xRg.PasteSpecial
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.Width = xRg.Width
Selection.Height = xRg.Height
.Visible = visBool
.Text Text:=cmtTxt
End With
Next cmt
Application.ScreenUpdating = True
End Sub
3. Lalu tekan F5 kunci untuk menjalankan kode ini, dan semua gambar komentar di lembar kerja saat ini telah diekstraksi ke dalam sel kolom berikutnya, lihat tangkapan layar:
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 Canggih untuk Meningkatkan Produktivitas dan Menghemat Waktu. Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...
Office Tab Menghadirkan antarmuka Tab ke Office, dan Membuat Pekerjaan Anda 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!
