İpucu: Digər dillər Google-tərcümə olunur. Sizi ziyarət edə bilərsiniz English bu linkin versiyası.
Daxil ol
x
or
x
x
Qeydiyyatdan
x

or

Eyni görüntüyü birdən çox iş səhifəsinə tez daxil etmək üçün necə?

Normal olaraq Excel-də Əlavə funksiyasından istifadə edərək tez bir işə bir şəkil əlavə edə bilərsiniz, amma eyni şəkli iş kitabınızın bütün işlərinə daxil etməyə çalışmısınız? Bu yazı, bu işi həll etmək üçün faydalı bir üsul təqdim edəcəyəm.

Eyni görüntüyü VBA kodu ilə iş kitabının bütün iş yerlərinə daxil edin


Eyni görüntüyü VBA kodu ilə iş kitabının bütün iş yerlərinə daxil edin


Aşağıdakı VBA kodu bütün iş yerlərində asanlıqla bir şəkil əlavə etməyə kömək edə bilər, belə edin:

1. Basıb saxlayın ALT + F11 düymələri açmaq üçün Proqramlar üçün Microsoft Visual Basic pəncərə.

2. Basın Taxmaq > Modules, və aşağıdakı kodu yapışdırın Modules Pəncərə.

VBA kodu: Bütün şəkillərə eyni şəkil daxil edin:

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

Qeyd: Yuxarıda göstərilən kodda, C:\Users\DT168\Desktop\pic\logo.png şəkilinizin yol və adı və A1 in Range("A1") şəkil çəkmək istədiyiniz kameradır, xahiş edirik onları özünüzə dəyişdirin.

3. Sonra basın F5 bu kodu çalıştırmak üçün düyməsini basın və sonra xüsusi şəkil bir dəfə bütün işlərin A1 hər bir hüceyrəsinə daxil edilmişdir. Ekran görüntüsünə baxın:

Bütün şəkillərə 1 doc daxil edin

Qeyd: Daxili şəkil hüceyrənin ölçüsünə uyğun olaraq düzəldiləcək.



Təklif olunan Məhsuldarlıq Vasitələri

Office Tab

qızıl star1 Chrome, Firefox və yeni Internet Explorer kimi Excel və digər Office proqramlarına lazımlı sekmeleri gətirin.

Excel üçün Kutools

qızıl star1 Amazing! 5 dəqiqədə məhsuldarlığınızı artırın. Heç bir xüsusi bacarıqa ehtiyac yoxdur, hər gün iki saat saxlaya bilərsiniz!

qızıl star1 300 Excel üçün yeni funksiyalar, Excel çox asan və güclü olun:

  • Veriyi ləğv etmədən Cell / Satır / Sütunları birləşdirin.
  • Bir neçə Çarşaf və İş Kitabını birləşdirin və birləşdirin.
  • Çaprazları müqayisə edin, birdən çox aralığa kopyalayın, mətni tarixə, vahidə və valyuta çevrilməsinə çevirin.
  • Rənglər, Paging Subtotals, Advanced Sort və Super Filter tərəfindən sayılan,
  • Daha çox seçin / Insert / Sil / Mətn / Biçim / Bağlantı / Yorum / Çalışma kitabları / Çalışma Qurğuları Tools ...

Excel üçün Kutools-un ekranı

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Axl_Grey · 23 days ago
    Hola, Se puede hacer que la imagen no sea de una ruta del equipo si no que sea del mismo libro?
  • To post as a guest, your comment is unpublished.
    rodrigo · 1 months ago
    tem como exceutar a macro para adicionar imagem fora da celula em uma localizaçao especifica?
  • To post as a guest, your comment is unpublished.
    rodrigo · 1 months ago
    preciso adiconar imagens nas planilhas que ficam sobre as celulas a1, b1 e c1. Tem um modo de fazer isso?