Сохранение презентации под заданным именем

@SnaiPerArts · Регистрация: 02.08.2011

Студворк — интернет-сервис помощи студентам

Здравствуйте, хотел реализовать сохранение презентации под определенным именем (имя задам сам). Написал вроде кое что, но не пойму как переменную засунуть в сохранение. Вот что я напсиал:

Visual Basic
1
2
3
4
5
6
7
8
Sub sox()
Dim naz As Object
naz = InputBox(Название, Название, defaultValue, 100, 100)
    With ActivePresentation.BuiltInDocumentProperties
        .Item(Index:=1).Value = naz
    End With
ActivePresentation.SaveAs FileName:="C:\Users\Денис\Desktop\naz.ppt"
End Sub

Как сделать чтобы презентация сохранялась под именем, который прописан в naz?

@Busine2009 · 02.08.2011, 09:14

Visual Basic
1
2
3
4
5
Sub P1()
Dim Переменная As String
Переменная = "naz.ppt"
ActivePresentation.SaveAs FileName:="C:\Users\Денис\Desktop\" & Переменная
End Sub

@SnaiPerArts · 02.08.2011, 09:17 **[ТС]**

Может я не правилньо отписал, я ввожу название в перменную naz, и нужно чтобы сохранял презентацию под этим названием, т.е. если я ввожу naz = Форум , то должен сохранять "C:\Users\Денис\Desktop\Форум.ppt"

@Busine2009 · 02.08.2011, 09:20

Visual Basic
1
2
3
4
5
6
7
8
Sub sox()
Dim naz As String
naz = InputBox("Название")
    With ActivePresentation.BuiltInDocumentProperties
        .Item(Index:=1).Value = naz
    End With
ActivePresentation.SaveAs FileName:="C:\Users\Денис\Desktop\" & naz
End Sub

@SnaiPerArts · 02.08.2011, 09:22 **[ТС]**

Так то работает, а вот как сделать, чтобы еще следом сохранял в формате 2003 PowerPoint? Стоит 2007 офис.

@Busine2009 · 02.08.2011, 09:45

Visual Basic
1
2
3
4
5
6
Sub P1()
Dim Переменная As String
Переменная = "Имя"
ActivePresentation.SaveAs _
    FileName:="C:\Documents and Settings\Пользователь\Рабочий стол\" & Переменная & ".ppt"
End Sub

@SnaiPerArts · 02.08.2011, 09:55 **[ТС]**

спасибо огромное, и еще вот тут вопрос, ты когда нибудь слышал о iSpring?

@Busine2009 · 02.08.2011, 10:06

Сообщение от SnaiPerArts

ты когда нибудь слышал о iSpring?

нет. А что нужно?

@SnaiPerArts · 02.08.2011, 10:26 **[ТС]**

ну вот iSpring давет возможность создавать из PowerPoint презентаций Flash презентацию. Так вот, хотелось бы чтобы после всех выше дейсвий, запускалась процедура создания Flash, там надо всего одну кнопку нажать. Вот можешь прочитать про iSpring: http://www.ispringsolutions.com/ или http://www.ispring.ru/. Если можешь помоги.

@Busine2009 · 02.08.2011, 11:02

SnaiPerArts,
чтобы быстрее процесс пошёл, выложите здесь образец презентации: оставьте в ней столько слайдов, сколько необходимо, чтобы решить поставленную задачу. Оставьте на слайдах минимум информации (чтобы хватило, чтобы разобраться, как решить задачу).

Далее, напишите подробно, как нужно использовать надстройку iSpring на вкладке iSprint Presenter: какую группу использовать на этой вкладке, какую кнопку нажать, чтобы решить элементарную задачу, на основе которой уже можно что-то придумать и понять.

@SnaiPerArts · 02.08.2011, 11:20 **[ТС]**

Ну во первых надо использовать iSpring Pro.
Ну я открываю презентацию, и выполняю макрос. Что должен делать макрос:
1.Изменить свойство презентации, добавить тему. (Сделал)
2. Выделить 4 слайда. (потребуется для создания Flash)
3. Создать Flash презентацию, посредством iSpring Pro, на вкладке iSpring Pro нужно нажать кнопку Быстрая публикация (Quick Publish).
4. Когда Flash презентация создана, макрос должен сохранить презентацию в 2 форматах, в папку с Flash презентацией. (Сделал, спасибо Busine2009)

@Busine2009 · 02.08.2011, 12:02

Сообщение от SnaiPerArts

2. Выделить 4 слайда. (потребуется для создания Flash)

для этого нужно код написать?

@SnaiPerArts · 02.08.2011, 12:08 **[ТС]**

Желательно, тогда будет проще с созданием Flash

@Busine2009 · 02.08.2011, 12:15

SnaiPerArts,
вот так выделяются слайды с 1 по 4:

Visual Basic
1
2
3
Sub P1()
ActivePresentation.Slides.Range(Array(1, 2, 3, 4)).Select
End Sub

Сообщение от SnaiPerArts

на вкладке iSpring Pro нужно нажать кнопку Быстрая публикация (Quick Publish)

с помощью VBA что ли нажать?

@SnaiPerArts · 02.08.2011, 12:19 **[ТС]**

Ну как бы "нажать", я посмотрел, библиотеку iSpring подключить можно, есть функции, как раз есть быстрая публикация, но я не смог её реализовать.

@Busine2009 · 02.08.2011, 12:58

SnaiPerArts,
т.е. нужно через VBA запустить iSpring?

@SnaiPerArts · 02.08.2011, 13:09 **[ТС]**

Да, библиотеки есть, но вот как правильно прописать я не знаю.

@Busine2009 · 02.08.2011, 14:53

SnaiPerArts,
нет, не знаю, как запустить iSprint через её программный интерфейс. Нужна документация, хотя бы на английском языке и с примерами.

Можно попробовать нажать на кнопку на ленте.

@SnaiPerArts · 02.08.2011, 17:58 **[ТС]**

Документации в том то и дело нету((( Если бы я знал как нажать на кнопку на ленте, средствами VBA)))

Добавлено через 2 часа 13 минут
Busine2009, а как сделать чтобы через VB действия производились над открытой презентацией?

@Busine2009 · 02.08.2011, 18:07

Сообщение от SnaiPerArts

а как сделать чтобы через VB действия производились над открытой презентацией?

Чтобы увидеть результат выполнения кода: View - Immediate Window.

Код:

Visual Basic
1
2
3
4
5
6
7
8
Sub P1()
'Для удобства написания кода (меньше кода писать)
'надо обращаться к презентациям через переменные.
Dim Презентация As PowerPoint.Presentation
Set Презентация = Application.Presentations("prez.pptm")
'Просто обращаемся к презентации для наглядности.
Debug.Print Презентация.Name
End Sub

Новые блоги и статьи Все статьи Все блоги /
Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка SDL3 и Box2D из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .
Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»

@SnaiPerArts 0 / 0 / 0 Регистрация: 02.08.2011 Сообщений: 33
	02.08.2011, 09:17 [ТС]
	Может я не правилньо отписал, я ввожу название в перменную naz, и нужно чтобы сохранял презентацию под этим названием, т.е. если я ввожу naz = Форум , то должен сохранять "C:\Users\Денис\Desktop\Форум.ppt" 0

@SnaiPerArts 0 / 0 / 0 Регистрация: 02.08.2011 Сообщений: 33
	02.08.2011, 09:22 [ТС]
	Так то работает, а вот как сделать, чтобы еще следом сохранял в формате 2003 PowerPoint? Стоит 2007 офис. 0

@SnaiPerArts 0 / 0 / 0 Регистрация: 02.08.2011 Сообщений: 33
	02.08.2011, 09:55 [ТС]
	спасибо огромное, и еще вот тут вопрос, ты когда нибудь слышал о iSpring? 0

@SnaiPerArts 0 / 0 / 0 Регистрация: 02.08.2011 Сообщений: 33
	02.08.2011, 10:26 [ТС]
	ну вот iSpring давет возможность создавать из PowerPoint презентаций Flash презентацию. Так вот, хотелось бы чтобы после всех выше дейсвий, запускалась процедура создания Flash, там надо всего одну кнопку нажать. Вот можешь прочитать про iSpring: http://www.ispringsolutions.com/ или http://www.ispring.ru/. Если можешь помоги. 0

@Busine2009 2309 / 1541 / 115 Регистрация: 13.06.2009 Сообщений: 5,575
	02.08.2011, 11:02
	SnaiPerArts, чтобы быстрее процесс пошёл, выложите здесь образец презентации: оставьте в ней столько слайдов, сколько необходимо, чтобы решить поставленную задачу. Оставьте на слайдах минимум информации (чтобы хватило, чтобы разобраться, как решить задачу). Далее, напишите подробно, как нужно использовать надстройку iSpring на вкладке iSprint Presenter: какую группу использовать на этой вкладке, какую кнопку нажать, чтобы решить элементарную задачу, на основе которой уже можно что-то придумать и понять. 0

@SnaiPerArts 0 / 0 / 0 Регистрация: 02.08.2011 Сообщений: 33
	02.08.2011, 12:08 [ТС]
	Желательно, тогда будет проще с созданием Flash 0

@SnaiPerArts 0 / 0 / 0 Регистрация: 02.08.2011 Сообщений: 33
	02.08.2011, 12:19 [ТС]
	Ну как бы "нажать", я посмотрел, библиотеку iSpring подключить можно, есть функции, как раз есть быстрая публикация, но я не смог её реализовать. 0

@Busine2009 2309 / 1541 / 115 Регистрация: 13.06.2009 Сообщений: 5,575
	02.08.2011, 12:58
	SnaiPerArts, т.е. нужно через VBA запустить iSpring? 0

@SnaiPerArts 0 / 0 / 0 Регистрация: 02.08.2011 Сообщений: 33
	02.08.2011, 13:09 [ТС]
	Да, библиотеки есть, но вот как правильно прописать я не знаю. 0

@Busine2009 2309 / 1541 / 115 Регистрация: 13.06.2009 Сообщений: 5,575
	02.08.2011, 14:53
	SnaiPerArts, нет, не знаю, как запустить iSprint через её программный интерфейс. Нужна документация, хотя бы на английском языке и с примерами. Можно попробовать нажать на кнопку на ленте. 0

@SnaiPerArts 0 / 0 / 0 Регистрация: 02.08.2011 Сообщений: 33
	02.08.2011, 17:58 [ТС]
	Документации в том то и дело нету((( Если бы я знал как нажать на кнопку на ленте, средствами VBA))) Добавлено через 2 часа 13 минут Busine2009, а как сделать чтобы через VB действия производились над открытой презентацией? 0