Sut i dynnu hypergysylltiadau o ddelweddau lluosog yn Excel?
Gadewch i ni ddweud, mae gennych chi restr o ddelweddau mewn taflen waith, ac mae pob delwedd yn cynnwys hyperddolen, nawr, hoffech chi dynnu'r cyfeiriadau hyperddolen go iawn o'r lluniau hyn i'w celloedd nesaf fel y dangosir y screenshot canlynol. Wrth gwrs, gallwch chi gopïo'r cyfeiriad hyperddolen o'r Golygu Hyperlink blwch fesul un, ond, bydd hyn yn cymryd llawer o amser os oes angen tynnu hypergysylltiadau lluosog. Yn yr erthygl hon, byddaf yn cyflwyno rhai dulliau i ddatrys y dasg hon yn gyflym ac yn hawdd yn Excel.
Tynnu hypergysylltiadau o ddelweddau lluosog gyda chod VBA
Tynnu hypergysylltiadau o ddelweddau lluosog gyda chod VBA
Gall y cod VBA canlynol eich helpu i echdynnu'r cyfeiriadau go iawn o'r nifer o ddelweddau hypergysylltiedig ar unwaith, gwnewch gam wrth gam:
1. Daliwch i lawr y ALT + F11 allweddi yn Excel i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
2. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Ffenestr Modiwl.
Cod VBA: Tynnu cyfeiriadau go iawn o sawl delwedd hypergysylltiedig
Sub ExtractHyperlinkFromPicture()
'updateby Extendoffice
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. Yna pwyswch F5 allwedd i redeg y cod hwn, ac mae'r holl gyfeiriadau hyperddolen wedi'u tynnu i mewn i gelloedd cyfatebol wrth ochr y lluniau, gweler y screenshot:
Nodyn: Bydd y cod hwn yn tynnu cyfeiriadau go iawn o'r holl ddelweddau yn y daflen waith gyfredol.
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer
- Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
- Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
- Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!