Comment insérer rapidement la même image dans plusieurs feuilles de calcul?

Normalement, nous pouvons insérer rapidement une image dans une feuille de calcul à l'aide de la fonction Insérer dans Excel, mais avez-vous déjà essayé d'insérer la même image dans toutes les feuilles de calcul de votre classeur? Cet article, je vais vous présenter une méthode utile pour résoudre ce problème.

Insérez la même image dans toutes les feuilles de calcul du classeur avec le code VBA

Insérez la même image dans toutes les feuilles de calcul du classeur avec le code VBA

Le code VBA suivant peut vous aider à insérer facilement une image dans toutes les feuilles de calcul, procédez comme suit:

1. Maintenez le ALT + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2Cliquez sur insérer > Moduleet collez le code suivant dans le Module Fenêtre.

Code VBA: insérez la même image dans toutes les feuilles de calcul:

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: Dans le code ci-dessus, C:\Users\DT168\Desktop\pic\logo.png est le chemin et le nom de votre image, et A1 in Range("A1") est la cellule dans laquelle vous souhaitez insérer l'image, veuillez les changer pour la vôtre.

3. Puis appuyez F5 clé pour exécuter ce code, puis l'image spécifique a été insérée dans chaque cellule A1 de toute feuille de calcul à la fois. Voir la capture d'écran:

Notes: L'image insérée sera ajustée pour s'adapter à la taille de la cellule.