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 liens hypertexte de plusieurs images dans Excel?

Disons, vous avez une liste d'images dans une feuille de calcul, et chaque image contient un lien hypertexte, maintenant, vous souhaitez extraire les adresses de lien hypertexte réel de ces images à leurs cellules suivantes comme capture d'écran suivante illustrée. Bien sûr, vous pouvez copier l'adresse du lien hypertexte Modifier l'hyperlien boîte un par un, mais cela prendra du temps si plusieurs liens hypertextes doivent être extraits. Dans cet article, je présenterai quelques méthodes pour résoudre cette tâche rapidement et facilement dans Excel.

doc extrait des hyperliens à partir d'images 1

Extraire des liens hypertexte à partir de plusieurs images avec du code VBA


Extraire les vraies adresses des hyperliens:

Avec Kutools for Excel's Convertir les hyperliens, vous pouvez extraire rapidement de vraies adresses URL à partir de cellules hypertextes à la fois.

doc extrait l'adresse d'hyperliens


flèche bleue droite bulle Extraire des liens hypertexte à partir de plusieurs images avec du code VBA


Le code VBA suivant peut vous aider à extraire les vraies adresses à partir des multiples images en même temps, veuillez faire étape par étape:

1. Maintenez le ALT + F11 clés dans Excel 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: Extraire les adresses réelles de plusieurs images hypertexte

Sub ExtractHyperlinkFromPicture()
'updateby Extendoffice 20151015
    Dim xSh As Shape
    Dim xScreen As Boolean
    xScreen = Application.ScreenUpdating
    Application.ScreenUpdating = False
    For Each xSh In ActiveSheet.Shapes
        If xSh.Type = msoPicture Then
            On Error Resume Next
            Range(xSh.TopLeftCell.Address).Offset(0, 3).Value = xSh.Hyperlink.Address
            On Error GoTo 0
        End If
    Next
    Application.ScreenUpdating = xScreen
End Sub

3. Puis appuyez F5 clé pour exécuter ce code, et toutes les adresses de lien hypertexte ont été extraites dans les cellules correspondantes à côté des images, voir capture d'écran:

doc extrait des hyperliens à partir d'images 1

Note: Ce code extrait les adresses réelles de toutes les images de la feuille de calcul en cours.



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.
    Richard · 1 years ago
    Worked like a charm once I figured out how to.