如何用VBA把图片转存到其他sheet

lk710618

首先跟大家分享一份改编调整后，考勤管理功能还不错的考勤表，请参见附件。


同时，请教一下熟悉VBA的老师，我附件中，已经可以点击保存，将考勤区域以图片格式保存下来，但是只能保存在考勤这个sheet中，我用录制宏的方式，想将图片保存到“考勤留存”这个sheet中，录制宏时能实现，但将VBA语句放到“保存”这个控件相关联的VBA中，就会报错，我不太懂VBA找不到原因就删除了，想麻烦看到的老师帮我添加一句语言：

1、让图片保存到“考勤留存”这个sheet中去；
2、如果可以，图片保存的位置是上一张图片的下方，或者当前窗口所在的行为起点，如果实现这个功能很麻烦的话，也可以忽略

感谢各位老师的帮助

ykcbf1100

附件供参考。。。

hlxue

是要这样的吗？要记得给好评+2分哦！

lk710618

hlxue 发表于 2024-3-14 15:51
是要这样的吗？要记得给好评+2分哦！

先评分，再提问

请问我这里运行VBA怎么总是报错呢

hlxue

我这里不会提示错误的，那你把这条改成“.Pictures.Paste.Select”吧

lk710618

hlxue 发表于 2024-3-14 17:30
我这里不会提示错误的，那你把这条改成“.Pictures.Paste.Select”吧

奇怪，修改后，还是这一句报错，我把附件发上来，麻烦你再看下，是哪里有问题

gwjkkkkk

Option Explicit
Sub TEST1()
    Dim n As Double, Rng As Range, shp As Shape, Pic As Picture
   
    With Sheets(1)
        Set Rng = Intersect(.UsedRange, .Columns("A:AV"))
        Rng.Copy
    End With
    For Each shp In Sheets(2).Shapes
        n = n + shp.Height
    Next
    Set Pic = Sheets(2).Pictures.Paste
    With Pic
        Pic.Top = n + Cells(1, 1).Top
        Pic.Left = Cells(1, 1).Left
    End With
    Beep
End Sub

gwjkkkkk

请参考。。。

lk710618

gwjkkkkk 发表于 2024-3-14 19:05
请参考。。。

这个太强大了，全部满足了我的需求，非常感谢
我来好好学学

hlxue

lk710618 发表于 2024-3-14 17:48
奇怪，修改后，还是这一句报错，我把附件发上来，麻烦你再看下，是哪里有问题

我下载试了，没有报错，运行正常。