Bir resmi bir Excel hücresinde ortalamak nasıl?
Bu makale, aşağıda gösterilen ekran görüntüsü gibi resimleri bir Excel çalışma sayfasındaki hücrelerin ortasına taşımanın bir yöntemini gösterecektir.
VBA kodu ile resmi hücrenin merkezine taşıyın
VBA kodu ile resmi hücrenin merkezine taşıyın.
Resimleri Excel'de bir çalışma sayfasındaki hücrelerin merkezine taşımak için lütfen aşağıdaki işlemleri yapın.
1. Hücrelerde ortalamanız gereken resimleri içeren çalışma sayfasını açın ve ardından Ara Toplam + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.
2. içinde Uygulamalar için Microsoft Visual Basic pencere, lütfen tıklayın Ekle > modül. Ardından, VBA kodunu Kod penceresine kopyalayıp yapıştırın.
VBA kodu: Resimleri çalışma sayfasındaki hücrelerin ortasına taşıyın
Sub CenterPictures()
With ActiveSheet.Shapes("Picture 2")
.Top = Range("A1").Top + (Range("A1").Height - .Height) / 2
.Left = Range("A1").Left + (Range("A1").Width - .Width) / 2
End With
With ActiveSheet.Shapes("Picture 4")
.Top = Range("A2").Top + (Range("A2").Height - .Height) / 2
.Left = Range("A2").Left + (Range("A2").Width - .Width) / 2
End With
With ActiveSheet.Shapes("Picture 6")
.Top = Range("A3").Top + (Range("A3").Height - .Height) / 2
.Left = Range("A3").Left + (Range("A3").Width - .Width) / 2
End With
End Sub
notlar:
With ActiveSheet.Shapes("Picture name")
.Top = Range("Cell Address").Top + (Range("Cell Address").Height - .Height) / 2
.Left = Range("Cell Address").Left + (Range("Cell Address").Width - .Width) / 2
End With
3. Tuşuna basın. F5 kodu çalıştırmak için anahtar.
Ardından, belirtilen tüm resimler, aşağıda gösterilen ekran görüntüsü gibi hemen belirli hücrelerin ortasına taşınacaktır.
İlgili Makaleler:
- Excel'deki hücrelerle taşınması ve boyutlandırılması için tüm resimleri otomatik olarak nasıl değiştirebilirim?
- Bir hücrenin Excel'de resim içerip içermediğini nasıl kontrol edebilirim?
- Excel'deki hücre değerine göre hücreye dinamik olarak resim veya resim nasıl eklenir?
- Excel'de üzerine tıklandığında görüntü nasıl büyütülür?
En İyi Ofis Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir
- 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!