Aynı görüntü birden çok çalışma sayfasına nasıl hızlı bir şekilde eklenir?
Normalde, Excel'deki Ekle işlevini kullanarak bir çalışma sayfasına hızlı bir şekilde bir resim ekleyebiliriz, ancak aynı resmi çalışma kitabınızın tüm çalışma sayfalarına eklemeyi hiç denediniz mi? Bu yazıda, bu işi çözmeniz için faydalı bir yöntem sunacağım.
Aynı görüntüyü çalışma kitabının tüm çalışma sayfalarına VBA kodu ile ekleyin
Aynı görüntüyü çalışma kitabının tüm çalışma sayfalarına VBA kodu ile ekleyin
Aşağıdaki VBA kodu, tüm çalışma sayfalarına kolaylıkla bir resim 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 Ekle > modülve aşağıdaki kodu modül Pencere.
VBA kodu: Aynı resmi tüm çalışma sayfalarına 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 yolu ve adı ve A1 in Range("A1") resmi eklemek istediğiniz hücredir, lütfen bunları kendi başınıza değiştirin.
3. Daha sonra tuşuna basın. F5 Bu kodu çalıştırmak için anahtar ve ardından belirli resim, tüm çalışma sayfalarının her A1 hücresine bir kerede eklenmiştir. Ekran görüntüsüne bakın:
not: Eklenen resim hücre boyutuna uyacak şekilde ayarlanacaktı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!
