Использую код, который ниже. Но почему то мне постоянно макрос постит ПРЕДЫДУЩИЙ скриншот, а не последний. Почему?
Я уже и задержку ставил в 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 |
Я уже и два раза заставлял его жать на принтскрин. И дважды прогонял один и тот же код. Все равно он показывает мне ПРЕДЫДУЩИЙ снимок. А первый раз когда его запускаешь - он показывает пустой экран.
