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

Question

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

当我在用户登录时执行以下代码时，脚本成功完成。当我在锁定屏幕时通过任务调度器执行以下代码时，出现错误"method copy of chartobject“。我认为这与无法在Windows10锁定屏幕上使用剪贴板有关。

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