vba如何将单元格区域截图并保存？

qx-liuwx

可贵之处是逐个单元格来拼图片、这样能拼很大的图。
爽一下

蒋昊

您好，请教一下shp.CopyPicture 为什么出错呢

转身是天涯

lujkhua 发表于 2018-8-22 16:54
这清晰度还能接受吧？

这咋实现的？

ljpmqb888

这个代码换个电脑有时候还是出错，不知道是哪里的问题。尤其是批量生成图片。
有时候出现1004错误，无法粘贴数据，卡在 ActiveSheet.Pictures.Paste这句上。而且把内容给删除了（变成空白的了，不知道是剪切的还是删除了。
还有就是卡在shp.CopyPicture这句上，会出现转换的图片放在了原始文字内容上面，没有删除。
请高手给分析一下是什么原因，谢谢！！

ljpmqb888

这个是我最后修改的代码，请蓝版主和楼主给看看，万分感谢！！

Sub 保存问卷网加减一试卷()
    Dim rng As Range, i, bi, h, ye
    Dim ad$, m&, mc$, shp As Shape
    Dim nm$, n&, myFolder$
   
    Sheets("1").Activate
    ye = 1
    bi = 14
     n = 0
  For h = 1 To 3
     For i = 1 To 10
    myFolder = ThisWorkbook.Path & "\问卷网全国比赛试卷\"     '指定文件夹名称
    Set rng = Range(Cells((8 + ((h - 1) * bi + (h - 1) * 2)), (i)), Cells((h * bi + (h - 1) * 2 + 7), (i)))
    rng.Select
    Selection.Copy
    ActiveSheet.Pictures.Paste
    For Each shp In ActiveSheet.Shapes
        If shp.Type = 13 Then
            If Len(Dir(myFolder, vbDirectory)) = 0 Then
                MkDir myFolder
            End If
            n = n + 1
            ad = shp.TopLeftCell.Address
            m = shp.TopLeftCell.Row
            nm = "加减C组" & ye & h & Replace(Replace(rng.Address, "$", ""), ":", "-") & ".jpg"
            shp.CopyPicture
            With ActiveSheet.ChartObjects.Add(0, 0, shp.Width, shp.Height).Chart
                .Parent.Select '必须要选择父对象chartojbect之后再粘贴，这样才能真正的粘上去。
                .Paste
                .Export myFolder & nm, "JPG"
                .Parent.Delete
            End With
            shp.Delete
        End If
    Next
     Next
Next
Sheets("自动出题系统").Select
End Sub

ljpmqb888

原因找到并解决：
在单核cpu运行就会正常，高配置多核心的cpu运行就出错。
我在虚拟机中的系统中运行，开始出错的虚拟机配置cpu是多个（我分配3个）。现在我修改为1个单核cpu就正常了。

游乐缘

感谢分享，留名学习

lycl123096

ljpmqb888 发表于 2022-3-10 15:48
原因找到并解决：
在单核cpu运行就会正常，高配置多核心的cpu运行就出错。
我在虚拟机中的系统中运行，开 ...

我和你遇到一样的问题，有时侯可以正常运行，有时候显示1004，无法粘贴，这个要怎么处理

lycl123096

ljpmqb888 发表于 2022-3-10 15:48
原因找到并解决：
在单核cpu运行就会正常，高配置多核心的cpu运行就出错。
我在虚拟机中的系统中运行，开 ...

怎么在虚拟机中运行

ljpmqb888

lycl123096 发表于 2022-10-13 13:16
怎么在虚拟机中运行

电脑系统安装虚拟机，我用的是Oracle VM VirtualBox，虚拟机的系统配置的时候把CPU数量设置1个，就是单核的。这样在这个虚拟机的系统中运行代码就正常了。这个问题应该还有其他的解决办法，比如加些等待时间。