怎样在excel中用VB程序实现将sheet1 中的某些图片 拷贝到sheet2中的特定的位置上?

pang_zhy7861 2019-07-31 07:15:26
Option Explicit
Dim xlApp As Excel.Application
'Dim xlApp As New Excel.Application
Dim wb As Excel.Workbook
Dim ws As Excel.Worksheet
'图片的属性不得设为“大小和位置都固定”,切记。
Private Sub Command1_Click()

Unload Me
Set xlApp = New Excel.Application
xlApp.ScreenUpdating = False '不刷新
Set xlApp = CreateObject("excel.application") '第一层
xlApp.WindowState = xlMinimized ' xlMaximized '窗口最小化/最大化
xlApp.Visible = True 'False 'excel菜单栏是否可见
Application.DisplayAlerts = False 'True

Set wb = CreateObject(App.Path & "\xxx.xlsx")'按自己文件路径修改’
wb.Windows(1).Visible = True

wb.Sheets("sheet1").Select
Range("A1").Select '
Selection.Copy'复制A1单元中的图片

wb.Sheets("sheet2").Select
Range("B2").Select'定位,粘贴到哪
ActiveSheet.Pictures.Paste '以图片格式粘贴到B2单元格

wb.Save
wb.Close

'xlApp.Quit
'xlApp = Nothing
MsgBox "完毕!"
End
End Sub
...全文
407 3 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
pang_zhy7861 2019-08-01
  • 打赏
  • 举报
回复
@milaoshu1020,正是,望不吝赐教
milaoshu1020 2019-08-01
  • 打赏
  • 举报
回复
ActiveSheet.Pictures(1).Copy
这行代码可以复制当前工作表的第一个图片;
milaoshu1020 2019-07-31
  • 打赏
  • 举报
回复
你是不是不知道如何选择Sheet1中的图片?

7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧