Tip: andere talen zijn Google-Vertaald. Je kunt het English versie van deze link.
Log in
x
or
x
x
Registreren
x

or

Hoe kan ik dezelfde afbeelding snel in meerdere werkbladen invoegen?

Normaal gesproken kunnen we snel een afbeelding in een werkblad invoegen door de functie Invoegen in Excel te gebruiken, maar ooit geprobeerd om dezelfde afbeelding in alle werkbladen van uw werkmap te plaatsen? In dit artikel zal ik een nuttige methode voor u introduceren om deze taak op te lossen.

Voeg dezelfde afbeelding toe aan alle werkbladen van de werkmap met VBA-code


Voeg dezelfde afbeelding toe aan alle werkbladen van de werkmap met VBA-code


De volgende VBA-code kan u helpen om eenvoudig een afbeelding in alle werkbladen in te voegen, doe dit als volgt:

1. Houd de toets ingedrukt ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

2. Klikken bijvoegsel > moduleen plak de volgende code in de module Venster.

VBA-code: plaats dezelfde afbeelding in alle werkbladen:

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

Notes: In de bovenstaande code, C:\Users\DT168\Desktop\pic\logo.png is het pad en de naam van uw foto, en A1 in Range("A1") is de cel waarin u de afbeelding wilt invoegen, wijzig deze in uw eigen.

3. Druk vervolgens op F5 sleutel om deze code uit te voeren, en dan is de specifieke afbeelding in elke cel A1 van alle werkbladen in één keer ingevoegd. Zie screenshot:

doc voeg afbeelding in op alle bladen 1

Notes: De ingevoegde afbeelding wordt aangepast aan de celgrootte.


Kutools voor Excel - De beste Office-productiviteitstool Verhoog uw productiviteit met 80%

  • Super Formula Bar (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken op gefilterd bereik...
  • Cellen / rijen / kolommen samenvoegen en gegevens bewaren; Inhoud gesplitste cellen; Combineer dubbele rijen en som / gemiddelde... voorkomen dubbele cellen; Ranges vergelijken...
  • Selecteer Dupliceren of Uniek rijen; Selecteer Lege rijen (alle cellen zijn leeg); Super Find en Fuzzy Find in veel werkboeken; Willekeurig selecteren ...
  • Exacte kopie Meerdere cellen zonder formule-referentie te wijzigen; Automatisch referenties maken naar meerdere vellen; Voeg kogels toe, Selectievakjes en meer ...
  • Favoriete en snel formules invoegen, Bereiken, grafieken en afbeeldingen; Coderen van cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • extract Text, Tekst toevoegen, verwijderen op positie, Verwijder de spatie; Subtotalen voor paging maken en afdrukken; Converteren tussen cellen Inhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerde sortering per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Werkt met Office 2007-2019 en 365 en ondersteunt alle talen. Het is eenvoudig te implementeren in uw bedrijf. Volledige functionaliteit 60-daagse gratis proefversie.
kte-tab 201905

Tabblad Office Brengt interface met tabbladen naar Office en maakt uw werk veel eenvoudiger

  • Bewerken en lezen met tabbladen inschakelen in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en verlaagt dagelijks honderden muisklikken voor u!
Officetab onderaan
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 · 3 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 · 4 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 · 5 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 · 5 months ago
    preciso adiconar imagens nas planilhas que ficam sobre as celulas a1, b1 e c1. Tem um modo de fazer isso?