Makro Kullanarak Excel'de Resim Nasıl Eklenir

Excel'deki makrolar, resim ekleme, verileri bir hücreden diğerine kopyalama, vb. Gibi işlevleri gerçekleştirebilir . Excel'e görüntü eklemek için etkili bir makro yazmak için bir döngü kullanmanız gerekir.

Bu SSS, resimlerin görünmesi için bu makroyu e-tablonuza uygulama adımları konusunda size rehberlik edecektir.

Excel'de Resim Eklemek için Makro Kullanma

Resim eklemek için bir makro kullanmak için, aşağıdaki varsayımlarla başlamalısınız: resim adları B2'den başlayarak B sütununda bulunur; Her resmi farklı bir yere yapıştırmak istediğinizde; B sütununda tanımlanan resmin yapıştırılacağı yer, C2'den başlayarak C sütununda bulunur.

Şimdi aşağıdaki kodu girin:

 Alt Resim ()
Dim picname, Dize Olarak
Dim pasteAt Tamsayı Olarak
DimBu Uzun
lBuRow = 2
Süre (Hücreler (1BuRow, 2) "")
'Range ("A6").' Seçiniz bu resim eklenecek
pasteAt = Hücreler (lThisRow, 3)
Hücreler (pasteAt, 1) .Seçin 'Burası resmin ekleneceği yer
'Dim picname, Dize Olarak
'picname = Aralık ("B6")' Bu resim adı
picname = Hücreler (lThisRow, 2) 'Bu resim adı
ActiveSheet.Pictures.Insert ("C: \ Users \ vbayat \ Belgelerim \ vidabayat \ re-market \" & picname & ".jpg"). 'Resimlerin saklandığı yolu seçin
'' '' ' ''' '' ' '' ''' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ''' '' '''
'Bu resmi yeniden boyutlandırıyor
'' '' ' ''' '' ' '' ''' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ''' '' '''
Seçimi ile
'.Left = Aralık ("A6") Sol
'.Top = Aralık ("A6").
.Left = Hücreler (pasteAt, 1) .Left
.Top = Hücreler (pasteAt, 1) .Top
.ShapeRange.LockAspectRatio = msoFalse
.ShapeRange.Height = 100 #
.ShapeRange.Width = 80 #
.ShapeRange.Rotation = 0 #
İle bitmek
lThisRow = lThisRow + 1
döngü
Range ( "A10"). Seçiniz
Application.ScreenUpdating = Doğru
Alttan Çık
ErrNoPhoto:
MsgBox "Fotoğraf Bulunamadı" 'Resim bulunamadıysa mesaj kutusunu gösterir.
Alttan Çık
Range ( "B20"). Seçiniz
Son Alt