Note: The other languages of the website are Google-translated. Back to English

Comment extraire des images à partir de commentaires dans Excel?

Dans Excel, vous pouvez insérer une image dans le commentaire aussi facilement que possible, mais avez-vous déjà envisagé d'extraire les images des zones de commentaires dans des cellules ou dans un dossier spécifique? Cet article, je vais parler de la façon d'extraire les images des commentaires.

Extraire et enregistrer les images des commentaires dans un dossier avec la fonction Enregistrer sous

Extraire des images des commentaires dans des cellules avec du code VBA


flèche bleue bulle droiteExtraire et enregistrer les images des commentaires dans un dossier avec la fonction Enregistrer sous

Si vous souhaitez extraire et enregistrer les images des commentaires dans un dossier, procédez comme suit:

1. Copiez la feuille qui contient les commentaires avec les images que vous souhaitez enregistrer dans un nouveau classeur vierge.

doc extraire l'image du commentaire 1

2. Et puis cliquez Déposez le > Enregistrer sous pour enregistrer ce nouveau classeur sous web page format dans un dossier spécifique, voir capture d'écran:

doc extraire l'image du commentaire 2

3. Puis clique Enregistrer bouton pour enregistrer le fichier, puis accédez au dossier spécifique pour afficher les images enregistrées, deux fichiers sont générés dans le dossier, l'un est le fichier html et l'autre est un dossier contenant toutes les images et autres fichiers, voir capture d'écran:

doc extraire l'image du commentaire 3


flèche bleue bulle droiteExtraire des images des commentaires dans des cellules avec du code VBA

Si vous souhaitez extraire les images des commentaires dans les cellules comme illustré ci-dessous, je peux créer un code VBA pour vous, procédez comme suit:

doc extraire l'image du commentaire 4

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 la fenêtre Module.

Code VBA: extraire les images des commentaires dans les cellules:

Sub CommentPictures()
'Updateby Extendoffcie
    Dim cmt As Comment
    Dim xRg As Range
    Dim visBool As Boolean
    Dim cmtTxt As String
    Dim jpgPath As String
    Dim shpHeight As Integer, shpWidth As Integer
    Application.ScreenUpdating = False
    For Each cmt In ActiveSheet.Comments
        With cmt
            cmtTxt = .Text
            shpHeight = .Shape.Height
            shpWidth = .Shape.Width
            .Text Text:="" & Chr(10) & ""
            visBool = .Visible
            .Visible = True
            On Error Resume Next
            Set xRg = .Parent.Offset(0, 1)
            .Shape.CopyPicture _
              Appearance:=xlScreen, Format:=xlPicture
            xRg.PasteSpecial
            Selection.ShapeRange.LockAspectRatio = msoFalse
            Selection.Width = xRg.Width
            Selection.Height = xRg.Height
            .Visible = visBool
            .Text Text:=cmtTxt
        End With
    Next cmt
    Application.ScreenUpdating = True
End Sub

3. Puis appuyez F5 clé pour exécuter ce code, et toutes les images des commentaires dans la feuille de calcul actuelle ont été extraites dans les cellules de la colonne suivante, voir capture d'écran:

doc extraire l'image du commentaire 4


Les meilleurs outils de productivité de bureau

Kutools for Excel résout la plupart de vos problèmes et augmente votre productivité de 80%

  • Réutilisation: Insérer rapidement formules complexes, graphiques et tout ce que vous avez utilisé auparavant; Crypter les cellules avec mot de passe; Créer une liste de diffusion et envoyer des e-mails ...
  • Barre Super Formula (modifiez facilement plusieurs lignes de texte et de formule); Disposition de lecture (lire et modifier facilement un grand nombre de cellules); Coller dans la plage filtréeplus
  • Fusionner les cellules / lignes / colonnes sans perdre de données; Contenu des cellules divisées; Combiner des lignes / colonnes en double... Empêcher les cellules en double; Comparer les gammesplus
  • Sélectionnez Dupliquer ou Unique Lignes; Sélectionnez les lignes vides (toutes les cellules sont vides); Super Find et Fuzzy Find dans de nombreux classeurs; Sélection aléatoire ...
  • Copie exacte Plusieurs cellules sans changer la référence de formule; Créer automatiquement des références à plusieurs feuilles; Insérer des puces, Cases à cocher et plus encore ...
  • Extrait du texte, Ajouter du texte, Supprimer par position, Supprimer l'espace; Créer et imprimer des sous-totaux de pagination; Conversion entre le contenu et les commentaires des cellulesplus
  • Super filtre (enregistrer et appliquer des schémas de filtrage à d'autres feuilles); Tri avancé par mois / semaine / jour, fréquence et plus; Filtre spécial par gras, italique ...
  • Combiner des classeurs et des feuilles de travail; Fusionner les tableaux en fonction des colonnes clés; Diviser les données en plusieurs feuilles; Conversion par lots xls, xlsx et PDFplus
  • Plus de 300 fonctionnalités puissantes. Prend en charge Office / Excel 2007-2021 et 365. Prend en charge toutes les langues. Déploiement facile dans votre entreprise ou organisation. Fonctionnalités complètes Essai gratuit de 30 jours. Garantie de remboursement de 60 jours.
onglet kte 201905

Office Tab apporte une interface à onglets à Office et simplifie considérablement votre travail

  • Activer l'édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
  • Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
  • Augmente votre productivité de 50% et réduit des centaines de clics de souris chaque jour!
bas de cabine
Commentaires (3)
Pas encore de notes. Soyez le premier à évaluer!
Ce commentaire a été minimisé par le modérateur sur le site
Merci!! J'avais auparavant inséré des images dans les commentaires d'un document, puis supprimé les images uniquement pour que quelqu'un me demande des copies uniquement des images. C'était très simple et m'a sauvé. Merci encore!
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour,
Poste très intéressant. Merci beaucoup.

Mais je ne vois pas comment l'utiliser pour utiliser l'image pour un bouton de ma CommandBar. Laisse-moi expliquer.

Je souhaite partager mes feuilles Excel sans envoyer séparément les images des boutons sous forme de fichiers jpg (.Picture = LoadPicture(ImageFile).

Je souhaite donc masquer les images dans certaines cellules masquées ou dans certains commentaires.
Pas de problème pour masquer les images.
Mais je n'arrive pas à les faire par la suite initialiser mes boutons.

Une idée pour ça ?


Merci pour votre temps.
Brice.
Ce commentaire a été minimisé par le modérateur sur le site
Hola ! Muchisimas gracias por el aporte. Tengo un problema, a veces funciona ya veces no extrae las fotos .Por que puede ser si es la misma macro?
Il n'y a pas encore de commentaires postés ici
Laisser vos commentaires
Publier en tant qu'invité
×
Évaluez cet article:
0   Personnages
Emplacements suggérés

Nous suivre

Copyright © 2009 - www.extendoffice.com. | Tous les droits sont réservés. Alimenté par ExtendOffice. | | Plan du site
Microsoft et le logo Office sont des marques commerciales ou des marques déposées de Microsoft Corporation aux États-Unis et / ou dans d'autres pays.
Protégé par Sectigo SSL