通过 VBA 脚本在 Windows 10 锁定屏幕上通过调度程序或任何应用程序复制和粘贴图片

Question

我需要在用户注销时执行 VBA 脚本 Windows 10，即脚本应该在锁定屏幕时按计划执行。脚本从每个 excel sheet 复制图表并将它们粘贴到最后一个 sheet.

当我在用户登录的情况下执行以下代码时，脚本成功完成。当我在锁定屏幕时通过任务调度程序执行以下代码时发生错误 "method copy of chartobject failed"。我想这与无法在 windows 10 锁定屏幕上使用剪贴板有关。

For Each rs In ThisWorkbook.Worksheets
   For Each ch In ActiveSheet.ChartObjects
      ch.Copy
      Sheets(Sheets.Count).Select
      Cells(i, 1).Select
      ActiveSheet.Pictures.Paste
   Next ch
   i = i + 39
Next rs

Answer 1

尝试这样删除 .Select 和 ActiveSheet 语句。

For Each rs In ThisWorkbook.Worksheets
   For Each ch In rs.ChartObjects
      ch.Copy
      ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count).Cells(i, 1).PasteSpecial 
      i = i + 39 'should be in the inner loop (just in case)
   Next ch
Next rs

通过 VBA 脚本在 Windows 10 锁定屏幕上通过调度程序或任何应用程序复制和粘贴图片

Copy and Paste pictures by VBA Script on Windows 10 lock screen by scheduller or any app

vbscript

excel

vba

windows-10