Namig: drugi jeziki so prevedeni v Google. Lahko obiščete English različico te povezave.
Vpiši se
x
or
x
x
Registracija
x

or

Kako izvleči hiperpovezave iz več slik v Excelu?

Recimo, da imate na seznamu slike seznam slik in vsaka slika vsebuje hiperpovezavo, zdaj pa želite iz teh slik dodati prave naslove hiperpovezave na svoje naslednje celice, kot je prikazano na zaslonu. Seveda lahko naslov hiperpovezave kopirate iz Urejanje hiperpovezave škatlo enega po enega, vendar bo to trajalo, če je treba izločiti več hiperpovezav. V tem članku bom predstavil nekaj metod za hitro in enostavno reševanje te naloge v Excelu.

doc izvleče hiperpovezave iz slik 1

Iztisnite hiperpovezave iz več slik s kodo VBA


Izvleči dejanske naslove iz hiperpovezav:

z Kutools za ExcelJe Pretvarjanje hiperpovezav, lahko hkrati hitro izvlečete prave naslove URL iz hiperpovezanih celic.

doc ekstraktni naslov iz hiperpovezav


puščica modra desno mehurček Iztisnite hiperpovezave iz več slik s kodo VBA


Naslednja VBA koda vam lahko pomaga, da iz pravih naslovov iz hiperpovezanih fotografij izločite pravočasno, naredite korak za korakom:

1. Drži dol ALT + F11 ključe v Excelu, da odprete Microsoft Visual Basic za aplikacije okno.

2. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v okno modula.

VBA koda: ekstrahiraj prave naslove iz več hiperpovezanih slik

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. Nato pritisnite F5 ključ za zagon te kode in vsi naslovi hiperpovezav so bili izvlečeni v ustrezne celice poleg slik, si oglejte posnetek zaslona:

doc izvleče hiperpovezave iz slik 1

Opombe: Ta koda bo pridobila resnične naslove iz vseh slik v trenutnem delovnem listu.



Priporočena orodja za produktivnost za Excel

Kutools za Excel vam pomaga, da vedno končate delo pred časom in izstopite iz množice

  • Več kot zmogljive napredne funkcije 300, zasnovane za 1500 delovne scenarije, ki povečujejo produktivnost z 70%, vam dajejo več časa za skrb za družino in uživanje v življenju.
  • Ne potrebujete več pomnilniških formul in VBA kod, od zdaj naprej pa dajate svojim možganom počitek.
  • Postanite strokovnjak za Excel v minutah 3, zapletene in ponavljajoče se operacije lahko opravite v nekaj sekundah,
  • Vsak dan zmanjšajte število operacij tipkovnice in miške, zdaj se poslovite od poklicnih bolezni.
  • 110,000 visoko učinkovite ljudi in 300 + svetovno priznanih podjetij izbiro.
  • Brezplačna preizkusna različica 60 dneva. 60-dnevno jamstvo vračila denarja. 2 let brezplačne nadgradnje in podpore.

Prinaša kartično brskanje in urejanje za Microsoft Office, veliko močnejši od zavihkov brskalnika

  • Office Tab je namenjen za Word, Excel, PowerPoint in druge Office aplikacije: Založnik, Dostop, Visio in Projekt.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Z 50% poveča vašo produktivnost in vsak dan zmanjša na stotine klikov z miško!
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 · 2 years ago
    Worked like a charm once I figured out how to.