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 extraire des images à partir de commentaires dans Excel?

Dans Excel, vous pouvez insérer l'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 à partir de commentaires.

Extraire et enregistrer des images à partir de commentaires dans un dossier avec la fonction Enregistrer sous

Extraire des images à partir de commentaires dans des cellules avec du code VBA


flèche bleue droite bulleExtraire et enregistrer des images à partir de 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 contenant les commentaires avec les images que vous souhaitez enregistrer dans un nouveau classeur vide.

doc extraire l'image du commentaire 1

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

doc extraire l'image du commentaire 2

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

doc extraire l'image du commentaire 3


flèche bleue droite bulleExtraire des images à partir de commentaires dans des cellules avec du code VBA

Si vous voulez extraire les images des commentaires dans les cellules comme suit capture d'écran, ici, je peux créer un code VBA pour vous, s'il vous plaît faites comme ceci:

doc extraire l'image du commentaire 4

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

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

Sub CommentPictures()
'Updateby Extendoffcie 20161207
    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 en cours ont été extraites dans les cellules de la colonne suivante, voir capture d'écran:

doc extraire l'image du commentaire 4



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.
    Jacob · 9 months ago
    Thank you!! I had previously inserted pictures into comments for a document and then deleted the pictures only to have someone ask me for copies of only the pictures. This was very straightforward and saved me. Thanks again!
    • To post as a guest, your comment is unpublished.
      Brice Barrier · 5 months ago
      Hello,
      Very interesting post. Thanks a lot.

      But I do not see how to use it to use the picture for a button of my CommandBar. Let me explain.

      I want to share my Excel sheets without sending separatly images for buttons as jpg files (.Picture = LoadPicture(ImageFile).

      So I want to hide the images in some hidden cells or in some comments.
      No issue to hide the images.
      But I do not succeed to get them afterward to initialize my buttons.

      Any idea for this ?


      Thanks for your time.
      Brice.