Excel resimleri: Excel'de birden fazla resmi veya görseli ekleyin, yeniden boyutlandırın, kaydedin, silin

Çoğumuz için bilgisayarda depolanan resimleri çalışma sayfasına eklemek oldukça kolaydır. Şu adımları izleyin:

1. Çalışma sayfasında, resimleri eklemek istediğiniz yere tıklayın.

2. Ardından, Ekle > Resimler > Bu Cihaz seçeneğine tıklayın, ekran görüntüsüne bakın:

3. Açılan Resim Ekle penceresinde, resimleri içeren klasörü açın ve ardından Ctrl tuşunu basılı tutarak eklemek istediğiniz resimleri seçin, ekran görüntüsüne bakın:

4. Ardından, Ekle düğmesine tıklayın, seçili resimler sayfaya eklenmiş olacaktır. Şimdi, resimleri ihtiyacınız olan hücrelere göre ayarlayabilir veya yeniden boyutlandırabilirsiniz, ekran görüntüsüne bakın:

Excel2013 veya daha yeni bir sürümünüz varsa, web'den veya OneDrive'dan resim ekleyebilirsiniz, lütfen şu adımları izleyin:

1. Çalışma sayfasında, resimleri eklemek istediğiniz yere tıklayın.

2. Ardından, Ekle > Resimler > Çevrimiçi Resimler seçeneğine tıklayın, ekran görüntüsüne bakın:

3. Sonraki pencerede, Çevrimiçi Resimler bölümünde aradığınız kelimeyi metin kutusuna yazın ve Enter tuşuna basın. Tüm ilgili resimler anında aranacaktır, ekran görüntüsüne bakın:

4. Ardından, istediğiniz resimleri seçin ve Ekle düğmesine tıklayın. Resimleri ekledikten sonra, resimleri ihtiyacınız olan konuma göre yeniden boyutlandırın veya ayarlayın.

Aşağıdaki VBA kodu, birden fazla resmi hücre boyutuna göre hücrelere eklemenize yardımcı olabilir. Şu adımları izleyin:

1. Resmi yerleştirmek istediğiniz hücrelerin boyutunu ayarlayın ve ardından hücreleri seçin.

2. Ardından, ALT + F11 tuşlarına basarak Microsoft Visual Basic for Applications penceresini açın.

3. Ekle > Modül'e tıklayın ve aşağıdaki makroyu Modül penceresine yapıştırın.

VBA kodu: Hücre boyutuna göre birden fazla resim ekleyin

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. Ardından F5 tuşuna basarak kodu çalıştırın. Açılan pencerede, resimleri içeren klasörü seçin, eklemek istediğiniz resimleri seçin ve ardından Aç düğmesine tıklayın; seçili tüm resimler hücre boyutuna göre seçiminize eklenmiş olacaktır. Ekran görüntüsüne bakın:

VBA koduna aşina değilseniz, burada Kutools for Excel'in Import Pictures özelliğini kullanabilirsiniz. Bu kullanışlı özellikle, birden fazla resmi hücrelere hızlı ve kolay bir şekilde aktarabilirsiniz.

1. Kutools Plus > İçe/Dışa Aktar > Import Pictures'a tıklayın, ekran görüntüsüne bakın:

2. Açılan Import Pictures iletişim kutusunda, aşağıdaki işlemleri yapın:

• Import order açılır listesinden resim sırasını belirtin; Sütun bazlı, ardından satır bazlı doldur veya Satır bazlı, ardından sütun bazlı doldur seçeneklerinden birini seçebilirsiniz;
• Ardından, Ekle düğmesine tıklayarak resim dosyalarını veya klasörü seçin ve resimleri Resim Listesi'ne ekleyin;
• Import size düğmesine tıklayın, Import Picture Size iletişim kutusunda Hücre Boyutunu Eşleştir seçeneğini işaretleyin.
• 

3. Ayarları tamamladıktan sonra, Import düğmesine tıklayın; şimdi başka bir Import Pictures penceresi açılır, resimleri ekleyeceğiniz hedef hücreleri belirtin, ekran görüntüsüne bakın:

4. Ardından, Tamam'a tıklayın; seçili tüm resimler aşağıdaki ekran görüntüsünde gösterildiği gibi belirli hücrelerin boyutuna uygun şekilde eklenmiştir:

Aşağıdaki VBA kodu, isimleriyle eşleşen birden fazla resmi hızlıca eklemenize yardımcı olabilir, şu adımları izleyin:

1. ALT + F11 tuşlarına basarak Microsoft Visual Basic for Applications penceresini açın.

2. Ekle Inser > Modül'e tıklayın ve aşağıdaki makroyu Modül penceresine yapıştırın.

VBA kodu: İsimleriyle eşleşen birden fazla resim ekleyin

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

Not: Yukarıdaki kodda, resim yüksekliğini ve genişliğini “.ShapeRange.Height =60”, “.ShapeRange.Width =60” satırlarında ihtiyacınıza göre değiştirebilirsiniz.

3. Ardından, F5 tuşuna basarak kodu çalıştırın ve açılan pencerede eklemek istediğiniz resimleri içeren klasörü seçin, ekran görüntüsüne bakın:

4. Sonra, Tamam'a tıklayın; bir uyarı kutusu açılır, lütfen resim adlarını içeren hücreleri seçin, ekran görüntüsüne bakın:

5. Tekrar Tamam'a tıklayın; başka bir uyarı kutusu açılır, lütfen resimleri eklemek istediğiniz hücreleri seçin, ekran görüntüsüne bakın:

6. Son olarak, Tamam'a tıklayın; resimler isimlerine göre anında hücrelere eklenmiş olacaktır, ekran görüntüsüne bakın:

Kutools for Excel'in Match Import Pictures özelliği ile, resimleri isimlerine göre hızlı ve kolay bir şekilde ekleyebilirsiniz.

1. Kutools Plus > İçe/Dışa Aktar > Match Import Pictures'a tıklayın, ekran görüntüsüne bakın:

2. Açılan Match Import Picture iletişim kutusunda, aşağıdaki işlemleri yapın:

• Import order açılır listesinden resim sırasını belirtin; Sütun bazlı, ardından satır bazlı doldur veya Satır bazlı, ardından sütun bazlı doldur seçeneklerinden birini seçebilirsiniz;
• Sonra, Match range metin kutusundan, resimleri hangi isimlere göre ekleyeceğinizi seçin;
• Ardından, Ekle düğmesine tıklayarak resim dosyalarını veya klasörü seçin ve resimleri Resim Listesi'ne ekleyin;
• Sonraki adımda, resim boyutunu belirtmelisiniz. Import size düğmesine tıklayın, Import Picture Size iletişim kutusunda ihtiyacınıza uygun bir resim boyutu seçin.
• 

3. Ayarları tamamladıktan sonra, Import düğmesine tıklayın; açılan Match Import Pictures iletişim kutusundan resimleri yerleştireceğiniz bir hücre veya hücre listesini seçin, ekran görüntüsüne bakın:

4. Ardından, Tamam'a tıklayın; isimleri hücre değerleriyle eşleşen tüm resimler eklenmiş olacaktır, ekran görüntüsüne bakın:

Aşağıdaki VBA kodunu uygulayarak, bir URL listesine göre resimleri ekleyebilirsiniz.

1. Öncelikle, resimleri yerleştirmek istediğiniz bitişik hücrelerin boyutunu ayarlayın.

2. ALT + F11 tuşlarına basarak Microsoft Visual Basic for Applications penceresini açın.

3. Ekle > Modül'e tıklayın ve aşağıdaki makroyu Modül penceresine yapıştırın.

VBA kodu: Bir URL listesinden resim ekleyin

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

Notlar: Yukarıdaki kodda, A2:A5 resimlerin URL adreslerini içeren hücre aralığıdır; hücre referanslarını ihtiyacınıza göre değiştirmelisiniz.

4. Ardından F5 tuşuna basarak kodu çalıştırın; eşleşen resimler URL'lerden alınarak bitişik sütuna ve hücrelerin ortasına yerleştirilecektir, ekran görüntüsüne bakın:

Kutools for Excel'in harika bir özelliği olan Yoldan Resim Ekle (URL) ile, ilgili resimler URL'lerden hızlı ve kolay bir şekilde alınabilir.

1. Kutools > Ekle > Yoldan Resim Ekle (URL)'ye tıklayın, ekran görüntüsüne bakın:

2. Açılan Yoldan Resim Ekle (URL) iletişim kutusunda, aşağıdaki işlemleri yapın:

• URL hücrelerinin listesini ve resimleri yerleştirmek istediğiniz hücre aralığını seçin;
• Resimlerin boyutunu, Picture Size bölümünden ihtiyacınıza göre belirleyin.
• 

3. Ardından, Tamam'a tıklayın; tüm resimler URL'lerden alınmış olacaktır, ekran görüntüsüne bakın:

Aşağıdaki VBA kodunu uygulayarak, resim dosya yollarına göre resimleri ekleyebilirsiniz.

1. ALT + F11 tuşlarına basarak Microsoft Visual Basic for Applications penceresini açın.

2. Ekle Insert > Modül'e tıklayın ve ardından aşağıdaki kodu Modül penceresine yapıştırın.

VBA kodu: Bir dosya yolu aralığından resim ekleyin

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. Yukarıdaki kodu ekledikten sonra, F5 tuşuna basarak kodu çalıştırın; açılan uyarı kutusunda dosya yolu hücrelerini seçin, ekran görüntüsüne bakın:

4. Ardından, Tamam'a tıklayın; dosya yollarına göre tüm resimler aşağıdaki ekran görüntüsünde gösterildiği gibi bir sonraki sütunda görüntülenecektir:

Kutools for Excel’in Yoldan Resim Ekle (URL) özelliği, dosya yolundan ilgili resimleri görüntülemenize de yardımcı olabilir.

1. Kutools > Ekle > Yoldan Resim Ekle (URL)'ye tıklayın; açılan iletişim kutusunda dosya yolu aralığını, resimlerin yerleştirileceği aralığı ve resim boyutunu belirtin, ekran görüntülerine bakın:

2. Seçenekleri ayarladıktan sonra, Tamam'a tıklayın; resimler seçili hücrelere anında eklenmiş olacaktır, ekran görüntüsüne bakın:

İpucu: Bazen, resmin çalışma sayfasındaki veri alanıyla çakıştığını görebilirsiniz, aşağıdaki ekran görüntüsünde olduğu gibi. Bu, resmin çok büyük olmasından ve başlık veya alt bilgi kutusuna otomatik olarak sığacak şekilde yeniden boyutlandırılmamasından kaynaklanır.

Bu sorunu çözmek için, başlık veya alt bilgideki resmi yeniden boyutlandırmanız yeterlidir, aşağıdaki adımları izleyin:

1. Resmin bulunduğu başlık veya alt bilgi bölümüne tıklayın ve ardından Tasarım sekmesi altında Resmi Biçimlendir'e tıklayın, ekran görüntüsüne bakın:

2. Resmi Biçimlendir iletişim kutusunda, Boyut sekmesi altında, resmin boyutunu başlık veya alt bilgi kutusuna sığacak şekilde ayarlayın, ekran görüntüsüne bakın:

3. Ardından, Tamam'a tıklayın; ihtiyacınıza uygun sonucu elde edeceksiniz.

1. Arka plan resmi eklemek istediğiniz çalışma sayfasını açın.

2. Ardından, Sayfa Düzeni > Arka Plan'a tıklayın, ekran görüntüsüne bakın:

3. Açılan Resim Ekle penceresinde, ihtiyacınıza göre bilgisayarınızdan, web sitesinden veya OneDrive'dan bir resim seçin, ekran görüntüsüne bakın:

4. Artık resim, çalışma sayfasına arka plan olarak eklenmiştir, aşağıdaki ekran görüntüsüne bakın:

Yukarıdaki yöntemle eklenen arka plan resminin şeffaflığını değiştiremezsiniz; bu nedenle, arka plan resminin rengi koyuysa, çalışma sayfası verilerini okumak zorlaşabilir. Bu bölümde, hücrelerin arkasına şeffaf bir resim eklemenin yolunu anlatacağım.

1. Ekle > Şekiller'e tıklayın ve bir dikdörtgen şekli seçin, ekran görüntüsüne bakın:

2. Ardından, etkin çalışma sayfasında ihtiyacınız kadar büyük bir şekil çizin.

3. Şekli çizdikten sonra, şeritte Çizim Araçları sekmesi görüntülenir; ardından Biçim > Şekil Anahattı > Anahat Yok'a tıklayın, ekran görüntüsüne bakın:

4. Ardından, şekle sağ tıklayın ve açılan menüden Şekli Biçimlendir'i seçin, ekran görüntüsüne bakın:

5. Genişletilmiş Şekli Biçimlendir bölmesinde, Dolgu ve Çizgi sekmesi altında aşağıdaki işlemleri yapın:

• Dolgu bölümünde, Resim veya doku dolgusu seçeneğini işaretleyin;
• Resim kaynağından Ekle düğmesine tıklayın ve eklemek istediğiniz resmi seçin;
• Ardından, Şeffaflık bölümünden resmin şeffaflığını ihtiyacınıza göre ayarlayın.
• 

6. Ardından, şeklin resimle doldurulmuş hali yukarıdaki ekran görüntüsünde olduğu gibi arka plan resmi gibi görünecektir.

Not: Bu tür bir arka plan resmi ekledikten sonra, resim aralığına herhangi bir metin giremeyeceksiniz.

Yukarıdaki iki yöntemin kendine özgü kısıtlamaları vardır; birincisi resmin şeffaflığını değiştiremez, ikincisi ise resim alanındaki hücrelere metin girmenize izin vermez. Bu sorunları çözmek için, Kutools for Excel'in Filigran Ekle özelliği size yardımcı olabilir.

1. Kutools > Ekle > Filigran Ekle'ye tıklayın, ekran görüntüsüne bakın:

2. Açılan Filigran Ekle iletişim kutusunda, Resim Filigranı'nı seçin ve ardından Resim Seç düğmesine tıklayarak eklemek istediğiniz resmi seçin; ardından resim ölçeğini belirtin ve Aşındırma seçeneğini işaretleyin, ekran görüntüsüne bakın:

3. Ardından, Tamam'a tıklayın; resim, çalışma sayfasına arka plan resmi olarak eklenmiş olacaktır.

Excel'de, bir hücre aralığını kopyalayıp resim olarak eklemek için Resim Olarak Kopyala işlevini kullanabilirsiniz.

1. Resim olarak kopyalayıp eklemek istediğiniz hücre aralığını seçin.

2. Ardından, Giriş > Kopyala > Resim Olarak Kopyala'ya tıklayın, ekran görüntüsüne bakın:

3. Açılan Resmi Kopyala iletişim kutusunda, Biçim bölümünden Resim'i seçin, ekran görüntüsüne bakın:

4. Ardından, Tamam'a tıklayın; şimdi sadece Ctrl + V tuşlarına basarak resmi çalışma kitabının istediğiniz yerine yapıştırabilirsiniz.

Excel'de, seçili verilerinizin fotoğrafını çekip resim olarak yapıştırmanıza yardımcı olan bir Kamera aracı vardır. Orijinal veriler değiştiğinde, kopyalanan resim de dinamik olarak değişir.

Öncelikle, Kamera'yı şeritte görüntülemelisiniz, ardından uygulayın.

1. Hızlı Erişim Araç Çubuğu simgesine tıklayın ve ardından Diğer Komutlar seçeneğine tıklayın, ekran görüntüsüne bakın:

2. Açılan Excel Seçenekleri iletişim kutusunda, aşağıdaki işlemleri yapın:

• Komutları buradan seç açılır listesinden Tüm Komutlar'ı seçin;
• Ardından, listeden Kamera'yı seçin;
• Sonra, Ekle düğmesine tıklayarak bu aracı Hızlı Erişim Araç Çubuğu'na ekleyin;
• Son olarak, Tamam'a tıklayarak bu iletişim kutusunu kapatın.
• 

3. Kamera aracı şeritte görüntülenmiş olacaktır, ekran görüntüsüne bakın:

4. Ardından, resim olarak almak istediğiniz hücre aralığını seçin.

5. Sonra, Kamera aracına tıklayın; ardından çalışma sayfasında herhangi bir yere tıklayın, veri aralığı aşağıdaki demoda gösterildiği gibi resim olarak eklenmiş olacaktır:

Kutools for Excel'in Otomatik Metin Kütüphanesi özelliği ile, seçili verileri Otomatik Metin Kütüphanesi'ne kaydedebilir ve ardından istediğiniz zaman resim veya metin olarak kullanabilirsiniz.

1. Resim olarak eklemek istediğiniz veri aralığını seçin.

2. Ardından, Kutools > Gezinme'ye tıklayın, ekran görüntüsüne bakın:

3. Genişletilmiş Gezinme bölmesinde, Otomatik Metin Kütüphanesi simgesine ve ardından Seçilen İçeriği Otomatik Metine Ekle simgesine tıklayın, ekran görüntüsüne bakın:

4. Yeni Otomatik Metin Girişi iletişim kutusunda, bu öğe için bir ad belirtin ve eklemek istediğiniz grubu seçin. Ekran görüntüsüne bakın:

5. Ardından, Ekle düğmesine tıklayarak Otomatik Metin Kütüphanesi bölmesine ekleyin. Bu aralığı resim olarak eklemek isterseniz, sadece resmi yerleştirmek için bir hücreye tıklayın, ardından Otomatik Metin Kütüphanesi bölmesinden kaydedilen öğeyi bulun ve öğenin açılır listesinden Olarak Ekle > Resim (EMF) seçeneğine tıklayın. Veri aralığı, ekran görüntülerinde gösterildiği gibi sayfaya resim olarak eklenmiş olacaktır:

Normalde, Excel'de dinamik bir adlandırılmış aralık oluşturabilir ve ardından bu görevi çözmek için bağlantılı resmi kullanabilirsiniz.

1. Öncelikle, ürün adlarını ve ilgili resimleri içeren iki sütun oluşturmalısınız, ekran görüntüsüne bakın:

2. Ardından, hücre değerleri için bir açılır liste oluşturun. Açılır listeyi çıkarmak için bir hücreye tıklayın, ardından Veri > Veri Doğrulama > Veri Doğrulama'ya tıklayın, ekran görüntüsüne bakın:

3. Açılan Veri Doğrulama iletişim kutusunda, Ayarlar sekmesi altında, İzin Ver açılır listesinden Liste'yi seçin ve ardından açılır listeyi oluşturmak istediğiniz hücreleri Kaynak metin kutusundan seçin, ekran görüntüsüne bakın:

4. Tamam'a tıklayın; açılır listeyle hücre değerleri oluşturulmuştur, açılır listeden bir öğe seçin, ekran görüntüsüne bakın:

5. Ardından, Formüller > Ad Tanımla'ya tıklayın, ekran görüntüsüne bakın:

6. Yeni Ad iletişim kutusunda, aşağıdaki işlemleri yapın:

• Ad kutusuna myimage adını girin;
• Ardından bu formülü kopyalayıp yapıştırın: =INDEX(Sheet11!$A$2:$B$6,MATCH(Sheet11!$E$2,Sheet11!$A$2:$A$6,0),2) Başvurulan kutusuna yapıştırın.

  

  Not: Yukarıdaki formülde:

  • Sheet11!$A$2:$B$6: Kullanmak istediğiniz değerleri ve resimleri içeren çalışma sayfası ve aralıktır;
  • Sheet11!$E$2: Açılır listeyi oluşturduğunuz çalışma sayfasındaki hücredir;
  • Sheet11!$A$2:$A$6: Açılır listeyi oluşturduğunuz hücrelerin listesidir;
  • 2 değişkeni, resimleri içeren sütun numarasıdır. Eğer resimleriniz C sütunundaysa,3 yazmalısınız.

7. Ardından, Tamam'a tıklayın; ardından, E2 hücresindeki hücre değerine göre karşılık gelen resmi orijinal aralıktan F2 hücresine kopyalayıp yapıştırın, ekran görüntüsüne bakın:

8. Sonra, F2 hücresindeki resmi seçin ve formül çubuğuna =myimage (myimage,6. adımda oluşturduğunuz aralık adıdır) formülünü girin, ekran görüntüsüne bakın:

9. Formülü girdikten sonra Enter tuşuna basın; artık açılır listeden bir öğe seçtiğinizde, ilgili resmi anında görüntülenecektir. Ekran görüntüsüne bakın:

Yukarıdaki yöntem çoğumuz için zor olabilir; burada, Kutools for Excel'in Resimli Aşağı Açılır Liste özelliğini tanıtacağım. Bu kullanışlı araçla, sadece birkaç tıklama ile birden fazla açılır listeyi ve ilgili resimlerini oluşturabilirsiniz.

1. Öncelikle, çalışma sayfanızda ürün adlarını ve ilgili resimleri içeren iki sütun oluşturmalısınız.

2. Ardından, Kutools > Açılır Liste > Resimli Aşağı Açılır Liste'ye tıklayın, ekran görüntüsüne bakın:

3. Resimli Aşağı Açılır Liste iletişim kutusunda, hücre değerleri ve resimleri içeren sütunları oluşturduysanız,1. adımı atlayın; ardından, orijinal veri ve resim aralığını ve çıktı aralığını seçin, ekran görüntüsüne bakın:

4. Ardından, Tamam'a tıklayın; açılır listeler ve resimler seçili hücrelere eklenmiş olacaktır ve açılır hücreden bir öğe seçtiğinizde, karşılık gelen resmi anında görebilirsiniz, aşağıdaki demoya bakın:

Normalde, Farklı Kaydet özelliğini kullanarak çalışma kitabındaki tüm resimleri kaydedebilirsiniz, şu adımları izleyin:

1. Dosya > Farklı Kaydet'e tıklayın; Farklı Kaydet penceresinde, dışa aktarılacak dosyaların konulacağı klasörü belirtin ve ardından Kaydetme Biçimini Belirt açılır listesinden Web Sayfası(*.htm;*.html) seçin, ekran görüntüsüne bakın:

2. Ardından Kaydet düğmesine tıklayın; belirttiğiniz klasöre gidin, biri HTML formatında dosya, diğeri ise çalışma kitabındaki resimleri, grafikler veya diğer nesneleri içeren bir klasör olmak üzere iki dosya göreceksiniz. Ekran görüntüsüne bakın:

3. Ardından, yalnızca resimleri ihtiyacınıza göre başka bir klasöre sürükleyebilirsiniz.

Not: Bu Farklı Kaydet özelliğini kullandığınızda, her resmi iki kez elde edersiniz; biri küçük, diğeri ise daha büyüktür, böylece ihtiyacınıza göre daha yüksek çözünürlüklü resimleri kaydedebilirsiniz.

Excel dosyasındaki tüm resimleri kaydetmek için, dosya uzantısını RAR olarak da değiştirebilirsiniz. Şu adımları izleyin:

1. Dosya uzantısını xlsx'ten rar'a değiştirin, aşağıdaki ekran görüntüsüne bakın:

2. Ardından, dosyayı çıkarın; klasörde3 klasör ve1 dosya göreceksiniz, ekran görüntüsüne bakın:

3. Ardından, xl klasörünü açın ve ardından media klasörünü açın; tüm resimlerin burada tekrar olmadan saklandığını göreceksiniz, ekran görüntüsüne bakın:

Kutools for Excel'in Export Graphics özelliği ile, resim, grafik, şekil gibi belirli nesneleri ihtiyacınıza göre hızlıca resim formatında dışa aktarabilirsiniz.

1. Kutools Plus > İçe/Dışa Aktar > Grafik Dışa Aktar'a tıklayın, ekran görüntüsüne bakın:

2. Grafik Dışa Aktar iletişim kutusunda, aşağıdaki işlemleri yapın:

• Türler açılır listesinden Resimler seçeneğini seçin;
• Dışa aktarılacak resimleri kaydedeceğiniz bir klasör belirtin;
• Ardından, Aktarım Biçimi açılır listesinden resimleriniz için bir biçim seçin.
• 

3. Son olarak, Tamam'a tıklayın; geçerli çalışma kitabındaki tüm resimler belirttiğiniz klasöre kaydedilmiş olacaktır, ekran görüntüsüne bakın:

Mevcut çalışma sayfasındaki resimleri silmek için aşağıdaki VBA kodu size yardımcı olabilir, şu adımları izleyin:

1. Silmek istediğiniz resimleri içeren çalışma sayfasını etkinleştirin.

2. ALT + F11 tuşlarına basarak Microsoft Visual Basic for Applications penceresini açın.

3. Ekle > Modül'e tıklayın ve aşağıdaki makroyu Modül penceresine yapıştırın.

VBA kodu: Mevcut çalışma sayfasındaki tüm resimleri silin

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

4. Ardından, F5 tuşuna basarak kodu çalıştırın; aktif çalışma sayfasındaki tüm resimler anında silinecektir.

Sadece bir hücre aralığındaki resimleri silmeniz gerekiyorsa, burada başka bir basit kod size yardımcı olabilir.

1. ALT + F11 tuşlarına basarak Microsoft Visual Basic for Applications penceresini açın.

2. Ekle > Modül'e tıklayın ve aşağıdaki makroyu Modül penceresine yapıştırın.

VBA kodu: Bir hücre aralığından resimleri silin

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

Not: Yukarıdaki kodda, B4:C6 resimleri silmek istediğiniz aralıktır.

3. Ardından, F5 tuşuna basarak kodu çalıştırın; seçili aralıktaki resimler anında silinecektir, ekran görüntülerine bakın:

Kutools for Excel'in İllüstrasyonları ve Nesneleri Sil özelliği ile, bir çalışma sayfasından, seçili sayfalardan veya tüm çalışma kitabından resimleri hızlıca silebilirsiniz.

1. Kutools > Sil > İllüstrasyonları ve Nesneleri Sil'e tıklayın, ekran görüntüsüne bakın:

2. Açılan İllüstrasyonları ve Nesneleri Sil iletişim kutusunda, Sil bölümünden Resimler'i işaretleyin ve ardından resimleri silmek istediğiniz kapsamı Ara alanı bölümünden belirtin, ekran görüntüsüne bakın:

3. Ardından, Tamam'a tıklayın; tüm resimler çalışma sayfasından, seçili çalışma sayfalarından veya tüm çalışma kitabından belirttiğiniz şekilde silinecektir.