Добавление нескольких гиперссылок в одной ячейке Excel с помощью VBA

Question

Я в настоящее время использую макрос, который имеет форму и кнопку, и массив, содержащий строки пути, как показано в следующем примере:

array(0)="C:\Users\Dylan\Desktop\Hi.PDF" 
array(1)="C:\Users\Dylan\Desktop\Bye.PDF" 
array(2)="C:\Users\Dylan\Desktop\Welcome.PDF" 

На кнопки мыши, то содержимое массива конкатенируется и помещается в одно предложение, разделенное запятой (,) между ссылками. Только с 1 путем/ссылкой [массив (0)] Я могу использовать код VBA:

ThisWorkbook.Worksheets("Sheet1").Cells(1, 1).Hyperlinks.Add array(0) 

, но так как есть несколько ссылок в строке, что метод VBA, чтобы добавить их все в качестве отдельных звеньев в такое же предложение в той же ячейке?

Прямо сейчас у меня есть:

for i = 0 to 2 
    ThisWorkbook.Worksheets("Sheet1").Cells(1, 1).Value = ThisWorkbook.Worksheets("Sheet1").Cells(1, 1).Value & array(i) 
next i 

Мне нужно добавить все ссылки в одной ячейке.

Answer 1

Вы можете добавить Вставить HTML-страницу с несколькими ссылками на нее в ячейке. Или вы можете нарисовать прозрачный ящик и удалить все заполнить и добавить информацию в ссылку со ссылками. Оба на самом деле не добавляют больше одной ссылки в ячейку, а работают. :-)