将多个图像从一个工作簿复制到另一个作为单独的图像

在2003年的代码完美的工作，我们只是更新到2010年，其影响我们即将提出的build议。

我一直在寻找多个网站，所有我已经尝试给我所有的图片粘贴到一个分组的图像或给我多个盒子，说图像不能被查看。

图片将始终位于列L，但可以是一个图片或50甚至没有。 所以我需要能够select所有的图像，复制和打开另一个工作簿，并粘贴在一个指定的列与相同的格式和单独的图像，而不是一个单一的形象，这是我现在正在。 任何帮助将不胜感激。 以下是我尝试过的最新代码，粘贴时仍然会显示“单个分组图片”。

Windows(ourName2).Activate Sheets("Sheet5").Select On Error Resume Next ActiveSheet.Pictures.Copy Windows("Proposal.xls").Activate Sheets("Sheet2").Select ActiveSheet.PasteSpecial Range("L7") 

更新，尝试使用此代码引起错误行Set wbSource = Workbooks("ourName2")

 Dim wbSource As Workbook Dim wbDest As Workbook Dim shSource As Worksheet Dim shDest As Worksheet Dim shp As Shape Set wbSource = Workbooks("ourName2") 'modify as needed Set wbDest = Workbooks("MPlanner.xls") 'modify as needed Set shSource = wbSource.Sheets("Sheet5") 'modify as needed Set shDest = wbDest.Sheets("MAudit") 'modify as needed shSource.Pictures.Copy shDest.Range("L7").Paste 

Answer 1

这对我工作：

 Sub test() ActiveSheet.Pictures.Copy With Workbooks("temp.xls").Sheets("Sheet1") .Parent.Activate .Activate .Range("L7").Select .Paste End With End Sub 

Answer 2

回应添，这对我工作，导致没有分组的图片。 您不需要任何理由Activate相应的工作表。

问题似乎是，您正在使用PasteSpecial方法，而不是Paste 。 我有一个在家里的2003盒子，我可以validation，但在2010 Excel中， PasteSpecial方法将多个图片作为单个对象进行PasteSpecial ，而Paste放置它们。

 Sub CopyAllPictures() Dim wbSource As Workbook Dim wbDest As Workbook Dim shSource As Worksheet Dim shDest As Worksheet Dim shp As Shape Set wbSource = Workbooks("Book12") 'modify as needed Set wbDest = Workbooks("Book13") 'modify as needed Set shSource = wbSource.Sheets("Sheet1") 'modify as needed Set shDest = wbDest.Sheets("Sheet1") 'modify as needed shSource.Pictures.Copy shDest.Range("L7").Paste End Sub