怎样在excel中用VB程序实现将sheet1 中的某些图片 拷贝到sheet2中的特定的位置上?
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