Les galetes ens ajuden a lliurar els nostres serveis. En utilitzar els nostres serveis, accepteu el nostre ús de cookies.
Consell: altres idiomes es tradueixen en Google. Pots visitar el English versió d'aquest enllaç.
Iniciar Sessió
x
or
x
x
Registre
x

or

Com s'extreuen hipervincles de diverses imatges a Excel?

Posem per cas que teniu una llista d'imatges en un full de càlcul, i cada imatge conté un hipervincle, ara, us agradaria extreure les adreces d'hipervincles reals d'aquestes imatges a les cel·les següents, tal com es mostra a la següent captura de pantalla. Per descomptat, podeu copiar l'adreça del hipervincle des del Edita hipervincle box one by one, però, això requerirà molt de temps si hi ha diversos hipervincles necessaris per a ser extrets. En aquest article, presentaré alguns mètodes per resoldre aquesta tasca de manera ràpida i senzilla a Excel.

doc extreure hipervincles d'imatges 1

Extraieu els hipervincles d'imatges múltiples amb codi VBA


Extreu adreces reals d'hipervincles:

amb Kutools for Excel'S Converteix enllaços, podeu extreure ràpidament adreces URL reals de cèl · lules hiperlinkades alhora.

adreça del extracte doc dels hipervincles


fletxa blau dreta bombolla Extraieu els hipervincles d'imatges múltiples amb codi VBA


El següent codi VBA us pot ajudar a extreure les adreces reals de les diverses imatges d'hipervincles alhora, feu-ho pas a pas:

1. Mantingueu premut el botó ALT + F11 tecles en Excel per obrir el Microsoft Visual Basic per a aplicacions finestra.

2. Clic Insereix > Mòduls, i enganxeu el següent codi a la finestra del mòdul.

Codi VBA: extreure adreces reals de diverses imatges hiperlinkades

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. A continuació, premeu F5 clau per executar aquest codi, i totes les adreces d'hipervincles s'han extret a les cel·les corresponents a les imatges, vegeu la captura de pantalla:

doc extreure hipervincles d'imatges 1

Nota: Aquest codi extreu adreces reals de totes les imatges del full de càlcul actual.



Eines de productivitat recomanades

Pestanya d'Office

estrella d'or1 Porteu les pestanyes pràctiques a l'Excel i a un altre programari d'Office, igual que Chrome, Firefox i el nou Internet Explorer.

Kutools for Excel

estrella d'or1 Increïble! Incrementeu la productivitat en 5 minuts. No necessites cap habilitat especial, estalvieu dues hores cada dia.

estrella d'or1 300 Noves característiques per a Excel, Excel molt fàcil i potent:

  • Combina cel·les / files / columnes sense perdre dades.
  • Combina i consolida diverses fulles i llibres.
  • Comparar intervals, copiar diversos rangs, convertir text a data, unitat i conversió de divises.
  • Compte per colors, subtotals de paginació, classificació avançada i filtre súper,
  • Més Seleccioneu / Insereix / Suprimeix / Text / Format / Enllaç / Comentari / Llibres / Eines de full de càlcul ...

Tret de pantalla de Kutools per a 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.