Editer lien hypertexte d'images
Résolu
Onepat1
Messages postés
5
Statut
Membre
-
Onepat1 Messages postés 5 Statut Membre -
Onepat1 Messages postés 5 Statut Membre -
bonjour,
j'ai une liste contenant des images dans des cellules et celles-ci ont un lien hypertexte vers des adresses de messagerie différentes.
j'aimerais afficher/éditer le lien de chacune en clair dans une autre cellule.
j'avoue ne pas trouver l'astuce.
merci
j'ai une liste contenant des images dans des cellules et celles-ci ont un lien hypertexte vers des adresses de messagerie différentes.
j'aimerais afficher/éditer le lien de chacune en clair dans une autre cellule.
j'avoue ne pas trouver l'astuce.
merci
A voir également:
- Editer lien hypertexte d'images
- Lien url - Guide
- Créer un lien pour partager des photos - Guide
- Renommer un lien hypertexte ✓ - Forum Bugs et suggestions
- Lien copié ✓ - Forum Google Chrome
- Comment renommer un lien hypertexte - Forum Word
6 réponses
Merci pour cette réponse rapide mais cela fonctionne pas avec des images.
ou alors je n'ai pas ciblé la bonne cellule:
pourtant mes images sont bien dans la colonne 1
Sub ExtractionLiensHypertextes()
Dim Cell As Range
On Error Resume Next
For Each Cell In Range("A1:A" & Range("A65536").End(xlUp).Row)
Cell.Offset(0, 1) = Cell.Hyperlinks(1).Address
Next Cell
End Sub
ou alors je n'ai pas ciblé la bonne cellule:
pourtant mes images sont bien dans la colonne 1
Sub ExtractionLiensHypertextes()
Dim Cell As Range
On Error Resume Next
For Each Cell In Range("A1:A" & Range("A65536").End(xlUp).Row)
Cell.Offset(0, 1) = Cell.Hyperlinks(1).Address
Next Cell
End Sub
Pour les images c'est différent.
Essaie ceci:
@+ Le Pivert
Essaie ceci:
Option Explicit
Sub LireTexteShapes()
Dim i As Integer
Dim s As Shape
i = 1 'adapter la 1ère ligne
For Each s In ActiveSheet.Shapes 'parcourt toutes les shapes(image)
Range("B" & i).Value = s.Hyperlink.SubAddress
i = i + 1
Next s
End Sub
@+ Le Pivert
Je ne connais pas du tout cette fonction shape !
il me pointe une erreur sur cette ligne:
Range("B" & i).Value = s.Hyperlink.SubAddress
il me pointe une erreur sur cette ligne:
Range("B" & i).Value = s.Hyperlink.SubAddress
essaie cela
pour en savoir plus sur les shapes
http://boisgontierjacques.free.fr/pages_site/lesimages.htm#CreationShape
@+
Option Explicit
Sub Test()
Dim shp As Shape, c As Range
'On Error Resume Next
With ActiveSheet
For Each shp In .Shapes
Set c = shp.BottomRightCell
c.Offset(0, 0) = shp.Hyperlink.SubAddress
Next shp
End With
End Sub
pour en savoir plus sur les shapes
http://boisgontierjacques.free.fr/pages_site/lesimages.htm#CreationShape
@+
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
merci pour le lien !
la petite macro ne fonctionne pas.
je vais essayer quelques lignes avec les shapes...
la petite macro ne fonctionne pas.
je vais essayer quelques lignes avec les shapes...
