VBA - Выберите ячейки на листе, чтобы быть гиперссылкой в ​​PowerPoint

Question

Мне нужно создать код, который читает URL в ячейке, а затем копирует в поле в презентации PPT.

Функция гиперссылки, над которой я работаю, позволяет мне только помещать URL между кавычками, а затем вставлять в поле. Но для каждого слайда мне нужно указать другой URL.

Я попытался ввести некоторую формулу, но функция запрашивает кавычки после того, как вы получили одинаковый сигнал, а затем копируется то, что находится между кавычками.

Проблема здесь:

Sub hyperlink()
Dim a As Integer
Dim endereço As String
a = 2
Do While a < LastRow
a = a + 1

Loop

With ActivePresentation.Slides(a).Shapes("txt_link") _
           .ActionSettings(ppMouseClick)
    .Action = ppActionHyperlink
        .hyperlink.Address = "https://www.microsoft.com/"  'i needed that this line could adress to a cell content

    End With


End Sub