Присвоение кнопке гиперссылки из Экселя в Power Point

Старая форма входа

Страница 1 из 1 1
Модератор форума: _Boroda_, китин

Мир MS Excel » Вопросы и решения » Excel и другие приложения » Power Point » Присвоение кнопке гиперссылки из Экселя в Power Point (Макросы/Sub)

azartan

Дата: Понедельник, 18.01.2016, 18:51 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 20

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Здравствуйте!

Помогите с макросом
В Экселе есть список адресов сайтов в столбике а, ячейки 1:50
Есть шаблон в Power Point с кнопкой на слайде

В Экселе есть кнопка, которая запускает создание презентации и вставляет туда всякие графики из этого файла Эксель

Теперь надо, чтобы адреса сайтов из Экселя добавлялись к кнопке в презентации (адрес из первой ячейки к кнопке на первом слайде и т.д.) и чтобы кнопка становилась кликабельной

Помогите создать макрос!

Спасибо

(заранее извините, если не в ту тему наприсала)

Ответить

Manyasha

Дата: Среда, 20.01.2016, 10:02 | Сообщение № 2

Группа: Модераторы

Ранг: Старожил

Сообщений: 2198

Репутация: 898 ±

Замечаний: 0% ±

Excel 2010, 2016

azartan, здравствуйте. Как-то так можно:
[vba]

Код

Sub addLinkToPP()
    Set objPPT = CreateObject("PowerPoint.Application")
    objPPT.Visible = True
    Set ppt = objPPT.Presentations.Add
    Set sl = ppt.Slides.Add(1, 12)
    Set sh = sl.Shapes.AddShape(msoShapeRectangle, 50, 50, 100, 50)
    With sh.ActionSettings(1)
        .Action = 7
        .Hyperlink.Address = "http://www.excelworld.ru"
    End With
End Sub

[/vba]

ЯД: 410013299366744 WM: R193491431804

Ответить

Страница 1 из 1
1