powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Эффект мигающей фигуры в PowerPoint
3 сообщений из 3, страница 1 из 1
Эффект мигающей фигуры в PowerPoint
    #34820460
jjj676
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Здравствуйте, Подскажите пожалуйста как сделать в PowerPoint так что бы вставленный рисунок (например с именем Pic1.jpg) мигал. Я так понимаю тут нужен макрос или можно как то без этого обойтись?
...
Рейтинг: 0 / 0
Эффект мигающей фигуры в PowerPoint
    #34826488
LETME
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Я бы просто заанимировал рисунок и всё, думаю - самый простой вариант..
Среди стандартных средств ничего не нашёл - все молчат, значит и правда ничего нет.
Понятно, что можно написать простенький код, что-то типа этого...

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
Private Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)

Private Sub СОБЫТИЕ()

Do Until KeyPress
    If ActivePresentation.Slides( 1 ).Shapes( 1 ).Visible = msoTrue Then
        ActivePresentation.Slides( 1 ).Shapes( 1 ).Visible = msoFalse
    Else
        ActivePresentation.Slides( 1 ).Shapes( 1 ).Visible = msoTrue
    End If
Sleep  1000 
Loop

End Sub

Однако KeyPress у меня не происходит и не знаю - какому событию назначить эту процедуру.
Может кто подскажет? - пустяковая задача то....
...
Рейтинг: 0 / 0
Эффект мигающей фигуры в PowerPoint
    #34831573
jj676
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Пришлось заанимировать рисунок и всё получилось.
...
Рейтинг: 0 / 0
3 сообщений из 3, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Эффект мигающей фигуры в PowerPoint
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]