Как да извлечете хипервръзки от множество изображения в Excel?
Да кажем, че имате списък с изображения в работен лист и всяко изображение съдържа хипервръзка, сега бихте искали да извлечете истинските адреси на хипервръзки от тези снимки към следващите им клетки, както е показано на следната екранна снимка. Разбира се, можете да копирате адреса на хипервръзката от Редактиране на хипервръзка кутия една по една, но това ще отнеме много време, ако има няколко хипервръзки, които трябва да бъдат извлечени. В тази статия ще представя някои методи за бързо и лесно решаване на тази задача в Excel.
Извличайте хипервръзки от множество изображения с VBA код
Извличайте хипервръзки от множество изображения с VBA код
Следният VBA код може да ви помогне да извлечете реалните адреси от множество изображения с хипервръзки наведнъж, моля, направете стъпка по стъпка:
1. Задръжте натиснат ALT + F11 клавиши в Excel, за да отворите Microsoft Visual Basic за приложения прозорец.
2. Щракнете Поставете > Модулии поставете следния код в прозореца на модула.
VBA код: Извличане на реални адреси от множество изображения с хипервръзки
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. След това натиснете F5 ключ за изпълнение на този код и всички адреси на хипервръзки са извлечени в съответните клетки до снимките, вижте екранната снимка:
Забележка: Този код ще извлече реални адреси от всички изображения в текущия работен лист.
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!