Использую код, который ниже. Но почему то мне постоянно макрос постит ПРЕДЫДУЩИЙ скриншот, а не последний. Почему?
Я уже и задержку ставил в 5 секунд, думал, может принскрин не успевает за макросом. Так нет...
Я уже и два раза заставлял его жать на принтскрин. И дважды прогонял один и тот же код. Все равно он показывает мне ПРЕДЫДУЩИЙ снимок. А первый раз когда его запускаешь - он показывает пустой экран.
Код |
---|
Sub ExportScreenShot() Const FName As String = "C:\Users\Íàòàëüÿ\Desktop\TEST\TEST.jpg" Dim shtTemp As Worksheet Dim chtTemp As Chart Application.ScreenUpdating = False Application.SendKeys "({1068})", True Sleep (2000) Set shtTemp = Worksheets.Add Charts.Add ActiveChart.Location Where:=xlLocationAsObject, Name:=shtTemp.Name Set chtTemp = ActiveChart chtTemp.Paste ActiveWindow.Zoom = 400 chtTemp.Export Filename:=FName Application.DisplayAlerts = False shtTemp.Delete Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub |
Я уже и два раза заставлял его жать на принтскрин. И дважды прогонял один и тот же код. Все равно он показывает мне ПРЕДЫДУЩИЙ снимок. А первый раз когда его запускаешь - он показывает пустой экран.