GdiPlus.dll 导致 excel 2010 频繁崩溃

编程问答 2022-05-15

问题描述

运行保存相机的循环时，我遇到由 GdiPlus.dll 导致的重复崩溃 图像作为 28 个不同的 png 文件。你认为这个错误可能与宏的方式有关吗 从相机图像中抓取图像并保存？ 这是完整的错误消息：

Problem signature:
  Problem Event Name: APPCRASH
  Application Name: EXCEL.EXE
  Application Version: 14.0.7229.5000
  Application Timestamp: 5c46583d
  Fault Module Name: GdiPlus.dll
  Fault Module Version: 6.1.7601.17514
  Fault Module Timestamp: 4ce7b714
  Exception Code: c0000005
  Exception Offset: 000b06db
  OS Version: 6.1.7601.2.1.0.768.2
  Locale ID: 1033
Additional @R_254_4045@ion about the problem:
  LCID: 1033
  skulcid: 103

这是宏（我添加了一些等待时间，但它不再有帮助）– 大约有 10 个 崩溃了 600 次循环 - 大约每个 60 次循环。

Sub biy_comara()
Dim spath As String
Dim rrng As Object,sht As Object

Set sht = ThisWorkbook.Worksheets("chart")
spath = ThisWorkbook.Path & "\exported\" & sht.Range("ao1").Value & ".png"

Set rrng = ActiveSheet.Range("A2:aj102")
Application.CutcopyMode = False
Application.Wait Now + TimeValue("0:00:02")
On Error Resume Next
rrng.copyPicture appearance:=xlScreen,Format:=xlPicture

Application.Wait Now + TimeValue("0:00:02")
On Error Resume Next

With rrng.Parent.ChartObjects.Add(30,30,400,400)
.ShapeRange.Line.Visible = msoFalse
.Height = rrng.Height
.Width = rrng.Width
.Chart.Paste
.Chart.export Filename:=spath,filtername:="png"
.Delete
End With
End Sub

我刚刚做了一个没有这个图像生成宏的测试，它仍然崩溃 - 我想知道还有什么会导致这样的崩溃？

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

excelexcelgdi+windowswindows