Excel - Makro untuk memasukkan gambar dalam lembaran kerja
- Isu
- Penyelesaian
Isu
Saya cuba memasukkan gambar dalam lajur Excel menggunakan makro yang mengambil nama fail refrence dari sel B2 dan memasukkan gambar dalam sel A2. Sebagai contoh: jika B2 mengandungi N235 maka gambar yang akan dimasukkan dalam A2 adalah N235.jpg dari laluan yang diberikan di Makro. Ini berfungsi dengan baik KECUALI apabila tiada gambar dalam folder dengan nama yang sama seperti dalam folder.- Saya mendapat ralat runtime 1004 dan Makro berhenti dan tidak dapat mengisi gambar selepas sel itu.
Penyelesaian
Sub Gambar ()Dim name sebagai String
Dim pasteAtas Integer
Dim lThisRow As Long
lThisRow = 2
Do While (Sel (lThisRow, 2) "")
pasteAt = lThisRow
Sel (pasteAt, 1) .Select 'Di sinilah gambar akan dimasukkan
picname = Sel (lThisRow, 2) 'Ini adalah nama gambar
sekarang = Dir ("C: \ Users \ Administrator \ Desktop \ LC \" & picname & ".jpg")
Jika ada "" Kemudian
ActiveSheet.Pictures.Insert ("C: \ Users \ Administrator \ Desktop \ LC \" & picname & ".jpg"). Pilih 'Path to where pictures are stored
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' '' '' '
'Ini mengubah saiz gambar
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' '' '' '
Dengan Pemilihan
'Left = Range ("A6"). Kiri
'.Top = Julat ("A6")
. Kiri = Sel (pasteAt, 1). Kiri
.Top = Sel (pasteAt, 1) .Top
.ShapeRange.LockAspectRatio = msoFalse
.ShapeRange.Height = 100 #
.ShapeRange.Width = 130 #
.ShapeRange.Rotation = 0 #
Akhir Dengan
Lain
Sel (pasteAt, 1) = "Tiada Imej Ditemui"
Akhir Jika
lThisRow = lThisRow + 1
Loop
Julat ("A10"). Pilih
Application.ScreenUpdating = Benar
Keluar Sub
ErrNoPhoto:
MsgBox "Tidak Dapat Cari Foto" 'Menunjukkan kotak mesej jika gambar tidak dijumpai
Keluar Sub
Julat ("B20"). Pilih
Sub Akhir
Terima kasih kepada rizvisa1 untuk tip ini.