Aynı resmi birden fazla çalışma sayfasına nasıl hızlıca eklerim?
Normalde, Excel’de “Resim Ekle” işlevini kullanarak bir çalışma sayfasına hızlıca resim ekleyebilirsiniz. Peki, aynı resmi çalışma kitabınızdaki tüm çalışma sayfalarına eklemeyi denediniz mi? Bu makalede, bu görevi kolayca yerine getirmeniz için size son derece yararlı bir yöntem sunuyoruz.
Çalışma kitabının tüm çalışma sayfalarına VBA kodu ile aynı resmi ekleyin
Çalışma kitabının tüm çalışma sayfalarına VBA kodu ile aynı resmi ekleyin
Aşağıdaki VBA kodu, bir resmi tüm çalışma sayfalarına kolayca eklemenize olanak tanır. Lütfen aşağıdaki adımları uygulayın:
1. Microsoft Visual Basic for Applications penceresini açmak için ALT + F11 tuşlarına basılı tutun.
2. Ekle > Modül’e tıklayın, ardından aşağıdaki kodu Modül penceresine yapıştırın.
VBA kodu: Tüm çalışma sayfalarına aynı resmi ekleyin:
Sub InsertLogo()
Dim I As Long
Dim xPath As String
Dim xShape As Shape
Dim xRg As Range
xPath = "C:\Users\DT168\Desktop\pic\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:\Users\DT168\Desktop\pic\logo.png resminizin dosya yolu ve adıdır; ayrıca A1 ifadesi, Range("A1") içinde resmi eklemek istediğiniz hücreyi belirtir. Lütfen bunları kendi bilgilerinize göre güncelleyin.
3. Ardından bu kodu çalıştırmak için F5 tuşuna basın; böylece belirtilen resim, tüm çalışma sayfalarının A1 hücresine aynı anda eklenmiş olur. Ekran görüntüsüne bakın:
Not: Eklenen resim, hücre boyutuna oturacak şekilde otomatik olarak ayarlanır.
En İyi Office Üretkenlik Araçları
Kutools for Excel ile Excel becerilerinizi üst seviyeye taşıyın ve verimlilikte hiç yaşamadığınız bir deneyime ulaşın.Kutools for Excel, üretkenliği artırmak ve Zamanı Kaydet için 300'den fazla gelişmiş özelliğe sahiptir.İhtiyacınız olan özelliği hemen edinmek için buraya tıklayın…
Office Tab, Office'a sekmeli arayüz getirir ve işlerinizi çok daha kolay hale getirir
- Word, Excel, PowerPoint, Publisher, Access, Visio ve Project'te sekmeli düzenleme ve okuma özelliğini etkinleştirin.
- Birden fazla belgeyi aynı pencerenin yeni sekmelerinde açın ve oluşturun, yeni pencerelerde değil.
- Günlük üretkenliğinizi %50 artırır ve her gün yüzlerce fare tıklamasından tasarruf etmenizi sağlar!
Tüm Kutools eklentileri — tek bir yükleyiciyle!
Kutools for Office paketi, Excel, Word, Outlook ve PowerPoint için eklentileri ile Office Tab Pro’yu içerir; Office uygulamalarında çalışan ekipler için idealdir.
- Hepsi bir arada paket— Excel, Word, Outlook ve PowerPoint eklentileri + Office Tab Pro
- Tek yükleyici, tek lisans— birkaç dakikada kurulum (MSI uyumlu)
- Birlikte daha iyi çalışır— Office uygulamalarında verimliliği akıcı hale getirir
- 30 günlük tam özellikli deneme— kayıt gerekmez, kredi kartı gerekmez
- En iyi değer— tek tek eklenti satın almak yerine tasarruf edin