Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
Другие темы раздела
VBA Сборка данных из разных файлов с трапонированием Добрый день! В vba не силен((, поэтому использовал готовое решение для сборки данных из разных экселевских файлов. Вот код Sub СборкаДанных() Dim FilesToOpen Dim x As Integer Dim... https://www.cyberforum.ru/ vba/ thread342354.html Найти и удалить пустые строки VBA
Помогите! У меня имеется таблица с 3 стобцами. В первом фамилии, во втром и третьем числа. Необходимо найти строки где обе ячейки во втором и третьем стобце будут пустые и удалить это все вместе с...
VBA Для матрицы найти количество столбцов, где есть отрицательные элементы Помогите, пожалуйста задание сделать: Для матрицы В(7,7) найти диапазон значений элементов, найти количество столбцов, где есть отрицательные элементы. Буду очень признателен. https://www.cyberforum.ru/ vba/ thread342262.html VBA появление буквы, цифры на листе Ворд - событие?? Конечно же событие, как его отследить??, например, добавилась 21 буква, сигнал Спасибо https://www.cyberforum.ru/ vba/ thread342258.html
VBA как добавить в ListBox
Есть лист из 3 столбцов, наименование, Ед.из, цена При поиске наименования в listBox1 появляются варианты совпадений. Как добавить в listBox1 вторую колонку с ценой? Что бы listBox1...
VBA On Error не перехватывает исключения https://www.cyberforum.ru/ vba/ thread342233.html
Здравствуйте, Уважаемые! Имеется следующий код, проверяющий наличие необходимых листов в книге Private Sub CheckWorksheets() On Error GoTo handler: Dim sh As Worksheet ...
VBA помощь с макросом https://www.cyberforum.ru/ vba/ thread342193.html
Если в Е13 число 5, то копируем строку 15 пять раз. Копии разместить с 16-ой по 20-ую строку. Точнее говоря нужно добавить 5 копий строк с 16-ой по 20-ую. Строка которая была до копирования...
VBA Из access в excel
Здравствуйте! Вот еще задачка. Если в макросах excel я хоть что-то понимаю, то с access'ом - сплошные пробелы. Нужно следующее: в accesse есть база данных примерно на 3 млн записей (строк)....
VBA Нужна помощь VBA Access https://www.cyberforum.ru/ vba/ thread342089.html
Всем привет.. Мало знаком с программированием.. Есть весовой терминал Тензо-М 018.. к нему прилагается программа для связи с ПК которая вызвает метод: EventsHandler (Терминал, Платформа, Событие,...
VBA Создать имя файла, соответствующее ячейке Здравствуйте! Задача следующая: в Книге excel есть ячейка, в которой данные постоянно меняются в зависимости от запроса. Необходимо создавать каждый раз новый файл excel с отчетом (не важно каким),... https://www.cyberforum.ru/ vba/ thread342036.html
помогите с макросоми VBA
1. Есть столбец с количеством единиц вида работ (целое или дробное число), если в столбце стоит нулевое значение то эту строку нужно скрыть, конец просмотра столбца определяет символ например "&". ...
VBA Сложить ячейки которые в столбце залиты одним цветом и вывести результат https://www.cyberforum.ru/ vba/ thread341989.html
Здравствуйте... Помогите написать макрос, который бы позволял сложить все ячейки залитые одним цветом (в одном столбце) и вывести результат в отдельную ячейку, желательно чтоб маркировать можно было...
Заблокирован
17.08.2011, 07:24 0

Автозапуск слайда в PowerPoint - VBA - Ответ 1918010

17.08.2011, 07:24. Показов 5062. Ответов 3
Метки (Все метки)

Ответ

Цитата Сообщение от YOKODZUMA Посмотреть сообщение
Ладно придумаю что нибудь
напишите, пожалуйста, что придумаете.

Код надо запускать из Excel.
Книга Excel и лист, с которого копируем таблицу, должны быть активными.

1. Вариант. Презентация, в которую надо скопировать таблицу, закрыта.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Sub Процедура1()
'Для удобства написания кода (чтобы появлялись
'всплывающие подсказки после того, как ставим точку)
'подключим библиотеку объектов программы PowerPoint:
'Tools - References... - Microsoft PowerPoint Object Library.
'Обращаться к PowerPoint будем через переменные.
Dim Программа As New PowerPoint.Application
Dim Презентация As PowerPoint.Presentation
'Обращаться к листу Excel, из которого берём таблицу,
'будем через переменную Лист (так кода меньше писать и удобнее).
Dim Лист As Excel.Worksheet
'Делаем программу PowerPoint видимой на мониторе
'(иначе ошибка какая-то выскакивает).
Программа.Visible = msoTrue
'Открываем презентацию и связываем её с переменной Презентация.
'Здесь надо указать путь и имя презентации.
Set Презентация = _
    Программа.Presentations.Open(Filename:="C:\Documents and Settings\Пользователь\Рабочий стол\Презентация1.ppt")
Set Лист = ActiveWorkbook.ActiveSheet
'Копируем таблицу из Excel из активной книги из активного листа.
Лист.Range(Лист.Cells(1, 1), Лист.Cells(5, 5)).Copy
'Вставка таблицы на первый слайд презентации.
Презентация.Slides(1).Shapes.Paste
'Сохранение и закрытие презентации.
Презентация.Save
Презентация.Close
End Sub


2. Вариант. Презентация, в которую надо скопировать таблицу, открыта.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Процедура2()
'Программа PowerPoint должна быть запущена и презентация,
'в которую надо скопировать таблицу, должна быть открыта.
Dim Презентация As Object
Dim Лист As Excel.Worksheet
'Получаем доступ к открытой презентации и связываем её с переменной Презентация.
'Здесь указываем путь и имя презентации.
Set Презентация = GetObject(PathName:="C:\Documents and Settings\Пользователь\Рабочий стол\Презентация1.ppt")
Set Лист = ActiveWorkbook.ActiveSheet
'Копируем таблицу из Excel из активной книги из активного листа.
Лист.Range(Лист.Cells(1, 1), Лист.Cells(5, 5)).Copy
'Вставка таблицы на первый слайд презентации.
Презентация.Slides(1).Shapes.Paste
End Sub


Вернуться к обсуждению:
Автозапуск слайда в PowerPoint VBA
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.08.2011, 07:24
Готовые ответы и решения:

Вставка номера слайда в Powerpoint
Добрый день, коллеги. Подскажите пожалуйста по реализации следующей задачи. Работаю в Powerpoint...

Сохранение слайда Powerpoint через VBA
Как сохранить слайд PowerPoint через VBA?

Powerpoint, определение активного слайда, с которого запускается макрос
Здравствуйте, помогите На слайдах встречаются кнопки, на которые навешаны макросы Так вот...

Автозапуск макроса со слайдом PowerPoint
Нужно сделать так, чтобы при запуске следующего слайда VBA начал выполнять код . Есть какие-нибудь...

3
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
17.08.2011, 07:24

Powerpoint 2013 автоматическая смена слайда
Не могу добиться автоматической смена слайда. Вот такие настройки, галочку "по щелчку" что ставлю,...

Проблемы с сохранением слайда в powerpoint 2007
День добрый! Такой вопрос, при сохранение презентации стало появляться сообщение "Для отмены...

Считать весь всевозможный текст с одного слайда PowerPoint
List<string> strPres = new List<string>(); PPoint.Application ppt; PPoint.Presentations...

Применение дизайна слайда ко всем слайдам в презентации PowerPoint
Имею презентацию, вставляю в нее слайд с другим дизайном из другой презентации. Можно как-нибудь...

Как спрятать дополнительный текст слайда (PowerPoint 2007)?
как спрятать дополнительный текст слайда, т.е. оставить только один заголовок слайда????

Работа слайда от кнопки
У меня полураскрытый слайд, при нажатии на него он разворачивается, при повторном - сворачивается,...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.