首页
学习
活动
专区
圈层
工具
发布
首页
学习
活动
专区
圈层
工具
社区首页 >问答首页 >在Excel VB中运行图表/PNG导出循环时,复制/粘贴在其他应用程序中不起作用

在Excel VB中运行图表/PNG导出循环时,复制/粘贴在其他应用程序中不起作用
EN

Stack Overflow用户
提问于 2011-12-27 22:32:01
回答 1查看 371关注 0票数 0

我有一个循环,它运行来生成一个PNG (在HTML文件中使用)。运行时,复制/粘贴不适用于计算机上的其他应用程序。有没有办法在excel中进行复制/粘贴?和/或加速这段代码?(其中一些代码是我在其他地方找到的,感谢您的帮助。)谢谢。

代码语言:javascript
代码运行次数:0
运行
复制
Sub ToPNG()
    ' save a range from Excel as a picture
    Dim r As Range
    Dim c As ChartObject

    Const strPath As String = "C:\G\"
    Application.ScreenUpdating = False

    Set r = Workbooks("GMon.xlsm").Worksheets("Main").Range("Print_Area")
    r.CopyPicture xlScreen, xlPicture

    Set c = ActiveSheet.ChartObjects.Add(0, 0, r.Width + 0, r.Height + 7)
    c.Chart.Paste
    c.Chart.Export strPath & "GMonOut.png", "PNG"
    c.Delete

    ExitProc:
    Application.ScreenUpdating = True
    Set c = Nothing
    Set r = Nothing
End Sub
EN

回答 1

Stack Overflow用户

发布于 2011-12-28 05:16:53

由于“每隔几秒钟”运行的代码正在使用剪贴板,因此它将干扰剪贴板的任何其他用户。

我看到的唯一选择是重写代码,以完全避免使用Copy Paste操作。(可能通过自动使用第三方屏幕捕获实用程序)

票数 1
EN
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接:

https://stackoverflow.com/questions/8645745

复制
相关文章

相似问题

领券
问题归档专栏文章快讯文章归档关键词归档开发者手册归档开发者手册 Section 归档