Ana içeriğe atla

Excel resimleri: Excel'de birden çok resim veya resim ekleyin, değiştirin, silin

Bu eğitimde, hücrelere birden fazla resmin nasıl ekleneceği ve hücre boyutuna uyacak şekilde yeniden boyutlandırılacağı, yoruma, üstbilgi veya altbilgiye nasıl resim ekleneceği, URL'lerden nasıl resim ekleneceği ve benzeri konulardan bahsedeceğiz. Ayrıca Excel'de ihtiyaç duyduğunuz şekilde birden çok görüntünün nasıl kaydedileceği, yeniden adlandırılacağı ve silineceği açıklanmaktadır.

İçindekiler:

1. Bilgisayar, web veya OneDrive'dan çalışma sayfasına resim veya resim ekleyin

2. Resimleri veya resimleri Excel hücresine kilitleyin

3. Excel'e birden çok resim veya resim ekleyin

4. Hücrelere adlarıyla eşleşen birden fazla resim veya resim ekleyin

5. URL'lerden resim veya resim ekleyin veya görüntüleyin

6. Dosya yollarından resim veya resim ekleyin veya görüntüleyin

7. Bir yoruma resim veya resim ekleyin

8. Üst bilgi veya alt bilgiye resim veya resim ekleyin

9. Aynı resmi veya resmi birden çok çalışma sayfasına ekleyin

10. Hücre içeriğinin arkasına resim veya resim ekleyin

11. Excel'e görüntü veya resim formatı olarak bir dizi hücre ekleyin

12. Hücre değerine göre dinamik olarak resim veya resim ekleyin

13. Tüm görüntüleri veya resimleri bir Excel dosyasından dışa aktarın veya kaydedin

14. Excel'deki hücre listesine göre bir klasördeki görüntü adlarını yeniden adlandırın

15. Üzerine tıkladığınızda resmi büyütün veya küçültün

16. Çalışma sayfasını kaydırırken daima bir resmi kaydırın

17. Etkin sayfadan / bir dizi hücreden görüntüleri veya resimleri silin


Bilgisayar, web veya OneDrive'dan çalışma sayfasına resim veya resim ekleyin

Tüm Excel sürümleri bilgisayardan resim veya resim eklemeyi destekler, ancak resimleri web'den veya OneDrive'dan eklemek istiyorsanız, Excel 2013 ve sonraki sürümlere sahip olmalısınız.

Bilgisayardan resim veya resim ekleyin

Bilgisayarda depolanan resimleri çalışma sayfasına eklemek çoğumuz için kolaydır. Lütfen şunu yapın:

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

2. Daha sonra, Ekle > Fotoğraf Galerisi > Bu cihaz, ekran görüntüsüne bakın:

3. Dışarı fırladı Resim Ekle penceresini açın, resimleri içeren klasörü açın ve ardından Ctrl eklemek istediğiniz görüntüleri seçmek için tuş, ekran görüntüsüne bakın:

4. Daha sonra, Ekle düğmesi, seçilen resimler sayfaya eklenmiştir. Şimdi, görüntüleri ihtiyacınız olan hücrelere göre ayarlayabilir veya yeniden boyutlandırabilirsiniz, ekran görüntüsüne bakın:


Web'den veya OneDrive'dan resim veya resim ekleyin

Excel 2013 veya sonraki sürümleriniz varsa, resimleri web'den veya One Drive'dan ekleyebilirsiniz, lütfen şu şekilde yapın:

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

2. Daha sonra, Ekle > Fotoğraf Galerisi > Online Resimler, ekran görüntüsüne bakın:

3. Aşağıdaki bir pencere görüntülenecektir. İçinde Online Resimler bölümünde, lütfen metin kutusuna aradığınızı yazın ve ardından Keşfet anahtar. İlgili tüm resimler aynı anda aranır, ekran görüntüsüne bakın:

4. Ardından, istediğiniz resimleri seçin ve ardından Ekle buton. Resimleri ekledikten sonra, lütfen resimleri ihtiyacınız olan konuma yeniden boyutlandırın veya ayarlayın.

İpuçları:

1. Bazı özel resimleri aramak için, bulunan resimleri ihtiyaç duyduğunuz boyuta, türe, düzene veya renge göre filtreleyebilirsiniz.

2. Bing aramasından görüntüleri eklemenin yanı sıra, OneDrive'ınızda depolanan resimleri de ekleyebilirsiniz. Aşağıdaki pencerede tıklayın onedrive pencerenin sol alt kısmına tıklayın ve ardından eklemek istediğiniz görüntüleri seçin.


Resimleri veya resimleri Excel hücresine kilitleyin

Normalde, görüntüleri hücrelere ekledikten sonra, görüntüyü içeren hücreleri yeniden boyutlandırdığınızda, filtrelediğinizde veya gizlediğinizde, aşağıdaki demoda gösterildiği gibi bu hücre ile birlikte görüntü yeniden boyutlandırılmaz veya filtrelenmez.

Bu durumda, hücre ile birlikte yeniden boyutlandırılabilmesi, filtrelenebilmesi veya gizlenebilmesi için resmi hücreye kilitlemelisiniz, lütfen aşağıdaki adımları uygulayın:

1. Bir resim seçmek için tıklayın ve düğmesine basın Ctrl + A çalışma sayfasındaki tüm resimleri seçmek için.

2. Ardından, bir resme sağ tıklayın ve Boyut ve Özellikler bağlam menüsünden, ekran görüntüsüne bakın:

3. Genişletilmiş Resmi Biçimlendir bölmenin altında Emlaklar bölümünde, seçin Hücrelerle taşıma ve boyutlandırma seçenek, ekran görüntüsüne bakın:

4. Ardından, Resmi Biçimlendir bölme. Şimdi, hücreleri yeniden boyutlandırırken, filtrelerken veya gizlerken, resimler de taşınacak, filtrelenecek veya gizlenecektir.


Excel'e birden çok resim veya resim ekleyin

Bazen hücrelere birden fazla resim eklemeniz ve resimleri yeniden boyutlandırmadan ve sürüklemeden hücre boyutuna otomatik olarak sığacak şekilde yeniden boyutlandırmanız gerekebilir. Burada, bu işi Excel'de çözmenin iki yolunu tanıtacağım.

Birden fazla resim veya resim ekleyin ve bunları VBA kodu ile hücrelere sığacak şekilde yeniden boyutlandırın

Aşağıdaki VBA kodu, hücre boyutuna göre hücrelere birden çok görüntü eklemenize yardımcı olabilir. Lütfen şunu yapın:

1. Resmi koymak istediğiniz hücre boyutunu ayarlayın ve ardından hücreleri seçin.

2. Sonra, basılı tutun ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.

3. tıklayın Ekle > modülve aşağıdaki makroyu modül pencere.

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. Daha sonra tuşuna basın. F5 Bu kodu çalıştırmak için anahtar. İçinde Açılış penceresinde, lütfen resimleri içeren klasörü seçin, ardından eklemek istediğiniz resimleri seçin ve ardından Açılış düğmesi ve seçilen tüm resimler hücre boyutuna göre seçiminize eklenmiştir. Ekran görüntüsüne bakın:


Birden fazla resim veya resim ekleyin ve bunları güçlü bir özellikle hücrelere sığacak şekilde yeniden boyutlandırın

VBA kodunu bilmiyorsanız, burada bir güç özelliği kullanabilirsiniz - Resimleri içe aktarma of Kutools for Excel. Bu kullanışlı özellik sayesinde, birden çok görüntüyü hücrelere hızlı ve kolay bir şekilde aktarabilirsiniz.

Kurduktan sonra Kutools for Excellütfen aşağıdaki adımları izleyin:

1. tıklayın Kutools Artı > İthalat ihracat > Resimleri içe aktarma, ekran görüntüsüne bakın:

2. Dışarı fırladı Resimleri içe aktarma iletişim kutusu, lütfen aşağıdaki işlemleri yapın:

  • İçe aktarma siparişi açılır listesinden resim sırasını belirtin, seçebilirsiniz Hücreden sonra hücreyi dikey olarak doldur or Hücreden sonra hücreyi yatay olarak doldur;
  • Ardından, tıklayın Ekle resimleri eklemek için görüntü dosyalarını veya klasörü seçmek için Resim listesi;
  • Tıkla İçe aktarma boyutu düğmesi Resim Boyutunu İçe Aktar iletişim kutusunu seçin. Eşleşen hücre boyutu seçeneği.

3. Ayarları tamamladıktan sonra lütfen tıklayın ithalat düğmesi ve şimdi başka Resimleri içe aktarma dışarı çıkar, resmi içe aktaracağınız hedef hücreleri belirtin, ekran görüntüsüne bakın:

4. Daha sonra, OK düğmesi, seçilen tüm resimler, aşağıda gösterilen ekran görüntüsü gibi belirli hücrelerin boyutlarına uyacak şekilde eklenmiştir:


Hücrelere adlarıyla eşleşen birden fazla resim veya resim ekleyin

Bir sütunda ürün adları listeniz varsa ve şimdi, ilgili resimleri aşağıda gösterilen ekran görüntüsü gibi başka bir sütuna eklemeniz gerekir. Görüntüleri eklemek ve sonra her pozisyona teker teker sürüklemek çok zaman kaybedecektir, bu bölümde bazı hızlı yöntemlerden bahsedeceğim.

VBA koduyla adlarıyla eşleşen birden fazla resim veya resim ekleyin

Aşağıdaki VBA kodu, adlarıyla eşleşen birden fazla resmi hızlı bir şekilde eklemenize yardımcı olabilir, lütfen şu şekilde yapın:

1. Basılı tutun ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.

2. tıklayın arat> modülve aşağıdaki makroyu modül pencere.

VBA kodu: Adlarıyla 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, komut dosyalarındaki görüntü yüksekliğini ve genişliğini değiştirebilirsiniz ".Şekil Aralığı.Yükseklik = 60"".Şekil Aralığı.Genişlik = 60"İhtiyacınıza göre.

3. Daha sonra, tuşuna basın. F5 Bu kodu çalıştırmak için tuşuna basın ve açılan pencerede, lütfen eklemek istediğiniz resimleri içeren klasörü seçin, ekran görüntüsüne bakın:

4. Ve sonra tıklayın OK düğmesi, bir istem kutusu açılır, lütfen resim adlarını içeren hücreleri seçin, ekran görüntüsüne bakın:

5. Tıklamaya git OK düğmesi ve başka bir istem kutusu takip edilir, lütfen görüntülerin çıktısını almak istediğiniz hücreleri seçin, ekran görüntüsüne bakın:

6. Sonunda, tıklayın OKve resimler adlarına göre hücrelere yerleştirildi, ekran görüntüsüne bakın:


Yararlı bir özellikle adlarıyla eşleşen birden fazla resim veya resim ekleyin

Eğer varsa Kutools for Excel, Onun ile İçe Aktarılmış Resimleri Eşleştir özelliği sayesinde, görüntü adlarına göre görüntüleri hızlı ve kolay bir şekilde ekleyebilirsiniz.

Kurduktan sonra Kutools for Excellütfen şunu yapın:

1. tıklayın Kutools Artı > İthalat ihracat > İçe Aktarılmış Resimleri Eşleştir, ekran görüntüsüne bakın:

2. Dışarı fırladı İçe Aktarılmış Resmi Eşleştir iletişim kutusu, lütfen aşağıdaki işlemleri yapın:

  • İçe aktarma siparişi açılır listesinden resim sırasını belirtin, seçebilirsiniz Hücreden sonra hücreyi dikey olarak doldur or Hücreden sonra hücreyi yatay olarak doldur;
  • Daha sonra Maç aralığı metin kutusunda, resimleri temel alarak eklemek istediğiniz resim adlarını seçin;
  • Ve sonra tıklayın Ekle resimleri eklemek için görüntü dosyalarını veya klasörü seçmek için Resim listesi;
  • Ardından, resim boyutunu belirlemelisiniz. lütfen tıklayın İçe aktarma boyutu düğmesi Resim Boyutunu İçe Aktar iletişim kutusu, ihtiyacınız olan bir resim boyutu seçin.

3. Ayarları tamamladıktan sonra lütfen tıklayın ithalat düğmesi, bir hücre veya bir hücre listesi seçin. İçe Aktarılmış Resimleri Eşleştir iletişim kutusu, ekran görüntüsüne bakın:

4. Daha sonra, OKve hücre değerleriyle eşleşen adların eklendiği tüm resimler, ekran görüntüsüne bakın:


URL'lerden resim veya resim ekleyin veya görüntüleyin

Resimleri bir URL listesinden görüntülemeyi veya eklemeyi hiç denediniz mi? Görüntüleri doğrudan Excel'e eklemek için başka iyi bir yöntem olmayabilir, ancak bununla başa çıkmak için bir kod veya üçüncü taraf bir araç uygulayabilirsiniz.

VBA kodu ile URL'lerden resim veya resim ekleyin veya görüntüleyin

Resimleri bir URL listesine göre eklemek için lütfen aşağıdaki VBA kodunu uygulayın.

1. İlk olarak, görüntüleri bulmak istediğiniz bitişik hücre boyutunu ayarlayın.

2. Basılı tutun ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.

3. tıklayın Ekle > modülve aşağıdaki makroyu modül pencere.

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 görüntüleri çıkarmak istediğiniz URL adreslerini içeren hücre aralığıdır, hücre referanslarını ihtiyacınıza göre değiştirmelisiniz.

4. Daha sonra tuşuna basın. F5 Bu kodu çalıştırmak için anahtar, eşleşen resimler URL'lerden bitişik sütuna çıkarılacak ve hücrelerin ortasına yerleştirilecektir, ekran görüntüsüne bakın:


Şaşırtıcı bir özelliğe sahip URL'lerden resim veya resim ekleyin veya görüntüleyin

Kutools for Excel harika bir özelliğe sahiptir - Yoldan Resimler Ekle (URL). Bu yardımcı programla, ilgili resimler URL'lerden hızlı ve kolay bir şekilde çıkarılacaktır.

Kurduktan sonra Kutools for Excellütfen aşağıdaki adımları izleyin:

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

2. Dışarı fırladı Yoldan Resimler Ekle (URL) iletişim kutusu, lütfen aşağıdaki işlemleri ayarlayın:

  • URL hücrelerinin listesini ve görüntüleri yerleştirmek istediğiniz hücre aralığını seçin;
  • İhtiyacınız olan görüntülerin boyutunu şuradan belirtin: Resim Boyutu Bölüm.

3. Ve sonra tıklayın Ok düğmesi ve tüm resimler URL'lerden çıkarılmıştır, ekran görüntüsüne bakın:


Dosya yollarından resim veya resim ekleyin veya görüntüleyin

Görüntüleri dosya yolundan eklemeniz gerekiyorsa, burada da sizin için çözümler sunulmaktadır.

VBA kodu ile dosya yollarından resim veya resim ekleyin veya görüntüleyin

Görüntüleri görüntü dosyası yollarına göre eklemek için aşağıdaki VBA kodunu uygulayabilirsiniz.

1. Basılı tutun ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.

2. tıklayın Ekle > modülve ardından aşağıdaki kodu modül Pencere.

VBA kodu: Çeşitli dosya yollarından görüntüler 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 girdikten sonra, F5 Bu kodu çalıştırmak için tuşuna basın, ardından bir komut kutusu açılır, lütfen dosya yolunun hücrelerini seçin, ekran görüntüsüne bakın:

4. Sonra tıklayın OK düğmesi, dosya yollarını temel alan tüm resimler, aşağıdaki ekran görüntüsü gibi bir sonraki sütunda görüntülenir:


Şaşırtıcı bir özelliğe sahip dosya yollarından resim veya resim ekleyin veya görüntüleyin

Kutools for Excel'S Yoldan Resimler Ekle (URL) özelliği ayrıca dosya yolundaki ilgili görüntüleri görüntülemenize de yardımcı olabilir.

Kurduktan sonra Kutools for Excellütfen şunu yapın:

1. tıklayın Kutools > Ekle > Yoldan Resimler Ekle (URL), açılan iletişim kutusunda, lütfen dosya yolu aralığını, görüntülerin çıktısını alma aralığını, ihtiyacınız olan görüntü boyutunu belirtin, ekran görüntülerine bakın:

2. Seçenekleri ayarladıktan sonra Ok düğmesi, görüntüler seçilen hücrelere aynı anda eklenecektir, ekran görüntüsüne bakın:


Yoruma resim veya resim ekleyin

Hücreye resim eklemek kolay olabilir, ancak bazen bir yorum kutusuna bir resim eklemek isteyebilirsiniz, bu görevle nasıl başa çıkarsınız?

1. Yorum eklemek istediğiniz hücreyi seçin ve sağ tıklayın ve ardından Yorum Ekle, ekran görüntüsüne bakın:

İpuçları: Bir yorum eklediyseniz, lütfen bu adımı atlayın.

2. Ardından, imlecin dört ok simgesine dönüştüğünü görene kadar imleci yorum kutusunun kenarlarına getirin. Ve sonra sağ tıklayıp seçin Açıklamayı Biçimlendir seçenek, ekran görüntüsüne bakın:

3. Dışarı fırladı Açıklamayı Biçimlendir iletişim kutusunu tıklayın Renkler ve Çizgiler sekmesini ve ardından seçin Dolgu Efektleri itibaren Renk açılır liste, ekran görüntüsüne bakın:

4. Sonra, aşağıda Dolgu Efektleri iletişim kutusunu tıklayın Resim sekmesini tıklayın ve tıklayın. Resim Seç eklemek istediğiniz bir resmi seçmek için düğme, ekran görüntüsüne bakın:

5. Ve sonra tıklayın OK > OK, resim yorum kutusuna eklendi, ekran görüntüsüne bakın:


Üstbilgi veya altbilgiye resim veya resim ekleyin

Excel çalışma sayfanızın üstbilgi veya altbilgisine bir resim eklemek istiyorsanız, bu bölümdeki adımlar size yardımcı olabilir, lütfen şu şekilde yapın:

1. Resmi üst bilgi veya alt bilgiye eklemek istediğiniz çalışma sayfasını etkinleştirin.

2. Daha sonra, Ekle > Üstbilgi Altbilgive sen şuraya gideceksin Üstbilgi ve Altbilgi Araçları sekmesi. Ekran görüntüsüne bakın:

3. Üstbilgi veya altbilgiye bir resim eklemek için, lütfen ihtiyacınız olan sol, sağ veya orta üstbilgi veya altbilgi kutusuna tıklayın ve ardından Resim altında Dizayn sekmesi, ekran görüntüsüne bakın:

4. Sonra bir Resimleri Ekle penceresi açılacaktır, lütfen eklemek istediğiniz resmi seçin ve Ekle'ye tıklayın. Şimdi, bir &[Resim] yer tutucu, üstbilgi veya altbilgi kutusunda görünecektir. Üstbilgi veya altbilgi kutusunun dışında herhangi bir yere tıklayın, eklenen resim aşağıda gösterilen ekran görüntüsü gibi görüntülenecektir:

İpuçları: Bazen, aşağıda gösterilen ekran görüntüsü gibi resmin çalışma sayfasının veri alanıyla örtüştüğünü görebilirsiniz. Bunun nedeni, görüntünün çok büyük olması ve üstbilgi veya altbilgi bölüm kutusuna otomatik olarak sığması için yeniden boyutlandırılmamasıdır.

Bu sorunu çözmek için üstbilgi veya altbilgideki resmi yeniden boyutlandırmanız yeterlidir, lütfen aşağıdaki adımları uygulayın:

1. Görüntünün bulunduğu üstbilgi veya altbilgi bölümüne tıklayın ve ardından Resmi Biçimlendir altında Dizayn sekmesi, ekran görüntüsüne bakın:

2. In Resmi Biçimlendir iletişim kutusunun altında beden sekmesi, lütfen görüntünün boyutunu üstbilgi veya altbilgi bölüm kutusuna sığacak şekilde ayarlayın, ekran görüntüsüne bakın:

3. Ve sonra tıklayın OK, sonucu ihtiyacınız olduğu kadar alacaksınız.


Aynı resmi veya resmi birden çok çalışma sayfasına ekleyin

Bazen, çalışma kitabınızın tüm çalışma sayfalarına bir logo resmi eklemek isteyebilirsiniz, normalde resmi bir sayfadan diğerine birer birer eklemek için Ekle işlevini uygulayabilirsiniz. Bu zaman alan özellik dışında, aşağıdaki VBA kodu, aynı resmi tüm sayfaların belirli hücresine aynı anda eklemenize yardımcı olabilir. Lütfen aşağıdaki adımları uygulayın:

1. Basılı tutun ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.

2. tıklayın Ekle > modülve aşağıdaki kodu modül Pencere.

VBA kodu: Aynı resmi tüm çalışma sayfalarına ekleyin:

Sub InsertImagetoallsheets()
'Updateby Extendoffice
    Dim I As Long
    Dim xPath As String
    Dim xShape As Shape
    Dim xRg As Range
    xPath = "C:\Users\AddinTestWin10\Desktop\my images\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

not: Yukarıdaki kodda, C: \ Kullanıcılar \ AddinTestWin10 \ Masaüstü \ resimlerim \ logo.png resmin yolu ve adıdır ve A1 in Aralık ("A1") resmi eklemek istediğiniz hücredir, lütfen ihtiyacınıza göre değiştirin.

3. Daha sonra tuşuna basın. F5 Bu kodu çalıştırmak için anahtar ve belirli resim hemen her çalışma sayfasının A1 hücresine eklenmiştir. Aşağıdaki demoya bakın:


Hücre içeriğinin arkasına resim veya resim ekle

Çalışma sayfası verilerini daha güzel ve çekici hale getirmek için bir resmi arka plan olarak kullanabilirsiniz. Hücre içeriğinin arkasına bir resim eklemek için, işte size bir iyilik yapabilecek bazı yöntemler.

Arka Plan özelliği ile hücre içeriğinin arkasına resim veya resim ekleyin

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

2. Daha sonra, Sayfa Düzeni > Olayın Arka Planı, ekran görüntüsüne bakın:

3. Dışarı fırladı Resimleri Ekle penceresi, lütfen ihtiyacınız olan bilgisayarınızdan, web sitenizden veya OneDrive'dan bir resim seçin, ekran görüntüsüne bakın:

4. Şimdi, resim aşağıda gösterilen ekran görüntüsü gibi çalışma sayfasına arka plan olarak eklenmiştir:

İpuçları: Arka plan resmini silmek için Sayfa Düzeni > Arka Planı Sil. Ekran görüntüsüne bakın:


Hücre içeriğinin arkasına şeffaf resim veya resim ekleyin

Yukarıdaki yöntemle, eklenen arka plan görüntüsünün saydamlığını değiştiremezsiniz, bu nedenle, arka plan görüntüsünün rengi ağırsa, çalışma sayfasının verilerini okumanız sizin için uygun olmayacaktır. Bu bölümde hücrelerin arkasına nasıl şeffaf bir resim ekleyeceğimi anlatacağım.

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

2. Ardından, aktif çalışma sayfasında ihtiyaç duyduğunuz kadar büyük bir şekil çizin.

3. Şekli çizdikten sonra, bir çizim Araçları sekmesi şeritte görüntülenir ve ardından oluşturulan > Şekil Anahattı > Anahat Yok, ekran görüntüsüne bakın:

4. Ardından, şekle sağ tıklayın ve Şekli Biçimle bağlam menüsünden, ekran görüntüsüne bakın:

5. Genişletilmiş Şekli Biçimle bölmenin altında Dolum hattı sekmesi, aşağıdaki işlemleri yapın:

  • Altında Doldurmak bölümünde, seçin Resim veya doku dolgusu seçenek;
  • Tıkla Ekle düğmesinden Resim kaynağıve eklemek istediğiniz bir resmi seçin;
  • Ardından, resmin şeffaflığını ihtiyacınıza göre ayarlayın. Şeffaflıky bölümü.

6. Ve sonra, resimlerle dolu şeklin, yukarıda gösterilen ekran görüntüsü gibi bir arka plan resmine benzediğini göreceksiniz.

not: Bu tür arka plan resmini ekledikten sonra, resim aralığına herhangi bir metin girmenize izin verilmeyecektir.


Filigran olarak hücre içeriğinin arkasına şeffaf görüntü veya resim ekleyin

Yukarıdaki yöntemlerin her ikisinin de kendi sınırlamaları vardır, birinci yöntem görüntü şeffaflığını değiştiremez, ikinci yöntem resim alanı içindeki hücrelere metin girilmesine izin vermez. Bu sorunları çözmek için, Kutools for Excel'S Filigranı ekle özelliği size bir iyilik yapabilir.

Kurduktan sonra Kutools for Excellütfen şunu yapın:

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

2. Dışarı fırladı Filigranı ekle iletişim kutusunu seçin Resim FiligranıVe ARDINDAN tıklayın Resim Seç eklemek istediğiniz bir görüntüyü seçmek için düğmesine basın ve ardından görüntü ölçeğini belirtin ve Washout seçeneğini işaretleyin, ekran görüntüsüne bakın:

3. Daha sonra, Ok düğmesi, resim çalışma sayfasına arka plan resmi olarak eklenmiştir.


Excel'de görüntü veya resim formatı olarak bir dizi hücre ekleyin

Hiç bir dizi hücreyi kopyalamayı ve Excel'de görüntü olarak eklemeyi denediniz mi? Bu bölümde, Excel'de bu işle başa çıkmanın bazı hızlı yollarını tanıtacağım.

Resim Olarak Kopyala özelliğiyle görüntü veya resim formatı olarak bir dizi hücre ekleyin

Excel'de, Resim olarak kopyala görüntü olarak bir hücre aralığını kopyalamak ve eklemek için işlev.

1. Kopyalamak ve görüntü olarak eklemek istediğiniz hücre aralığını seçin.

2. Daha sonra, Ana Sayfa > kopya > Resim olarak kopyala, ekran görüntüsüne bakın:

3. Dışarı fırladı Resmi Kopyala iletişim kutusunu seçin Resim itibaren oluşturulan bölümü, ekran görüntüsüne bakın:

4. Daha sonra, OK düğmesi, şimdi sadece basmanız gerekiyor Ctrl + V resmi çalışma kitabının herhangi bir yerine yapıştırmak için.


Kamera aracıyla görüntü veya resim formatı olarak bir dizi hücre ekleyin

Excel'de bir Kamera seçtiğiniz veriler için bir fotoğraf çekmenizi ve ardından görüntü olarak yapıştırmanızı sağlayan araç. Orijinal veriler değiştiğinde, kopyalanan görüntü dinamik olarak değiştirilecektir.

İlk önce, görüntülemelisiniz Kamera şerit üzerine yerleştirin ve ardından uygulayın.

1. tıklayın Hızlı erişim araç çubuğunu özelleştir simgesine ve ardından Daha Komutlar seçenek, ekran görüntüsüne bakın:

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

  • seç Tüm Komutlar itibaren Komutları seçin yıkılmak;
  • Ardından, seçmek için kaydırın Kamera liste kutusundan;
  • Ve sonra tıklayın Ekle Bu aracı, Hızlı erişim araç çubuğunu özelleştir;
  • Sonunda, tıklayın OK bu iletişim kutusunu kapatmak için.

3. Ve Kamera araç şeritte görüntülendi, ekran görüntüsüne bakın:

4. Ardından, bir görüntü almak istediğiniz hücre aralığını seçin.

5. Ve sonra, Kamera aracı, ardından çalışma sayfasına gidin ve herhangi bir yere tıklayın, veri aralığı aşağıda gösterilen demo gibi bir resim olarak eklenecektir:


Yararlı bir özellikle görüntü veya resim formatı olarak bir dizi hücre ekleyin

Eğer varsa Kutools for Excel, Onun ile Kaynak Kütüphanesi özelliği, seçilen verileri kaydedebilirsiniz. Kaynak Kütüphanesive sonra istediğiniz gibi gelecek için resim veya metin olarak kullanın.

Kurduktan sonra Kutools for Excellütfen şunu yapın:

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

2. Daha sonra, Kutools > Navigasyon, ekran görüntüsüne bakın:

3. Genişletilmiş Navigasyon bölme, tıkla Kaynak Kütüphanesi simgesine ve ardından Seçili içeriği Kaynak Kitaplığına ekle simgesi, ekran görüntüsüne bakın:

4. In Yeni Kaynak Kitaplığı girişi iletişim kutusunda, bu öğe için bir ad belirtin ve ardından eklemek istediğiniz grubu seçin. Ekran görüntüsüne bakın:

5. Daha sonra, Ekle eklemek için Kaynak Kütüphanesi bölme. Bu aralığı resim olarak eklemek isterseniz, resmi bulmak için bir hücreye tıklamanız ve ardından kaydedilen öğeyi listeden bulmanız yeterlidir. Kaynak Kütüphanesi bölmeye gidin ve tıklayın Olarak ekle > Resim (EMF) öğenin açılır listesinden. Ve veri aralığı sayfaya bir resim olarak eklenecektir, ekran görüntülerine bakın:


Dinamik olarak hücre değerine göre resim veya resim ekleyin

Bu bölümde, bir hücre değerine göre belirli bir görüntünün nasıl görüntüleneceğini göstereceğim. Örneğin, bir açılır hücreden belirli bir öğeyi seçtiğimde karşılık gelen resmi göstermek istiyorum ve başka birini seçtiğimde, aşağıdaki demoda gösterildiği gibi resim dinamik olarak değişecek:

Adlandırılmış aralık özelliği ile dinamik olarak hücre değerine dayalı resim veya resim ekleyin

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

1. İlk olarak, ü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, lütfen hücre değerleri için bir açılır liste oluşturun. Açılır listenin çıktısını almak için bir hücreyi tıklayın, ardından Veri > veri Doğrulama > veri Doğrulama, ekran görüntüsüne bakın:

3. Dışarı fırladı veri Doğrulama iletişim kutusunun altında Ayarlar sekmesini seçin Liste itibaren izin vermek açılır listeden oluşturmak istediğiniz hücreleri seçin. Kaynak metin kutusu, ekran görüntüsüne bakın:

4. tıklayın OKve hücre değerlerini içeren açılır liste oluşturuldu, açılır listeden bir öğe seçin, ekran görüntüsüne bakın:

5. Daha sonra, Formüller > Adı Tanımla, ekran görüntüsüne bakın:

6. In Yeni isim iletişim kutusu, lütfen aşağıdaki işlemleri yapın:

  • Myimage adlı bir ad girin. İsim Metin kutusu;
  • 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) Metin kutusuna başvurur.

not: Yukarıdaki formülde:

  • Sayfa11! $ A $ 2: $ B $ 6: kullanmak istediğiniz değerleri ve resimleri içeren çalışma sayfası ve aralıktır;
  • Sayfa11! $ E $ 2: açılır listeyi oluşturduğunuz çalışma sayfasındaki hücredir;
  • Sayfa11! $ A $ 2: $ A $ 6: aşağı açılır listeyi temel alarak oluşturduğunuz hücrelerin listesidir;
  • Değişken numarası 2 görüntüleri içeren sütun numarasıdır. Resimleriniz C sütunundaysa, 3 girmelisiniz.

7. Ve sonra tıklayın OK düğmesini, ardından lütfen ilgili resmi orijinal aralıktan F2 hücresine E2'deki hücre değerine göre kopyalayıp yapıştırın, ekran görüntüsüne bakın:

8. Ardından, lütfen F2 hücresindeki resmi seçin ve ardından bu formülü girin. = resmim (görüntüm 6. adımda formül çubuğunda oluşturduğunuz aralık adıdır, ekran görüntüsüne bakın:

9. Formülü girdikten sonra Keşfet tuşu ve şimdi, açılır listeden bir öğe seçtiğinizde, ilgili resmi hemen görüntülenecektir. Ekran görüntüsüne bakın:


Kullanışlı bir özellik ile dinamik olarak hücre değerine dayalı resim veya resim ekleyin

Yukarıdaki yöntem çoğumuz için zor olabilir, burada kullanışlı bir özellik sunacağım - Resim Açılır Listesi of Kutools for Excel, bu kullanışlı araçla, yalnızca birkaç tıklama ile ilgili görüntüleriyle birden çok açılır liste oluşturabilirsiniz.

Kurduktan sonra Kutools for Excellütfen aşağıdaki adımları izleyin:

1. İlk olarak, çalışma sayfanızdaki ürün adlarını ve ilgili resimleri içeren iki sütun oluşturmalısınız.

2. Ve sonra tıklayın Kutools > Açılır liste > Resim Açılır Listesi, ekran görüntüsüne bakın:

3. In Resim Açılır Listesi iletişim kutusu, hücre değerleri ve görüntülerin sütunlarını oluşturduysanız, lütfen 1. adımı yoksayın, ardından orijinal verileri ve görüntü aralığını ve çıktı aralığını seçin, ekran görüntüsüne bakın:

4. Ve sonra tıklayın Ok düğmesi, görüntülerin bulunduğu açılır listeler seçili hücrelere oluşturulmuştur ve açılır hücreden bir öğe seçildiğinde, ilgili resmi hemen görüntülenecektir, aşağıdaki demoya bakın:


Tüm görüntüleri veya resimleri bir Excel dosyasından dışa aktarın veya kaydedin

Çalışma kitabınızda birden çok resim varsa ve şimdi, tüm resimleri Excel dosyasından bir klasöre ayıklayıp kaydetmek istiyorsunuz. Bu görevi Excel'de nasıl çözebilirsin?

Farklı Kaydet özelliğiyle Excel'deki tüm resimleri veya resimleri dışa aktarın veya kaydedin

Normalde şunu kullanabilirsiniz: Farklı Kaydet çalışma kitabındaki tüm resimleri kaydetme özelliği, lütfen şu şekilde yapın:

1. tıklayın fileto > Farklı Kaydet, In Farklı Kaydet penceresinde, dışa aktarılan dosyaların yerleştirileceği bir klasör belirtin ve ardından Web Sayfası (*. Htm; *. Html) itibaren Olarak kaydet açılır listeyi yazın, ekran görüntüsüne bakın:

2. Ve sonra tıklayın İndirim düğmesi, belirli bir klasöre gidin, iki dosya göreceksiniz, biri HTML format dosyası ve diğeri çalışma kitabındaki resimleri, grafikleri veya diğer nesneleri içeren bir klasördür. Ekran görüntüsüne bakın:

3. Ardından yalnızca görüntüleri ihtiyaç duyduğunuz şekilde başka bir klasöre sürükleyebilirsiniz.

not: Bunu kullanarak Farklı Kaydet özelliği, her resmi iki kez alırsınız, biri daha küçük, diğeri daha büyüktür, böylece daha yüksek çözünürlüklü görüntüleri ihtiyacınız olduğu kadar kaydedebilirsiniz.


Dosya uzantısını değiştirerek tüm görüntüleri veya resimleri Excel'den dışa aktarın veya kaydedin

Excel dosyasındaki tüm resimleri kaydetmek için dosya uzantısını RAR olarak da değiştirebilirsiniz. Lütfen şunu yapın:

1. Dosya uzantısını değiştirin xlsx için rar aşağıda gösterilen ekran görüntüsü gibi:

2. Ardından, dosyayı açın ve klasörde 3 klasör ve 1 dosya göreceksiniz, ekran görüntüsüne bakın:

3. Ardından, açmak için tıklayın. xl klasörünü açın ve ardından medya klasör, tüm resimlerin kopyasız olarak burada saklandığını göreceksiniz, ekran görüntüsüne bakın:


Güçlü bir özellikle Excel'deki tüm resimleri veya resimleri dışa aktarın veya kaydedin

Eğer varsa Kutools for Excel, Onun ile Grafikleri Dışa Aktar özelliği sayesinde, resimler, çizelgeler, şekiller gibi bazı belirli nesneleri ihtiyaç duyduğunuz şekilde görüntü formatına hızlı bir şekilde dışa aktarabilirsiniz.

Kurduktan sonra Kutools for Excellütfen aşağıdaki adımları izleyin:

1. tıklayın Kutools Artı > İthalat ihracat > Grafikleri Dışa Aktar, ekran görüntüsüne bakın:

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

  • Klinik Fotoğraf Galerisi seçeneği Türleri açılır liste;
  • Dışa aktarılan resimlerinizi kaydetmek için bir klasör belirtin;
  • Ardından açılır listeyi tıklayın. Dışa aktarma biçimi Resimleriniz için bir format seçmek için.

3. Sonunda, tıklayın Ok düğmesi, mevcut çalışma kitabındaki tüm resimler belirttiğiniz klasöre kaydedildi, ekran görüntüsüne bakın:


Excel'deki hücre listesine göre bir klasördeki görüntü adlarını yeniden adlandırın

Bir klasörde çok sayıda resminiz varsa ve şimdi tüm bu resimleri yeniden adlandırmak istiyorsanız, bu işi Excel'de kolay bir şekilde nasıl çözebilirsiniz?

Excel'de, önce tüm eski görüntü adlarını bir sütuna listelemeli, ardından yeni adları yazmalı, sonunda eski adları yeni adlarla değiştirmek için bir defada bir VBA kodu uygulamalısınız. Lütfen aşağıdaki adımları uygulayın:

1. Lütfen tüm resim adlarını bir hücre listesine listeleyin veya aşağıdaki kodu, belirli bir klasördeki tüm resim adlarını manuel olarak tek tek yazmadan listelemek için uygulayabilirsiniz.

2. Bastır ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic Pencere.

3. tıklayın Ekle > modülve aşağıdaki makroyu modül pencere.

VBA kodu: bir klasördeki tüm görüntü adlarını listeleyin

Sub MainList()
'Updateby Extendoffice
On Error Resume Next
Set xRg = Application.InputBox("Please select a cell to put the filenames:", "KuTools For Excel", Selection.Address, , , , , 8)
If xRg Is Nothing Then Exit Sub
Set xRg = xRg(1)
Set Folder = Application.FileDialog(msoFileDialogFolderPicker)
If Folder.Show <> -1 Then Exit Sub
xDir = Folder.SelectedItems(1)
Call ListFilesInFolder(xRg, xDir, True)
End Sub
Sub ListFilesInFolder(ByVal xRg As Range, ByVal xFolderName As String, ByVal xIsSubfolders As Boolean)
Dim xFileSystemObject As Object
Dim xFolder As Object
Dim xSubFolder As Object
Dim xFile As Object
Dim rowIndex As Long
Set xFileSystemObject = CreateObject("Scripting.FileSystemObject")
Set xFolder = xFileSystemObject.GetFolder(xFolderName)
rowIndex = 1
For Each xFile In xFolder.Files
xRg.Formula = xFile.Name
Set xRg = xRg.Offset(rowIndex)
rowIndex = 1
Next xFile
If xIsSubfolders Then
For Each xSubFolder In xFolder.SubFolders
ListFilesInFolder xRg, xSubFolder.Path, True
Next xSubFolder
End If
Set xFile = Nothing
Set xFolder = Nothing
Set xFileSystemObject = Nothing
End Sub

4. Daha sonra, tuşuna basın. F5 Bu kodu çalıştırmak için anahtar ve bir komut kutusu açılır, lütfen görüntü adlarının çıktısının alınacağı bir hücreyi tıklayın, ekran görüntüsüne bakın:

5. Daha sonra, OKBaşka Araştır iletişim kutusu açılır, lütfen tüm resim adlarını listelemek istediğiniz resimleri içeren klasörü seçin, ekran görüntüsüne bakın:

6. tıklayın OK, belirli klasördeki tüm resim adları hücrelere listelenmiştir, ekran görüntüsüne bakın:

7. Ardından, ihtiyacınız olan yeni adları aşağıda gösterilen ekran görüntüsü gibi başka bir sütuna yazın:

8. Ardından, resimleri yeniden adlandırmak için aşağıdaki kodu uygulayabilir, düğmesine basmaya devam edebilirsiniz. ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic Pencere.

9. tıklayın Ekle > modülve aşağıdaki makroyu modül pencere.

VBA kodu: Bir klasördeki birden çok dosyayı yeniden adlandırın

Sub RenameFiles()
'Updateby Extendoffice
Dim xDir As String
Dim xFile As String
Dim xRow As Long
With Application.FileDialog(msoFileDialogFolderPicker)
    .AllowMultiSelect = False
If .Show = -1 Then
    xDir = .SelectedItems(1)
    xFile = Dir(xDir & Application.PathSeparator & "*")
    Do Until xFile = ""
        xRow = 0
        On Error Resume Next
        xRow = Application.Match(xFile, Range("A:A"), 0)
        If xRow > 0 Then
            Name xDir & Application.PathSeparator & xFile As _
            xDir & Application.PathSeparator & Cells(xRow, "B").Value
        End If
        xFile = Dir
    Loop
End If
End With
End Sub

not: Yukarıdaki kodda, A: A yeniden adlandırmak istediğiniz eski görüntü adları listesini gösterir ve B kullanmak istediğiniz yeni resim adlarını içerir, bunları ihtiyacınıza göre değiştirebilirsiniz.

10. Daha sonra, tuşuna basın. F5 bu kodu çalıştırmak için anahtar ve açılır Araştır pencere, yeniden adlandırmak istediğiniz görüntüyü içeren klasörü seçin, ekran görüntüsüne bakın:

11. Ve sonra tıklayın OK düğmesi, tüm resim adları aşağıda gösterilen ekran görüntüsü gibi yeni adlarla değiştirilmiştir:


Üzerine tıklandığında resmi büyüt veya küçült

Farz edelim ki, çalışma sayfasına küçük bir resim eklediniz, şimdi, üzerine tıkladığınızda resmi büyütmek ve aşağıda gösterildiği gibi tekrar tıkladığınızda küçültmek istiyorsunuz. Bu görevi Excel'de nasıl çözebilirsin?

Üzerine tıkladığınızda görüntü boyutunu büyütmek veya küçültmek için aşağıdaki kod size bir iyilik yapabilir. Lütfen aşağıdaki adımları uygulayın:

1. Resme sağ tıklayın ve Makro Ata, ekran görüntüsüne bakın:

2. Sonra, dışarı çıkan Makro Ata iletişim kutusunda, yeni düğmesi, ekran görüntüsüne bakın:

3. In Uygulamalar için Microsoft Visual Basic penceresi, lütfen aşağıdaki kodu kopyalayıp arasına yapıştırın. Alt ve End Sub kodları. Ekran görüntüsüne bakın:

Dim shp As Shape
    Dim big As Single, small As Single
    Dim shpDouH As Double, shpDouOriH As Double
    big = 3  
    small = 1
    On Error Resume Next
    Set shp = ActiveSheet.Shapes(Application.Caller)
    With shp
        shpDouH = .Height
        .ScaleHeight 1, msoTrue, msoScaleFromTopLeft
        shpDouOriH = .Height
     
        If Round(shpDouH / shpDouOriH, 2) = big Then
            .ScaleHeight small, msoTrue, msoScaleFromTopLeft
            .ScaleWidth small, msoTrue, msoScaleFromTopLeft
            .ZOrder msoSendToBack
        Else
            .ScaleHeight big, msoTrue, msoScaleFromTopLeft
            .ScaleWidth big, msoTrue, msoScaleFromTopLeft
            .ZOrder msoBringToFront
        End If
    End With

4. Daha sonra tuşuna basın. Alt+Q kapatmak için anahtarlar Uygulamalar için Microsoft Visual Basic pencere. Şimdi, resme tıkladığınızda, belirttiğiniz boyuta büyütülecek ve tekrar tıkladığınızda, aşağıdaki demoda gösterildiği gibi orijinal boyutuna küçülecektir:


Çalışma sayfasını kaydırırken her zaman bir resmi kaydır

Bazen, çalışma sayfasını yukarı veya aşağı kaydırsanız bile, çalışma sayfası ekranında bir resmi kaydırmak isteyebilirsiniz, böylece resmi her zaman görebilirsiniz. Bu bölümde, Excel'de bu işi halletmeniz için hızlı bir numara sunacağım. Lütfen aşağıdaki adımları izleyin:

1. İlk önce kullanmak istediğiniz bir resim ekleyin.

2. Ardından, her zaman görünür olmasını istediğiniz resmi içeren sayfa sekmesine sağ tıklayın ve ardından Kodu Görüntüle bağlam menüsünden. Açılan Uygulamalar için Microsoft Visual Basic penceresinde aşağıdaki kodu kopyalayıp boş Modüle yapıştırın:

VBA kodu: Her zaman bir çalışma sayfasındaki bir resmi kaydırın

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Updateby Extendoffice
    Application.ScreenUpdating = False
    If Target.Cells.Count > 1 Then Exit Sub
        With ActiveSheet.Shapes("Picture1")
            .Top = ActiveWindow.VisibleRange.Top + 5
            .Left = ActiveWindow.VisibleRange.Left + ActiveWindow.VisibleRange.Width - .Width - 45
        End With
    Application.ScreenUpdating = False
End Sub

not: Bu kodda, Resim 1 eklediğiniz resim adıdır, lütfen ihtiyacınıza göre değiştirin.

3. Ardından, çalışma sayfasını kaydırırken ve bir hücreyi tıklarken, kod penceresini kaydedin ve kapatın, resim her zaman çalışma sayfasının sağ üst köşesinde tutulacaktır. Ekran görüntüsüne bakın:


Etkin sayfadan / bir dizi hücreden resimleri veya resimleri silin

Tüm resimleri bir çalışma sayfasından, bir dizi hücreden veya mevcut çalışma kitabından silmenin hızlı bir yolu var mı? Bu bölümde, bu işi Excel'de çözmek için bazı yöntemler tanıtacağım.

Etkin sayfadaki görüntüleri veya resimleri VBA kodu ile silin

Resimleri mevcut çalışma sayfasından silmek için aşağıdaki VBA kodu size yardımcı olabilir, lütfen şu şekilde yapın:

1. Silmek istediğiniz görüntüleri içeren çalışma sayfasını etkinleştirin.

2. Basılı tutun ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.

3. tıklayın Ekle > modülve aşağıdaki makroyu modül Pencere.

VBA kodu: Geçerli çalışma sayfasındaki tüm resimleri sil

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

4. Daha sonra, tuşuna basın. F5 Bu kodu çalıştırmak için anahtar ve etkin çalışma sayfasındaki tüm resimler bir defada silinir.


VBA kodu ile bir dizi hücreden görüntüleri veya resimleri silin

Görüntüleri yalnızca bir dizi hücreden silmeniz gerekiyorsa, işte size yardımcı olabilecek başka bir basit kod.

1. Basılı tutun ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.

2. tıklayın Ekle > modülve aşağıdaki makroyu modül Pencere.

VBA kodu: Resimleri bir dizi hücreden 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. Daha sonra, tuşuna basın. F5 Bu kodu çalıştırmak için anahtar ve seçilen aralıktaki resimler bir kerede silinecektir, ekran görüntülerine bakın:


Etkin sayfadaki, seçilen sayfalardaki, tüm sayfalardaki resimleri veya resimleri kullanışlı bir özellik ile silin

Eğer varsa Kutools for Excel, Onun ile Resimleri ve Nesneleri Sil özelliği, resimleri bir çalışma sayfasından, seçilen bazı sayfalardan veya tüm çalışma kitabından hızlı bir şekilde silebilirsiniz.

Kurduktan sonra Kutools for Excellütfen aşağıdaki adımları izleyin:

1. tıklayın Kutools > Sil > Resimleri ve Nesneleri Sil, ekran görüntüsüne bakın:

2. Açılan Resimleri ve Nesneleri Sil iletişim kutusu, işaretleyin Fotoğraf Galerisi itibaren Sil bölümünü seçin ve ardından resimleri silmek istediğiniz kapsamı belirtin. arama konumu bölümü, ekran görüntüsüne bakın:

3. Sonra tıklayın Ok düğmesi ve tüm resimler belirttiğiniz gibi çalışma sayfasından, seçilen çalışma sayfalarından veya tüm çalışma kitabından silinecektir.


  • Süper Formül Çubuğu (birden çok metin ve formül satırını kolayca düzenleyin); Okuma Düzeni (çok sayıda hücreyi kolayca okuyun ve düzenleyin); Filtrelenmiş Aralığa Yapıştır...
  • Hücreleri / Satırları / Sütunları Birleştirme ve Verilerin Saklanması; Bölünmüş Hücre İçeriği; Yinelenen Satırları ve Toplam / Ortalamayı Birleştirme... Yinelenen Hücreleri Önleyin; Aralıkları Karşılaştır...
  • Yinelenen veya Benzersiz'i seçin Satırlar; Boş Satırları Seçin (tüm hücreler boştur); Süper Bul ve Bulanık Bul Birçok Çalışma Kitabında; Rastgele Seçim ...
  • Tam kopya Formül referansını değiştirmeden Birden Çok Hücre; Otomatik Referans Oluştur Birden Çok Sayfaya; Madde İşaretleri Ekle, Onay Kutuları ve daha fazlası ...
  • Sık Kullanılan ve Hızlı Eklenen Formüller, Aralıklar, Grafikler ve Resimler; Hücreleri Şifrele şifre ile; Posta Listesi Oluşturun ve e-posta gönder ...
  • Metni Çıkar, Metin Ekle, Konuma Göre Kaldır, Alanı Kaldır; Sayfalama Alt Toplamları Oluşturma ve Yazdırma; Hücre İçeriği ve Yorumları Arasında Dönüştür...
  • Süper Filtre (filtre şemalarını kaydedin ve diğer sayfalara uygulayın); Gelişmiş Sıralama ay / hafta / gün, sıklık ve daha fazlasına göre; Özel Filtre kalın, italik ...
  • Çalışma Kitaplarını ve Çalışma Sayfalarını Birleştirin; Tabloları anahtar sütunlara göre birleştirin; Verileri Birden Çok Sayfaya Bölme; Toplu dönüştürme xls, xlsx ve PDF...
  • Pivot Tablo Gruplaması hafta numarası, haftanın günü ve daha fazlası ... Kilidi Açılmış, Kilitli Hücreleri Göster farklı renklerle; Formülü / Adı Olan Hücreleri Vurgulayın...
kte sekmesi 201905
  • Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
  • Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
  • Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!
ofis tabanı
Comments (5)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Geachte,

Zeer interesse pagina.

Wel stel ik me de vraag hoe we na input van de foto's, die foto's in het midden van de cel krijgen.

Bestaat er hier ook een macro voor.?
This comment was minimized by the moderator on the site
Hello,
There are several vba codes in this article, which VBA code do you need to put the pictures in center of the cells?
Thank you!
This comment was minimized by the moderator on the site
Good afternoon,

Very nice page.

Only I tried the VBA of "Insert Multiple Images Or Images That Match Their Names With VBA Code" but unfortunately it doesn't work.

I can finish everything but unfortunately I can't get with pictures in the excel.

Any idea what the problem could be here?
This comment was minimized by the moderator on the site
Hello, janick,The code works well in my workbook, do you select the correct folder contains the images? Please check it?
Thank you!
This comment was minimized by the moderator on the site
This is a great article! I really like how you presented it so easy to understand
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations