Гиперссылка

[0creator0]

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

[Watcher_1]

Добавьте в CommandButton1 строку

Sheets(1).Range("A" & UserForm1.ListBox1.ListIndex + 1).Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True

[0creator0]

Спасибо большое сам бы не до думал!, а можно сделать, так что бы ссылка добавлялась вместе с месяцем, при нажатии на кнопку OK.

[Watcher_1]

Сообщение от 0creator0

Спасибо большое сам бы не до думал!, а можно сделать, так что бы ссылка добавлялась вместе с месяцем, при нажатии на кнопку OK.

Не понял вопрос.....
Добавлялась куда и зачем?

[0creator0]

В форме я выбираю месяц при выборе которого и при нажатии на CommandButton1 по гиперссылке появляется картинка, а при нажатии на кнопку OK, добавляется выбранный месяц, а вместе с ним я не знаю как сделать так, что б добавлялась гиперссылка , подскажите пожалуйста, как сделать это добавления!

[Watcher_1]

Держите
Address:="D:\User_Data\Desktop\1269 813578_1.jpg" адрес того на что идет ссылка

Sheets(1).Hyperlinks.Add Anchor:=Sheets(1).Range("A" & UserForm1.ListBox1.ListIndex + 1), Address:="D:\User_Data\Desktop\1269813578_1.jpg", _
        TextToDisplay:=UserForm1.ListBox1.List(UserForm1.ListBox1.ListIndex)

[0creator0]

Ну я так понимаю эта гиперссылка на определённый файл, а я имел ввиду вот что:
Здесь я добавляю в лист бокс месяца которые находятся на листе 1: UserForm1.ListBox1.RowSource = "Лист1!A:A"
Здесь я говорю что в нужную ячейку вставить в виде текста из лист бокса нужный месяц: ActiveCell = UserForm1.ListBox1.Text
Может я что то здесь напутал или я в чем то не прав, но как я понимаю здесь надо дописать какой то код, который вместе с текстом очень хотелось бы добавлял гиперссылку, которая прикреплена к месяцам ( причем у каждого месяца своя гиперссылка).

[0creator0]

Может кто знает как это сделать? или я иду по неправельному пути?

[0creator0]

Подскажите, кто знает, как сделать что бы при вставки из списка, который сслыется на лист сохранялись свойства ячейки( то есть цвет , шрифт , заливка)

[Watcher_1]

Сообщение от 0creator0

Подскажите, кто знает, как сделать что бы при вставки из списка, который сслыется на лист сохранялись свойства ячейки( то есть цвет , шрифт , заливка)

Копирует в столбец I

Sheets(1).Range("A" & UserForm1.ListBox1.ListIndex + 1).Copy Destination:=Sheets(1).Range("I" & UserForm1.ListBox1.ListIndex + 1)