Домашняя страница Undo Do Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Присвоение кнопке гиперссылки из Экселя в Power Point - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Excel и другие приложения » Power Point » Присвоение кнопке гиперссылки из Экселя в Power Point (Макросы/Sub)
Присвоение кнопке гиперссылки из Экселя в Power Point
azartan Дата: Понедельник, 18.01.2016, 18:51 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 20
Репутация: 0 ±
Замечаний: 0% ±

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

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

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

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

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

Спасибо

(заранее извините, если не в ту тему наприсала)
 
Ответить
СообщениеЗдравствуйте!

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

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

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

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

Спасибо

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

Автор - azartan
Дата добавления - 18.01.2016 в 18:51
Manyasha Дата: Среда, 20.01.2016, 10:02 | Сообщение № 2
Группа: Модераторы
Ранг: Старожил
Сообщений: 1833
Репутация: 766 ±
Замечаний: 0% ±

Excel 2007, 2010
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]


marinamorozova_box@mail.ru
ЯД: 410013299366744 WM: R193491431804
 
Ответить
Сообщение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]

Автор - Manyasha
Дата добавления - 20.01.2016 в 10:02
Мир MS Excel » Вопросы и решения » Excel и другие приложения » Power Point » Присвоение кнопке гиперссылки из Экселя в Power Point (Макросы/Sub)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2017 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!