Hoe kan ik dezelfde afbeelding snel in meerdere werkbladen invoegen?
Normaal gesproken kunnen we snel een afbeelding in een werkblad invoegen met behulp van de functie Invoegen in Excel, maar hebben we ooit geprobeerd dezelfde afbeelding in alle werkbladen van uw werkmap in te voegen? In dit artikel zal ik een handige methode introduceren om deze klus op te lossen.
Voeg dezelfde afbeelding in alle werkbladen van de werkmap in met VBA-code
Voeg dezelfde afbeelding in alle werkbladen van de werkmap in met VBA-code
De volgende VBA-code kan u helpen om gemakkelijk een afbeelding in alle werkbladen in te voegen, doe dit als volgt:
1. Houd de ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.
2. Klikken Invoegen > Moduleen plak de volgende code in het Module Venster.
VBA-code: voeg dezelfde afbeelding in alle werkbladen in:
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
Note: 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 cel.
3. Druk vervolgens op F5 -toets om deze code uit te voeren, en vervolgens is de specifieke afbeelding in elke cel A1 van alle werkbladen tegelijk ingevoegd. Zie schermafbeelding:
Note: De ingevoegde afbeelding wordt aangepast aan de celgrootte.
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, 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 vermindert honderden muisklikken voor u elke dag!