Excel'de birden fazla görüntüden köprüleri nasıl çıkarabilirsiniz?

Diyelim ki, bir çalışma sayfasında bir dizi resim var ve her bir resim bir köprü içeriyor. Şimdi, aşağıdaki ekran görüntüsünde gösterildiği gibi bu resimlerden gerçek köprü adreslerini yanlarındaki hücrelere çıkarmak istiyorsunuz. Tabii ki, Düzenle Köprü kutusundan köprü adresini tek tek kopyalayabilirsiniz, ancak birden fazla köprü çıkarılması gerekiyorsa bu zaman alıcı olacaktır. Bu makalede, Excel'de bu görevi hızlı ve kolay bir şekilde çözmek için bazı yöntemler tanıtacağım.

Birden fazla görüntüden köprüleri VBA kodu ile çıkarma

Birden fazla görüntüden köprüleri VBA kodu ile çıkarma

Aşağıdaki VBA kodu, birden fazla köprü içeren resimlerden gerçek adresleri çıkarmak için size yardımcı olabilir, lütfen adım adım ilerleyin:

1. Excel'de ALT + F11 tuşlarına basılı tutarak Microsoft Visual Basic for Applications penceresini açın.

2. Ekle Insert > Module'e tıklayın ve aşağıdaki kodu Modül Penceresine yapıştırın.

VBA Kodu: Birden fazla köprü içeren resimlerden gerçek adresleri çıkarma

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. Ardından bu kodu çalıştırmak için F5 tuşuna basın ve tüm köprü adresleri resimlerin yanındaki ilgili hücrelere çıkarılacaktır, aşağıdaki ekran görüntüsüne bakın:

Not: Bu kod, geçerli çalışma sayfasındaki tüm resimlerden gerçek adresleri çıkaracaktır.

Kutools AI ile Excel Sihirini Keşfedin

• Akıllı Yürütme: Hücre işlemleri gerçekleştirin, verileri analiz edin ve grafikler oluşturun—tümü basit komutlarla sürülür.
• Özel Formüller: İş akışlarınızı hızlandırmak için özel formüller oluşturun.
• VBA Kodlama: VBA kodunu kolayca yazın ve uygulayın.
• Formül Yorumlama: Karmaşık formülleri kolayca anlayın.
• Metin Çevirisi: Elektronik tablolarınız içindeki dil engellerini aşın.

Yapay zeka destekli araçlarla Excel yeteneklerinizi geliştirin. Şimdi İndirin ve daha önce hiç olmadığı gibi bir verimlilik deneyimi yaşayın!