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

Вход

Регистрация

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

 

= Мир MS Excel/Импорт в ПоверПоинт из Эксель - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Импорт в ПоверПоинт из Эксель (Макросы/Sub)
Импорт в ПоверПоинт из Эксель
Евгантр Дата: Воскресенье, 26.05.2019, 14:17 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Прошу помощи) в тексте ниже макрос, который берет картинки из папки и вставляет их в презентацию. Как изменить метод в shapes (либо какие-то другие махинации) чтобы в экселе на листе 1 копировался диапазон например "A1:B100" и вставлялся на первый лист презентации через вставить/cпециальная вставка/cвязь/Объект лист Microsoft Excel, и так по аналогии со следующими листами эксель

[vba]
Код
Sub Macro()

Dim oApp As New PowerPoint.Application
Dim oPresent As PowerPoint.Presentation
oApp.Activate
oApp.Visible = msoTrue
Set oPresent = oApp.Presentations.Add()

' Начало работы с библиотекой scripting Runtime

Dim oFSO As New Scripting.FileSystemObject
Dim oFolder As Scripting.Folder
Dim oFile As Scripting.File

Set oFolder = oFSO.GetFolder("C:\Users\Евгений\Новая папка")
Dim nCounter As Integer
nCounter = 1

For Each oFile In oFolder.Files
Set oSlide = oApp.ActivePresentation.Slides.Add(nCounter, ppLayoutBlank)
oSlide.Shapes.AddPicture Filename:="C:\Users\Евгений\Desktop\Новая папка" & "\" & oFile.Name, _
LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=10, Top:=10, Width:=700, Height:=520

nCounter = nCounter + 1
Next

End Sub
[/vba]


Сообщение отредактировал Евгантр - Воскресенье, 26.05.2019, 19:46
 
Ответить
СообщениеПрошу помощи) в тексте ниже макрос, который берет картинки из папки и вставляет их в презентацию. Как изменить метод в shapes (либо какие-то другие махинации) чтобы в экселе на листе 1 копировался диапазон например "A1:B100" и вставлялся на первый лист презентации через вставить/cпециальная вставка/cвязь/Объект лист Microsoft Excel, и так по аналогии со следующими листами эксель

[vba]
Код
Sub Macro()

Dim oApp As New PowerPoint.Application
Dim oPresent As PowerPoint.Presentation
oApp.Activate
oApp.Visible = msoTrue
Set oPresent = oApp.Presentations.Add()

' Начало работы с библиотекой scripting Runtime

Dim oFSO As New Scripting.FileSystemObject
Dim oFolder As Scripting.Folder
Dim oFile As Scripting.File

Set oFolder = oFSO.GetFolder("C:\Users\Евгений\Новая папка")
Dim nCounter As Integer
nCounter = 1

For Each oFile In oFolder.Files
Set oSlide = oApp.ActivePresentation.Slides.Add(nCounter, ppLayoutBlank)
oSlide.Shapes.AddPicture Filename:="C:\Users\Евгений\Desktop\Новая папка" & "\" & oFile.Name, _
LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=10, Top:=10, Width:=700, Height:=520

nCounter = nCounter + 1
Next

End Sub
[/vba]

Автор - Евгантр
Дата добавления - 26.05.2019 в 14:17
Pelena Дата: Воскресенье, 26.05.2019, 14:24 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 14472
Репутация: 3172 ±
Замечаний: ±

Excel 2010, 2016 & Mac Excel
Евгантр, оформите код тегами с помощью кнопки # в режиме правки поста. И файл с примером помог бы в понимании проблемы


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеЕвгантр, оформите код тегами с помощью кнопки # в режиме правки поста. И файл с примером помог бы в понимании проблемы

Автор - Pelena
Дата добавления - 26.05.2019 в 14:24
Евгантр Дата: Воскресенье, 26.05.2019, 14:51 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Pelena, Добавил два файла - в нем есть примеры таблиц, которые кодом надо перенести в повер поинт через вставить/специальная вставка/связать/Объект лист Microsoft Excel
Также добавил поверПоинт с готовым результатом.
Плюс в эксельке в VBA добавлен код, который берет из указанной папки картинки и автоматически их вставляет в презентацию - и как писал выше - вопрос в том чтобы переделать код так, чтобы он брал не картинки из папки, а таблички из эксель и также вставлял их в повер поинт
К сообщению приложен файл: 5506508.xlsm(32.1 Kb) · 9852770.pptx(53.9 Kb)


Сообщение отредактировал Евгантр - Воскресенье, 26.05.2019, 17:10
 
Ответить
СообщениеPelena, Добавил два файла - в нем есть примеры таблиц, которые кодом надо перенести в повер поинт через вставить/специальная вставка/связать/Объект лист Microsoft Excel
Также добавил поверПоинт с готовым результатом.
Плюс в эксельке в VBA добавлен код, который берет из указанной папки картинки и автоматически их вставляет в презентацию - и как писал выше - вопрос в том чтобы переделать код так, чтобы он брал не картинки из папки, а таблички из эксель и также вставлял их в повер поинт

Автор - Евгантр
Дата добавления - 26.05.2019 в 14:51
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Импорт в ПоверПоинт из Эксель (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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