Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/5: Рейтинг темы: голосов - 5, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 07.09.2020
Сообщений: 3
1

Добавление в презентацию чек-бокса с полем дата и время последнего активирования чек-бокса

07.09.2020, 16:29. Показов 968. Ответов 4

Добрый день, уважаемые!
Помогите пож-та, весь инет обыскал - не могу найти.

Как вставить в PowerPoint на все слайды в свободное поле или за пределы листа чек-бокс и текстовый блок.
С макросом, так чтобы при нажатии на чек-бокс (галка стоит) - в текстовом поле появлялось Дата и Время последнего нажатия.
При отжатии чек-бокса - Дата и время не пропадало, а оставалось без изменений до следующего нажатия.

Заранее спасибо!
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
07.09.2020, 16:29
Ответы с готовыми решениями:

Ввод данных в таблицу в зависимости от состояния чек бокса?
:) Всем привет! Не могу справиться с задачей, как говорил кот Матроскин "у нас ума не хватает"...

Через стандартные функции убрать выделение чек бокса
Здравствуйте, столкнулся с проблемой такого плана что не могу через стандартные функции убирать...

Удаление последнего слова из текст бокса
Обычно это делается так: string text = txbTags.Text; string result = text.Substring(0,...

За какое время обналичивается google-чек в банке?
<b>За какое время обналичивается google-чек в банке?</b> А то апрельский чек за полтора месяца...

__________________
4
515 / 340 / 148
Регистрация: 09.01.2017
Сообщений: 1,036
07.09.2020, 17:27 2
Лучший ответ Сообщение было отмечено nemec74 как решение

Решение

nemec74,
Так?
Visual Basic
1
2
3
4
5
6
7
8
Private Sub CheckBox1_Change()
Dim s As Object
 
Set s = Application.ActivePresentation.Slides(1).Shapes("CheckBox1").OLEFormat.Object
    If CheckBox1.Value = True Then
          TextBox1.Text = Date & " " & Time
    End If
End Sub
1
0 / 0 / 0
Регистрация: 07.09.2020
Сообщений: 3
07.09.2020, 17:37  [ТС] 3
Спасибо огромное! Да, так - получилось! только как заставить чек-бокс работать не в режиме просмотра (F5), а еще на стадии редактирования презентации?

Добавлено через 1 минуту
Цитата Сообщение от КостяФедореев Посмотреть сообщение
nemec74,
Так?
Visual Basic
1
2
3
4
5
6
7
8
Private Sub CheckBox1_Change()
Dim s As Object
 
Set s = Application.ActivePresentation.Slides(1).Shapes("CheckBox1").OLEFormat.Object
    If CheckBox1.Value = True Then
          TextBox1.Text = Date & " " & Time
    End If
End Sub
0
515 / 340 / 148
Регистрация: 09.01.2017
Сообщений: 1,036
07.09.2020, 17:39 4
nemec74, никак, по крайней мере я не смог...
может кто подскажет.
1
0 / 0 / 0
Регистрация: 07.09.2020
Сообщений: 3
07.09.2020, 17:57  [ТС] 5
Есть вариант
Вставка - фигуры - управляющие кнопки - настраиваемая
но там неактивно "запуск макроса"...
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
07.09.2020, 17:57

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Поворот бокса
Надо что бы при наведении на бокс, он перевернулся вокруг своей оси на 180 градусов, а когда...

Название бокса кликабельно
Приветствую! Создал на сайте http://skmedved.club/ информационные боксы в горизонтальном порядке,...

Настройка виртуал бокса
установил икспи на виртуал бокс,нажал масштабировать окно теперь у меня пропала панель меню машины...

Затемнение нижнего бокса
Здравствуйте. Есть часть сайта, как таблица. Ширина - 1024. Необходимо для этой таблицы сделать...

Модель Бокса-Дженкинса
Здравствуйте! Хотел бы попросить помощи! Есть исходные данные x и y. x:, y:. Нужно сделать прогноз...

Очистка чат бокса
Всем добрый вечер. Сталкнулась с такой проблемой.. Есть самописный форум, и есть самописный чат на...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

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