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

@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?

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

Если честно я не совсем понял, ну вот например, я создал форму в VB добавил кнопку, как сделать чтобы при нажатии на кнопку, сохранялась открытая презентация?
Код на VBA:

Visual Basic
1
2
ActivePresentation.SaveAs FileName:="C:\Users\Денис\Desktop\" & naz & ".ppt"
ActivePresentation.SaveAs FileName:="C:\Users\Денис\Desktop\" & naz & ".pptx"

@Busine2009 · 02.08.2011, 18:16

SnaiPerArts,
а откуда эта презентация сама берётся:

открывается или
создётся?

@SnaiPerArts · 02.08.2011, 18:18 **[ТС]**

Открывается.

@Busine2009 · 02.08.2011, 18:20

SnaiPerArts,
с помощью VBA открывается или вручную?

@SnaiPerArts · 02.08.2011, 18:21 **[ТС]**

Открываю презентацию вручную

@Busine2009 · 02.08.2011, 18:34

Код:

Visual Basic
1
2
3
4
5
6
7
8
Sub P2()
Dim naz As String
naz = "Name"
Dim Презентация As PowerPoint.Presentation
Set Презентация = Application.ActivePresentation
Презентация.SaveCopyAs FileName:="C:\Documents and Settings\Пользователь\Рабочий стол\" & naz & ".ppt"
Презентация.SaveCopyAs FileName:="C:\Documents and Settings\Пользователь\Рабочий стол\" & naz & ".pptx"
End Sub

@SnaiPerArts · 02.08.2011, 18:39 **[ТС]**

выдает ошибку User-defined type not defined

@Busine2009 · 02.08.2011, 18:41

SnaiPerArts,
а какой номер строки в коде (они нумеруются на форуме)?

@SnaiPerArts · 02.08.2011, 18:48 **[ТС]**

Dim Презентация As PowerPoint.Presentation

@Busine2009 · 02.08.2011, 18:54

SnaiPerArts,
вы не из VBA, относящемуся к Microsoft PowerPoint, код запускаете? А откуда?
Tools - Rererences... - Microsoft PowerPoint Object Library.

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

в Visual Basic

@Busine2009 · 02.08.2011, 21:07

SnaiPerArts,
тогда здесь https://www.cyberforum.ru/visual-basic/ новую тему создавайте (только эту тему не копируйте, а то закроют).
Может кто поможет. Если никто не поможет, то сюда заходите, попробуем что-нибудь придумать. Просто у меня не установлен VB6 и я не смогу давать точные ответы.

Новые блоги и статьи Все статьи Все блоги /
GitHub Copilot в JetBrains: модель по умолчанию, Fix и контроль MCP and_y87 12.10.2026 10 октября 2026 года GitHub обновил Copilot для JetBrains: добавил настройки стартовой модели, исправления из диагностики и управление автозапуском MCP. Поддержка IDE 2025. 1 прекращена — требуется. . .	День 5 из 28: Codex подсказывает следующий запрос and_y87 12.10.2026 9 октября 2026 года OpenAI запустила бету Composer predictions — подсказок следующего сообщения в текущем диалоге Codex. Это помощь с формулировкой запроса, а не автоматическое продолжение задачи. . . .	Запустил конкурс "тем и промптов для текстовых квестов созданных почти чисто ИИ" Adler 06.10.2026 Всем привет! За последние три-четыре дня я создал более 16 текстовых квестовых игр используя преимущественно по одному запросу к ИИ на игру. Мне так понравилось смотреть все ветки/ сцены во всех. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .
Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .

@Busine2009 2309 / 1541 / 115 Регистрация: 13.06.2009 Сообщений: 5,575
	02.08.2011, 18:16
	SnaiPerArts, а откуда эта презентация сама берётся: открывается или создётся? 0

@SnaiPerArts 0 / 0 / 0 Регистрация: 02.08.2011 Сообщений: 33
	02.08.2011, 18:18 [ТС]
	Открывается. 0

@Busine2009 2309 / 1541 / 115 Регистрация: 13.06.2009 Сообщений: 5,575
	02.08.2011, 18:20
	SnaiPerArts, с помощью VBA открывается или вручную? 0

@SnaiPerArts 0 / 0 / 0 Регистрация: 02.08.2011 Сообщений: 33
	02.08.2011, 18:21 [ТС]
	Открываю презентацию вручную 0

@SnaiPerArts 0 / 0 / 0 Регистрация: 02.08.2011 Сообщений: 33
	02.08.2011, 18:39 [ТС]
	выдает ошибку User-defined type not defined 0

@Busine2009 2309 / 1541 / 115 Регистрация: 13.06.2009 Сообщений: 5,575
	02.08.2011, 18:41
	SnaiPerArts, а какой номер строки в коде (они нумеруются на форуме)? 0

@SnaiPerArts 0 / 0 / 0 Регистрация: 02.08.2011 Сообщений: 33
	02.08.2011, 18:48 [ТС]
	Dim Презентация As PowerPoint.Presentation 0

@Busine2009 2309 / 1541 / 115 Регистрация: 13.06.2009 Сообщений: 5,575
	02.08.2011, 18:54
	SnaiPerArts, вы не из VBA, относящемуся к Microsoft PowerPoint, код запускаете? А откуда? Tools - Rererences... - Microsoft PowerPoint Object Library. 0

@SnaiPerArts 0 / 0 / 0 Регистрация: 02.08.2011 Сообщений: 33
	02.08.2011, 20:52 [ТС]
	в Visual Basic 0

@Busine2009 2309 / 1541 / 115 Регистрация: 13.06.2009 Сообщений: 5,575
	02.08.2011, 21:07
	SnaiPerArts, тогда здесь https://www.cyberforum.ru/visual-basic/ новую тему создавайте (только эту тему не копируйте, а то закроют). Может кто поможет. Если никто не поможет, то сюда заходите, попробуем что-нибудь придумать. Просто у меня не установлен VB6 и я не смогу давать точные ответы. 0