excel导出的照片大小尺寸怎么修改

哈喽哈哈1 · 发表于 2024-10-5 16:42

Sub 滚动照片()
Dim rng As Range
Dim imgChart As Chart
Dim imgPath As String
Dim wi As Worksheet
' 设置要导出的表格区域
Set rng = ThisWorkbook.Sheets("窗体模版").Range("A1:AL53")
' 创建一个临时图表
Set imgChart = ThisWorkbook.Charts.Add
' 将表格区域复制到临时图表中
rng.CopyPicture Appearance:=xlPrinter, Format:=xlPicture
' 尝试使用不同的粘贴方法
With imgChart
' 尝试直接作为图表的一部分粘贴
.ChartArea.Select
ActiveSheet.Paste
' 检查图表是否已正确粘贴图像
If .Shapes.Count = 0 Then
MsgBox "图表没有粘贴任何图像。"
GoTo NextStep
End If
' 修改保存路径为当前工作簿的路径
imgPath = ThisWorkbook.Path & "\滚动照片\ExportedImag.jpg"
' 导出图表为图片
On Error Resume Next ' 忽略错误
.Export fileName:=imgPath, FilterName:="JPG"
If Err.Number <> 0 Then
MsgBox "导出图表时发生错误: " & Err.Description
End If
On Error GoTo 0 ' 恢复正常错误处理
NextStep:
' 删除临时图表
.Delete
End With
' 清理剪贴板
Application.CutCopyMode = False
' 提示图片已导出（如果实际导出了的话）
If Err.Number = 0 Then
MsgBox "图片已导出到 " & imgPath
Else
MsgBox "图片导出失败。"
End If
End Sub

复制代码

我想要在.
ChartArea.Select
ActiveSheet.Paste后面加上尺寸的宽度和高度都不行，

[backcolor=rgba(245, 246, 249, 0.5)] .ChartArea.Width = 800 ' 设置宽度 .ChartArea.Height = 600 ' 设置高度
[backcolor=rgba(245, 246, 249, 0.5)]总是不行，有没有哪位老师帮忙看一下。有没有什么办法让其导出来的照片是excel中（A1:AL53）范围，大小不发生变化。

liulang0808 · 发表于 2024-10-5 17:54

导出动作前，先把图片的大小调整成楼主需要的大小，然后再导出是否可以的？

quqiyuan · 发表于 2024-10-5 17:58

上个附件吧。。。

lss001 · 发表于 2024-10-5 21:01

本帖最后由 lss001 于 2024-10-5 22:28 编辑

Sub 表格导图()
Dim rng As Range, shp As Shape, w!, h!

Set rng = ActiveSheet.Range("A1:AL53")
rng.CopyPicture
ActiveSheet.Pictures.Paste
w = 200 '指定宽高/单位：磅
h = 200
For Each shp In ActiveSheet.Shapes
      If shp.Type = 13 Then
         shp.CopyPicture
         With ActiveSheet.ChartObjects.Add(0, 0, w, h).Chart
            .Parent.Select
            .Paste
            .Export ThisWorkbook.Path & "\截屏.jpg", "jpg"
            .Parent.Delete
         End With
         shp.Delete
      End If
Next
End Sub

哈喽哈哈1 · 发表于 2024-10-6 08:04

liulang0808 发表于 2024-10-5 17:54
导出动作前，先把图片的大小调整成楼主需要的大小，然后再导出是否可以的？

不行的，这个试过了。

哈喽哈哈1 · 发表于 2024-10-6 08:09

lss001 发表于 2024-10-5 21:01
Sub 表格导图()
Dim rng As Range, shp As Shape, w!, h!

哇还可以这样嘛。比我的代码简单明了还能满足要求。厉害厉害

哈喽哈哈1 · 发表于 2024-10-6 08:39

lss001 发表于 2024-10-5 21:01
Sub 表格导图()
Dim rng As Range, shp As Shape, w!, h!

老师，如果我想把这些代码加入到用户窗体的命令按钮中，那么这行代码会显示ActiveSheet.Pictures.Paste
报错“类Pictures的Paste方法无效” 怎么解决。

哈喽哈哈1 · 发表于 2024-10-6 09:34

各位老师，我的诉求是通过用户窗体中的命令按钮，把表格2中A1:AL55的范围形成照片并保存文件夹滚动照片中。每点击一次，就会形成一次照片保存下来。怎么去实现。

lss001 · 发表于 2024-10-6 10:02

本帖最后由 lss001 于 2024-10-6 10:05 编辑

哈喽哈哈1 发表于 2024-10-6 09:34
各位老师，我的诉求是通过用户窗体中的命令按钮，把表格2中A1:AL55的范围形成照片并保存文件夹滚动照片中。 ...

参考一下附件代码

附件.zip (20.26 KB, 下载次数: 14)

哈喽哈哈1 · 发表于 2024-10-6 10:53

lss001 发表于 2024-10-6 10:02
参考一下附件代码

已经解决了。谢谢老师。

		自动登录	找回密码
密码			免费注册

[求助] excel导出的照片大小尺寸怎么修改

评分

评分