Aynı resmi birden fazla çalışma sayfasına hızlıca nasıl ekleyebilirim?

Normalde, Excel'deki Ekle fonksiyonunu kullanarak bir çalışma sayfasına hızlıca bir resim ekleyebiliriz. Ancak, aynı resmi çalışma kitabınızdaki tüm çalışma sayfalarına eklemeyi denediniz mi? Bu makalede, bu görevi çözmek için size yararlı bir yöntem tanıtacağım.

VBA kodu ile çalışma kitabındaki tüm çalışma sayfalarına aynı resmi ekleme

VBA kodu ile çalışma kitabındaki tüm çalışma sayfalarına aynı resmi ekleme

Aşağıdaki VBA kodu, bir resmi tüm çalışma sayfalarına kolayca eklemenize yardımcı olacaktır, lütfen şu adımları izleyin:

1. Microsoft Visual Basic for Applications penceresini açmak için ALT + F11 tuşlarına basın.

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

VBA Kodu: Tüm çalışma sayfalarına aynı resmi ekleme:

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 yolunu ve adını temsil etmektedir ve Range("A1") içindeki A1, resmi eklemek istediğiniz hücredir, lütfen bunları kendi bilgilerinizle değiştirin.

3. Ardından bu kodu çalıştırmak için F5 tuşuna basın ve belirli resim, tüm çalışma sayfalarının her bir A1 hücresine anında eklenecektir. Ekran görüntüsüne bakın:

Not: Eklenen resim, hücre boyutuna sığacak şekilde ayarlanacaktır.