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

[pang_zhy7861]

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

[milaoshu1020]

你是不是不知道如何选择Sheet1中的图片?

[milaoshu1020]

ActiveSheet.Pictures(1).Copy
这行代码可以复制当前工作表的第一个图片;

[pang_zhy7861]

@milaoshu1020,正是，望不吝赐教