Excel VBA 指定区域内的数据导出为图片

Sub ExportChart()
Application.ScreenUpdating = False

Dim ChartPath As String
Dim range_str As String
Dim file_str As String

'需要保存为图片的区域
range_str = "A2:C8"

'保存为文件名为 2022-11-14.jpg
file_str = "2022-11-14.jpg"

'保存路径 D:\ 路径可自已修改
ChartPath = "D:\" & file_str

'缩放尺寸 (缩放后图片更清晰)
ActiveWindow.Zoom = 200

Dim chtObject As ChartObject

' Sheet1 可更改为自己需要导出的工作表 Sheet2/Sheet3......

With Sheet1
.Range(range_str).CopyPicture
        Set chtObject = ActiveSheet.ChartObjects. _
Add(500, 100, .Range(range_str).Width, .Range(range_str).Height)
chtObject.Activate
chtObject.Chart.Paste

End With

On Error Resume Next
Kill ChartPath
chtObject.Chart.Export Filename:=ChartPath, Filtername:="JPG"

'删除chtObject的容器
chtObject.Activate
ActiveChart.Parent.Delete

'缩放尺寸
ActiveWindow.Zoom = 100
Set chtObject = Nothing

Application.ScreenUpdating = True
End Sub

Excel VBA 指定区域内的数据导出为图片相关推荐

Vue项目中指定区域的表格数据导出为Excel文件
vue项目中导出excel时有是会需要指定导出的区域如下图操作部分我们不需要导出只导出表格部分简记录下实现过程赋代码一. 安装三个依赖项 npm install -S file-saver np ...
vb如何用代码对Excel的指定区域实行保护
有时,我们为了保证数据的准确性,需要在对Excel工作表的指定区域进行保护,以达到禁止用户修改的目的,那么,如何用代码直接实现呢? 为此,我编写了一个简单的函数供大家调用,虽然该函数是用VBA写的,其 ...
百度指数常见php框架,怎么导出数据到excel表格-如何将百度指数数据导出到Excel表格...
如何将百度指数数据导出到Excel表格第一步:打开CAD.CAD命令行输入"Li"."选择对象"选需要提取坐标的多段线.回车. 第二步:将CAD文本框中的数据 ...
获取指定区域内的坐标点位，在线查看经纬坐标
获取指定区域内的坐标点项目介绍使用方法仓库地址项目介绍基于 turfjs 库的很简单的封装,实现输入范围的多边形数据,返回指定坐标间隔的点位. 多边形数据可以从高德地图API获取,例如:(该 ...
java图像处理－（指定区域内）灰度化、透明化（alpha通道）处理
java图像处理-(指定区域内)灰度化.透明化(alpha通道)处理 2016年07月25日 21:23:16 阅读数:3944 近日在一家小公司实习,老板要求我写一个图形编辑器,其中涉及到用java ...
Python项目实践（一）去除PDF指定区域内的水印
目录前言对比图(水印去除前后) 一.原理二.代码实现三.使用教程 1. 文件夹目录(pic和res文件夹需提前创建好) 2. 执行第一步代码(注释掉其他代码,以下同理) 3. 执行第二步代码 ...
Excel隐藏指定区域空单元格整行内容的操作！
今天要和大家分享的是,Excel隐藏指定区域空单元格整行内容的操作!比如下图中的A列学号内容是存在漏录入的情况的,如何将空白单元格的整行隐藏呢-- (方方格子插件) 1.先看动图演示吧 2.首先我们需 ...
怎么将Excel表格小括号内的数据提取出来
今天小编跟大家介绍一下怎么将Excel表格中小括号内的数据提取出来 1.如下图我们想要将括号内的数据提取出来 2.选中D2:D12 3.点下图选项(Excel工具箱,百度即可了解详细下载安装信息,本文 ...
Excel·VBA指定条件删除整行整列
目录 1,删除工作表所有空行 2,删除工作表所有空列 3,删除选中单列包含指定字符的行举例 3.1,改进版 4,删除选中单列不含指定字符的行举例 5,删除选中列重复的整行举例 6,删除选中列唯一 ...

Excel VBA 指定区域内的数据导出为图片