Astuce: Les autres langues sont Google-Traduction. Vous pouvez visiter le English version de ce lien.
Se connecter
x
or
x
x
S'enregistrer
x

or

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

Normalement, nous pouvons rapidement insérer une image dans une feuille de calcul en utilisant 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 vous de résoudre ce travail.

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


Insérer 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.

2. Cliquez 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

Note: 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 où vous voulez 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 toutes les feuilles de calcul à la fois. Voir la capture d'écran:

doc insérer l'image sur toutes les feuilles 1

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



Outils de productivité recommandés

Office Tab

étoile d'or1 Apportez des onglets pratiques à Excel et à d'autres logiciels Office, tout comme Chrome, Firefox et Internet Explorer.

Kutools for Excel

étoile d'or1 Incroyable! Augmentez votre productivité dans les minutes 5. Ne nécessite pas de compétences particulières, économisez deux heures par jour!

étoile d'or1 300 Nouvelles fonctionnalités pour Excel, rendent Excel facile et puissant:

  • Fusionner des cellules / lignes / colonnes sans perdre de données.
  • Combiner et consolider plusieurs feuilles et classeurs.
  • Comparez les gammes, copiez plusieurs gammes, convertissez le texte en date, l'unité et la conversion de devise.
  • Compter par couleurs, sous-totaux de recherche, tri avancé et super filtre,
  • Plus Sélectionner / Insérer / Supprimer / Texte / Format / Lier / Commenter / Classeurs / Feuilles de calcul Outils ...

Capture d'écran de Kutools pour Excel

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?