Два действия на объект

@luivilla · Регистрация: 01.03.2015

Дано: есть презентация, на первом слайде которой порядка 20 кнопок, на каждой подвешено действие перехода на другой слайд (у каждой на свой). С тех слайдов, на которые переходим, есть возврат на первый. Так вот. Можно ли сделать так, чтобы после возврата на первый слайд кнопка, на которую нажимали изначально, исчезала или перекрашивалась в другой цвет. В общем как-то отмечалась, чтобы было понятно, что на нее уже нажимали

Fairuza · 25.11.2019, 07:37

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

@Dinoxromniy · 25.11.2019, 12:41

luivilla, такой вопрос обсуждался на форуме: PowerPoint VBA: переход к другому слайду по кнопке

@luivilla · 25.11.2019, 17:11 **[ТС]**

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

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

Не меняет. Или это нужно где-то настраивать. Если можно настроить, то где?

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

luivilla, такой вопрос обсуждался на форуме: PowerPoint VBA: переход к другому слайду по кнопке

Да, спасибо, я почитала. Только вот я макросы никогда не писала( Но могу попробовать разобраться, наверное. Если опираться на указанную вами тему, то возникают ещё два вопроса:
1. Для каждой кнопки нужно писать свой макрос или просто как-то передавать параметр?
2. Кнопки у меня - это просто прямоугольники с действиями, от этого что-то меняется в кое? Что именно и как?

@Dinoxromniy · 25.11.2019, 17:13

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

1. Для каждой кнопки нужно писать свой макрос или просто как-то передавать параметр?

Скопировать свой экземпляр кода, указанного в теме.

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

2. Кнопки у меня - это просто прямоугольники с действиями, от этого что-то меняется в кое? Что именно и как?

Да, это меняет код. Приложите пример в формате ppt.

@luivilla · 25.11.2019, 17:29 **[ТС]**

Приложила.

@Dinoxromniy · 25.11.2019, 18:00

luivilla, смотрите. Каждому рисунку вашей кнопки (то есть объекту shape) вами сопоставлено действие.
Единственному вопросу за 300 я сопоставил макрос:

Visual Basic

Public Sub Boff()
ActivePresentation.Slides.Item(1).Shapes(15).Visible = msoFalse
ActivePresentation.Slides.Item(1).Shapes(16).Visible = msoFalse
SlideShowWindows(1).View.GotoSlide 6
End Sub

Из объектов Shapes(15) и Shapes(16) состоит ваша кнопка "300", Slides.Item(1) - ваши кнопки находятся на первом слайде, View.GotoSlide 6 - при нажатии кнопки "300" нужно открыть слайд номер 6.
Если эти параметры меняются - кнопки вы перенесете на другой слайд, либо открыть нужно слайд не 6, а какой-либо другой, либо скрыть другую кнопку - указанные циферки нужно поменять.

Соответственно, включить скрытые кнопки можно нажав на кнопку "Показать" (это Shapes(17)), либо запустив вручную второй код в редакторе vba.

Чтобы скрыть другие ваши кнопки, нужно скопировать в редакторе vba код Sub Boff, вставить ниже под новым именем, например так:

Visual Basic

Public Sub Boff1()
ActivePresentation.Slides.Item(1).Shapes(12).Visible = msoFalse
ActivePresentation.Slides.Item(1).Shapes(7).Visible = msoFalse
SlideShowWindows(1).View.GotoSlide 5
End Sub

Затем методом перебора подобрать нужные циферки Shapes(12).Visible и Shapes(7).Visible, чтобы гасла нужная кнопка, и этой кнопке в действиях присвоить макрос Boff1.
Для следующей кнопки Boff2, потом Boff3 и т.д.

@luivilla · 25.11.2019, 23:33 **[ТС]**

Вау, спасибо. Пойду разбираться.

Добавлено через 5 часов 26 минут
Оно работает, еще раз спасибо!
Небольшой вопрос, скорее уже из интереса. При запуске макроса в режиме редактирования (не показа презентации) вылетает ошибка "Run-time error
SlideShowWindows(unknown member): Integer out of range. 1 is not in valid range of 1 to 0"
Макрос при этом срабатывает без ошибок. Это почему так происходит?

@Dinoxromniy · 25.11.2019, 23:38

luivilla, это в коде как раз таки обращение к окну показа презентации, а его еще не существует. Отсюда и ошибка.

@luivilla 3 / 3 / 0 Регистрация: 01.03.2015 Сообщений: 107
		1
	Два действия на объект 25.11.2019, 01:28. Просмотров 1325. Ответов 8 Метки нет (Все метки) Дано: есть презентация, на первом слайде которой порядка 20 кнопок, на каждой подвешено действие перехода на другой слайд (у каждой на свой). С тех слайдов, на которые переходим, есть возврат на первый. Так вот. Можно ли сделать так, чтобы после возврата на первый слайд кнопка, на которую нажимали изначально, исчезала или перекрашивалась в другой цвет. В общем как-то отмечалась, чтобы было понятно, что на нее уже нажимали 0

Fairuza 5556 / 2882 / 570 Регистрация: 23.11.2010 Сообщений: 9,521
	25.11.2019, 07:37	2
	Обычно на кнопке перехода бывает надпись, при переходе по ней надпись меняет цвет, таким образом можно определить что переход уже был 0

@Dinoxromniy 652 / 375 / 122 Регистрация: 22.12.2015 Сообщений: 1,097
	25.11.2019, 12:41	3
	luivilla, такой вопрос обсуждался на форуме: PowerPoint VBA: переход к другому слайду по кнопке 0

@luivilla 3 / 3 / 0 Регистрация: 01.03.2015 Сообщений: 107
	25.11.2019, 17:11 [ТС]	4
	Сообщение от Fairuza Обычно на кнопке перехода бывает надпись, при переходе по ней надпись меняет цвет, таким образом можно определить что переход уже был Не меняет. Или это нужно где-то настраивать. Если можно настроить, то где? Сообщение от Dinoxromniy luivilla, такой вопрос обсуждался на форуме: PowerPoint VBA: переход к другому слайду по кнопке Да, спасибо, я почитала. Только вот я макросы никогда не писала( Но могу попробовать разобраться, наверное. Если опираться на указанную вами тему, то возникают ещё два вопроса: 1. Для каждой кнопки нужно писать свой макрос или просто как-то передавать параметр? 2. Кнопки у меня - это просто прямоугольники с действиями, от этого что-то меняется в кое? Что именно и как? 0

@Dinoxromniy 652 / 375 / 122 Регистрация: 22.12.2015 Сообщений: 1,097
	25.11.2019, 17:13	5
	Сообщение от luivilla 1. Для каждой кнопки нужно писать свой макрос или просто как-то передавать параметр? Скопировать свой экземпляр кода, указанного в теме. Сообщение от luivilla 2. Кнопки у меня - это просто прямоугольники с действиями, от этого что-то меняется в кое? Что именно и как? Да, это меняет код. Приложите пример в формате ppt. 0

@luivilla 3 / 3 / 0 Регистрация: 01.03.2015 Сообщений: 107
	25.11.2019, 23:33 [ТС]	8
	Вау, спасибо. Пойду разбираться. Добавлено через 5 часов 26 минут Оно работает, еще раз спасибо! Небольшой вопрос, скорее уже из интереса. При запуске макроса в режиме редактирования (не показа презентации) вылетает ошибка "Run-time error SlideShowWindows(unknown member): Integer out of range. 1 is not in valid range of 1 to 0" Макрос при этом срабатывает без ошибок. Это почему так происходит? 0

@Dinoxromniy 652 / 375 / 122 Регистрация: 22.12.2015 Сообщений: 1,097
	25.11.2019, 23:38	9
	luivilla, это в коде как раз таки обращение к окну показа презентации, а его еще не существует. Отсюда и ошибка. 1

Опции темы

Два действия на объект

Решение