Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Код с копированием изображения при заблокированной ОС - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Код с копированием изображения при заблокированной ОС (Макросы/Sub)
Код с копированием изображения при заблокированной ОС
lanitfin9422 Дата: Пятница, 27.01.2023, 12:49 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 0% ±

Добрый день!

Вопрос касается выполнения макроса, который копирует таблицу и отправляет её в телеграм при заблокированной операционной системе(ОС). При разблокированной ОС всё работает как надо.

Ранее макрос работал без проблем, однако после НГ, что- то изменилось и при блокировке ОС, при выполнении макроса стала вылезать ошибка (RUN TIME ERROR 1004) c описаниями:

до этого тоже была 1004 ошибка но с описанием меверный метод Range.....
Когда разблокирую ОС и нажму Debug в окошке - подсвечивает CopyPicture:

[vba]
Код

Function Range_to_Picture(rng)
    Dim sName As String, wsTmpSh As Worksheet
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    With rng
       [color=red] .CopyPicture[/color]
        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
[/vba]

Нашел похожую проблему:https://translated.turbopages.org/proxy_u....xceldev

Но не совсем понимаю, что надо сделать.

Кто- то еще сталкивался с данной проблемой?
WIN10
Office 2019


Сообщение отредактировал lanitfin9422 - Пятница, 27.01.2023, 12:57
 
Ответить
СообщениеДобрый день!

Вопрос касается выполнения макроса, который копирует таблицу и отправляет её в телеграм при заблокированной операционной системе(ОС). При разблокированной ОС всё работает как надо.

Ранее макрос работал без проблем, однако после НГ, что- то изменилось и при блокировке ОС, при выполнении макроса стала вылезать ошибка (RUN TIME ERROR 1004) c описаниями:

до этого тоже была 1004 ошибка но с описанием меверный метод Range.....
Когда разблокирую ОС и нажму Debug в окошке - подсвечивает CopyPicture:

[vba]
Код

Function Range_to_Picture(rng)
    Dim sName As String, wsTmpSh As Worksheet
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    With rng
       [color=red] .CopyPicture[/color]
        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
[/vba]

Нашел похожую проблему:https://translated.turbopages.org/proxy_u....xceldev

Но не совсем понимаю, что надо сделать.

Кто- то еще сталкивался с данной проблемой?
WIN10
Office 2019

Автор - lanitfin9422
Дата добавления - 27.01.2023 в 12:49
lanitfin9422 Дата: Пятница, 27.01.2023, 12:50 | Сообщение № 2
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 0% ±

картинка не вставляется: Удалено - Запрещается выкладывать ссылки на файлы, выложенные на сторонних ресурсах
и не сработало выделение в коде:
.CopyPicture


Сообщение отредактировал Serge_007 - Пятница, 27.01.2023, 13:09
 
Ответить
Сообщениекартинка не вставляется: Удалено - Запрещается выкладывать ссылки на файлы, выложенные на сторонних ресурсах
и не сработало выделение в коде:
.CopyPicture

Автор - lanitfin9422
Дата добавления - 27.01.2023 в 12:50
lanitfin9422 Дата: Пятница, 27.01.2023, 13:13 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 0% ±

Удалено - Запрещается выкладывать ссылки на файлы, выложенные на сторонних ресурсах

@Serge_007, а как добавить с ПК скриншот? не нашел на панели загрузку, есть только вставить изображение с с сайта...
 
Ответить
Сообщение
Удалено - Запрещается выкладывать ссылки на файлы, выложенные на сторонних ресурсах

@Serge_007, а как добавить с ПК скриншот? не нашел на панели загрузку, есть только вставить изображение с с сайта...

Автор - lanitfin9422
Дата добавления - 27.01.2023 в 13:13
lanitfin9422 Дата: Понедельник, 30.01.2023, 09:19 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 0% ±

Плюс еще добавлю: Если я предварительно зайду удалённо на данный рабочий стол и потом выйду из него, то макрос будет работать при заблокированной ОС. Но если блокирую ОС сидя у ноутбука, то не работает.
 
Ответить
СообщениеПлюс еще добавлю: Если я предварительно зайду удалённо на данный рабочий стол и потом выйду из него, то макрос будет работать при заблокированной ОС. Но если блокирую ОС сидя у ноутбука, то не работает.

Автор - lanitfin9422
Дата добавления - 30.01.2023 в 09:19
Serge_007 Дата: Понедельник, 30.01.2023, 14:08 | Сообщение № 5
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2748 ±
Замечаний: ±

Excel 2016
как добавить с ПК скриншот?
Как вложение к посту


ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение
как добавить с ПК скриншот?
Как вложение к посту

Автор - Serge_007
Дата добавления - 30.01.2023 в 14:08
Serge_007 Дата: Понедельник, 30.01.2023, 14:09 | Сообщение № 6
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2748 ±
Замечаний: ±

Excel 2016
при блокировке ОС
Что такое "блокировка ОС"?


ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение
при блокировке ОС
Что такое "блокировка ОС"?

Автор - Serge_007
Дата добавления - 30.01.2023 в 14:09
lanitfin9422 Дата: Понедельник, 30.01.2023, 14:40 | Сообщение № 7
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 0% ±

Что такое "блокировка ОС"?


WIN+L
 
Ответить
Сообщение
Что такое "блокировка ОС"?


WIN+L

Автор - lanitfin9422
Дата добавления - 30.01.2023 в 14:40
Serge_007 Дата: Понедельник, 30.01.2023, 14:53 | Сообщение № 8
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2748 ±
Замечаний: ±

Excel 2016
при блокировке ОС, при выполнении макроса стала вылезать ошибка
А как Вы запускаете функцию, если у Вас "заблокирована ОС"?


ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение
при блокировке ОС, при выполнении макроса стала вылезать ошибка
А как Вы запускаете функцию, если у Вас "заблокирована ОС"?

Автор - Serge_007
Дата добавления - 30.01.2023 в 14:53
lanitfin9422 Дата: Понедельник, 30.01.2023, 14:58 | Сообщение № 9
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 0% ±

А как Вы запускаете функцию, если у Вас "заблокирована ОС"?


У меня планировщик заданий в определенное время открывает необходимый файл excel, с макросом на открытие.
причем аналогичный файл, но там отправляется текст в группу телеграм, всё работает. с картинкой нет и не понимаю, что не так.
 
Ответить
Сообщение
А как Вы запускаете функцию, если у Вас "заблокирована ОС"?


У меня планировщик заданий в определенное время открывает необходимый файл excel, с макросом на открытие.
причем аналогичный файл, но там отправляется текст в группу телеграм, всё работает. с картинкой нет и не понимаю, что не так.

Автор - lanitfin9422
Дата добавления - 30.01.2023 в 14:58
Serge_007 Дата: Понедельник, 30.01.2023, 15:41 | Сообщение № 10
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2748 ±
Замечаний: ±

Excel 2016
У меня планировщик заданий
На работе макросы в фоне запрещены, смоделировать ситуацию не могу


ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение
У меня планировщик заданий
На работе макросы в фоне запрещены, смоделировать ситуацию не могу

Автор - Serge_007
Дата добавления - 30.01.2023 в 15:41
lanitfin9422 Дата: Вторник, 31.01.2023, 12:21 | Сообщение № 11
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 0% ±

Serge_007, тут, мне кажется, проблема больше в самой WIN10, в которой при блокировке происходит ограничение/блокировка буфера обмена. и может где-то в настройках EXCEL есть подобный пункт? Не знаете?
 
Ответить
СообщениеSerge_007, тут, мне кажется, проблема больше в самой WIN10, в которой при блокировке происходит ограничение/блокировка буфера обмена. и может где-то в настройках EXCEL есть подобный пункт? Не знаете?

Автор - lanitfin9422
Дата добавления - 31.01.2023 в 12:21
Serge_007 Дата: Вторник, 31.01.2023, 12:41 | Сообщение № 12
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2748 ±
Замечаний: ±

Excel 2016
В Excel есть настройки, связанные с буфером обмена, но так что бы отключить его совсем - никогда не встречал
Думаю что и нет такого в природе


ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
СообщениеВ Excel есть настройки, связанные с буфером обмена, но так что бы отключить его совсем - никогда не встречал
Думаю что и нет такого в природе

Автор - Serge_007
Дата добавления - 31.01.2023 в 12:41
lanitfin9422 Дата: Среда, 01.02.2023, 11:26 | Сообщение № 13
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 0% ±

Serge_007, вот сейчас при запуске макроса описание ошибки изменилось:
Run-time error 1004
метод copypicture из класса range завершен неверно .
 
Ответить
СообщениеSerge_007, вот сейчас при запуске макроса описание ошибки изменилось:
Run-time error 1004
метод copypicture из класса range завершен неверно .

Автор - lanitfin9422
Дата добавления - 01.02.2023 в 11:26
Serge_007 Дата: Среда, 01.02.2023, 12:16 | Сообщение № 14
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2748 ±
Замечаний: ±

Excel 2016
Посмотрите здесь
Похожая проблема


ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
СообщениеПосмотрите здесь
Похожая проблема

Автор - Serge_007
Дата добавления - 01.02.2023 в 12:16
lanitfin9422 Дата: Четверг, 02.02.2023, 15:22 | Сообщение № 15
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 0% ±

к сожалению, не помогло установление паузы...


Сообщение отредактировал Serge_007 - Четверг, 02.02.2023, 16:05
 
Ответить
Сообщениек сожалению, не помогло установление паузы...

Автор - lanitfin9422
Дата добавления - 02.02.2023 в 15:22
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Код с копированием изображения при заблокированной ОС (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!