Namig: drugi jeziki so prevedeni v Google. Lahko obiščete English različico te povezave.
Vpiši se
x
or
x
x
Registracija
x

or

Kako hitro vstaviti isto sliko v več delovnih listov?

Običajno lahko hitro vstavimo sliko v delovni list z uporabo funkcije Vstavi v Excelu, ali ste kdaj poskusili vstaviti isto sliko v vse delovne liste svoje delovne knjige? Ta članek vam bom predstavil koristen način za rešitev tega dela.

Vstavite isto sliko v vse delovne liste delovnega zvezka s kodo VBA


Vstavite isto sliko v vse delovne liste delovnega zvezka s kodo VBA


Naslednja VBA koda vam lahko pomaga pri vstavljanju slike v vse delovne liste z lahkoto, storite tako:

1. Drži dol ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. Kliknite Vstavi > Moduli, in prilepite naslednjo kodo v Moduli Okno.

VBA koda: Vstavite isto sliko v vse delovne liste:

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

Opombe: V zgornji kodi, C:\Users\DT168\Desktop\pic\logo.png je pot in ime vaše slike in A1 in Range("A1") je celica, kamor želite vstaviti sliko, jo spremenite sami.

3. Nato pritisnite F5 ključ za zagon te kode, nato pa je bila posamezna slika vstavljena v vsako celico A1 celotnega delovnega lista hkrati. Prikaz slike:

doc vstavi sliko na vse liste 1

Opombe: Vstavljena slika bo prilagojena velikosti celice.


Priporočena orodja za produktivnost za Excel

zavihek kte 201905

Kutools za Excel vam pomaga, da vedno končate delo pred časom in izstopite iz množice

  • Več kot zmogljive napredne funkcije 300, zasnovane za 1500 delovne scenarije, ki povečujejo produktivnost z 70%, vam dajejo več časa za skrb za družino in uživanje v življenju.
  • Ne potrebujete več pomnilniških formul in VBA kod, od zdaj naprej pa dajate svojim možganom počitek.
  • Postanite strokovnjak za Excel v minutah 3, zapletene in ponavljajoče se operacije lahko opravite v nekaj sekundah,
  • Vsak dan zmanjšajte število operacij tipkovnice in miške, zdaj se poslovite od poklicnih bolezni.
  • 110,000 visoko učinkovite ljudi in 300 + svetovno priznanih podjetij izbiro.
  • Brezplačna preizkusna različica 60 dneva. 60-dnevno jamstvo vračila denarja. 2 let brezplačne nadgradnje in podpore.

Prinaša kartično brskanje in urejanje za Microsoft Office, veliko močnejši od zavihkov brskalnika

  • Office Tab je namenjen za Word, Excel, PowerPoint in druge Office aplikacije: Založnik, Dostop, Visio in Projekt.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Z 50% poveča vašo produktivnost in vsak dan zmanjša na stotine klikov z miško!
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.
    user · 1 months ago
    How can you add the photo to all sheets and assign a macro to it without going into each sheet individually and clicking the photo and assigning it?
  • To post as a guest, your comment is unpublished.
    Axl_Grey · 2 months 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 · 3 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 · 3 months ago
    preciso adiconar imagens nas planilhas que ficam sobre as celulas a1, b1 e c1. Tem um modo de fazer isso?