The Excel følgende VBA-kode kan hjelpe deg til å trekke ut de virkelige adresser fra flere hyperkoblet bilder samtidig, kan du gjøre trinn for trinn:
1. Hold nede ALT + F11-tastene i Excel for å åpne Microsoft Visual Basic for Applications vinduet.
2. Klikk Sett > Modul, og lim inn følgende kode i modulen Window
VBA-kode. Utdrag reelle adresser fra flere hyperkoblet Images Sub ExtractHyperlinkFromPicture () 'updateby Extendoffice 20151015 Dim XSH Som Shape Dim xScreen Som boolsk xScreen = Application.ScreenUpdating Application .ScreenUpdating = False for hver XSH I ActiveSheet.Shapes Hvis xSh.Type = msoPicture Så On Error Resume Neste Range (xSh.TopLeftCell.Address) .Offset (0, 3) .Value = xSh.Hyperlink.Address On Error GoTo 0 End Dersom Neste Application.ScreenUpdating = xScreenEnd Sub3. Deretter trykker F5 for å kjøre denne koden, og alle hyperkoblingsadresser har blitt hentet inn tilsvarende celler ved siden av bildene, se skjermbilde:
. Merk: Denne koden vil hentet reelle adresser fra alle bildene i gjeldende regneark