drovosek1988
30-01-2023, 13:07
Добрый день!
Вопрос касается выполнения макроса, который копирует таблицу и отправляет её в телеграм при заблокированной операционной системе(ОС). При разблокированной ОС всё работает как надо.
Ранее макрос работал без проблем, однако после НГ, что- то изменилось и при блокировке ОС(WIN+L), при выполнении макроса стала вылезать ошибка (RUN TIME ERROR 1004) c описаниями:
https://radikal.host/i/JeCeUg
до этого тоже была 1004 ошибка но с описанием не верный метод Range.....
Когда разблокирую ОС и нажму Debug в окошке - подсвечивает строку CopyPicture:
Function Range_to_Picture(rng)
Dim sName As String, wsTmpSh As Worksheet
Application.ScreenUpdating = False
Application.DisplayAlerts = False
With rng
.CopyPicture
Set wsTmpSh = ThisWorkbook.Sheets.Add
sName = ActiveWorkbook.FullName & "_" & ActiveSheet.Name & "_Range"
With wsTmpSh.ChartObjects.Add(0, 0, .Width, .Height).Chart
.ChartArea.Border.LineStyle = 0
.Parent.Select
.Paste
.Export Filename:=sName & ".gif", FilterName:="GIF"
.Parent.Delete
End With
End With
wsTmpSh.Delete
Application.ScreenUpdating = True
Application.DisplayAlerts = True
Range_to_Picture = sName & ".gif"
End Function
Нашел похожую проблему:https://translated.turbopages.org/proxy_u....xceldev
Но не совсем понимаю, что надо сделать.
Плюс еще добавлю: Если я предварительно зайду удалённо на данный рабочий стол и потом выйду из него, то макрос будет работать при заблокированной ОС. Но если блокирую ОС сидя у ноутбука, то не работает.
Кто- то еще сталкивался с данной проблемой?
WIN10
Office 2019
Вопрос касается выполнения макроса, который копирует таблицу и отправляет её в телеграм при заблокированной операционной системе(ОС). При разблокированной ОС всё работает как надо.
Ранее макрос работал без проблем, однако после НГ, что- то изменилось и при блокировке ОС(WIN+L), при выполнении макроса стала вылезать ошибка (RUN TIME ERROR 1004) c описаниями:
https://radikal.host/i/JeCeUg
до этого тоже была 1004 ошибка но с описанием не верный метод Range.....
Когда разблокирую ОС и нажму Debug в окошке - подсвечивает строку CopyPicture:
Function Range_to_Picture(rng)
Dim sName As String, wsTmpSh As Worksheet
Application.ScreenUpdating = False
Application.DisplayAlerts = False
With rng
.CopyPicture
Set wsTmpSh = ThisWorkbook.Sheets.Add
sName = ActiveWorkbook.FullName & "_" & ActiveSheet.Name & "_Range"
With wsTmpSh.ChartObjects.Add(0, 0, .Width, .Height).Chart
.ChartArea.Border.LineStyle = 0
.Parent.Select
.Paste
.Export Filename:=sName & ".gif", FilterName:="GIF"
.Parent.Delete
End With
End With
wsTmpSh.Delete
Application.ScreenUpdating = True
Application.DisplayAlerts = True
Range_to_Picture = sName & ".gif"
End Function
Нашел похожую проблему:https://translated.turbopages.org/proxy_u....xceldev
Но не совсем понимаю, что надо сделать.
Плюс еще добавлю: Если я предварительно зайду удалённо на данный рабочий стол и потом выйду из него, то макрос будет работать при заблокированной ОС. Но если блокирую ОС сидя у ноутбука, то не работает.
Кто- то еще сталкивался с данной проблемой?
WIN10
Office 2019