[CDR X5-X8] Поставить паузу

NemoSUN

Топикстартер
12 лет на форуме
Сообщения
197
Реакции
0
Помогите сделать паузу в полторы секунды в макросе:

Код:
Sub CopyLogo()
Dim d As Document
Dim s As Shape
Dim Lg As Layer
Set s = ActiveShape

For Each d In Application.Documents
    For Each Lg In d.ActivePage.Layers
        If Lg.Name = "Logo" Then
            Lg.Activate
            d.ActiveLayer.Editable = True
            Lg.Delete
            d.ActivePage.CreateLayer ("Logo")
            d.ActiveLayer.Paste
            d.ActiveLayer.Editable = False
            d.Save
            d.ActivePage.Layers("General").Activate
        End If
    Next
Next
End Sub
 

_MBK_

Пикирующий бомбардировщик
15 лет на форуме
Сообщения
33 138
Реакции
10 835
Последнее редактирование:

NemoSUN

Топикстартер
12 лет на форуме
Сообщения
197
Реакции
0
Сделал как там. Но на строке Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr)
Пишет ошибку : "Compile error: only comment may appear after End Sub End Function or End Property"
 

_MBK_

Пикирующий бомбардировщик
15 лет на форуме
Сообщения
33 138
Реакции
10 835

NemoSUN

Топикстартер
12 лет на форуме
Сообщения
197
Реакции
0
Там вообще то
Private Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)
Увидел ) НО !!!!! Я вставляю эту строку. Перехожу на любую другую и у меня пропадает Alias "Sleep". Самопроизвольно.
 

NemoSUN

Топикстартер
12 лет на форуме
Сообщения
197
Реакции
0
Всё. Решено.