怎么把excel中的多张图表输出成高清的长图

zhl747

我在excel中制作了多张图表，怎么把它们生成为高清的长图呢，我附件里有高清的范图，有没有大佬指教一下，谢谢

约定的童话

Sub VBA导出指定单元格为JPG图片()
    Dim p$
    p = ThisWorkbook.Path & "\图片\"            '文件夹,路径及名字
    If Dir(p, vbDirectory) = "" Then MkDir (p)        '没有该文件夹就创建，有就不管
    Dim i%, r&
    r = Cells(Rows.Count, 2).End(xlUp).Row
    For i = 2 To r - 3 Step 5
        Cells(i, 2).CurrentRegion.Copy        '复制区域
        ActiveSheet.Pictures.Paste.Select        '粘贴成图片
        Selection.ShapeRange.Name = Cells(i, "j")        '命名
        Selection.Copy
        With ActiveSheet.ChartObjects.Add(0, 0, Selection.Width, Selection.Height).Chart '导出图片
            .Parent.Select
            .Paste
            .Export p & Cells(i, "j") & ".jpg", "jpg"                 '导出图片。
            .Parent.Delete
        End With
        Dim shp As Shape '   删除生成的表格图片
        For Each shp In ActiveSheet.Shapes
            If shp.Name = Cells(i, "j") Then shp.Delete
        Next
    Next
    MsgBox "OK"
End Sub
仅供参考。。。

祝洪忠-

有滚动截屏的专用软件

zhl747

祝洪忠- 发表于 2022-1-6 08:38
有滚动截屏的专用软件

这个软件有用过。这个只是截图而已，我想要的是能够缩放都达到清晰的效果。excel不能实现吗

david7911

这样可以不，如果可以，很简单，Excel中选中区域，开个微信PC版，复制到对话框中，就是一个图片了

david7911

这种可满意，选择Excel区域，复制，开PPT，选择选择性粘贴

zhl747

david7911 发表于 2022-1-6 09:41
这种可满意，选择Excel区域，复制，开PPT，选择选择性粘贴

这个方法我知道，但是没有我附件里边的图那样缩放清晰。。。