xls 閒的圖片 Copy ！請教高手！！

Question

a.xls
        A             B          C              D        E.........
**************************************************
 1    pic1.jpg      圖片1      圖片1描述 
**************************************************
 2    pic2.jpg      圖片2      圖片2描述
**************************************************
 3    pic3.jpg      圖片3      圖片3描述
**************************************************
 4   pic4.jpg       圖片4      圖片4描述  
**************************************************b.xls
        A             B          C              D        E.........
**************************************************
 1    pic1      圖片1      
**************************************************
 2    pic2      圖片2      
**************************************************
 3    pic3      圖片3      
**************************************************
 4    pic4      圖片4        
**************************************************
 請問各位高手，如何將a.xls 中圖片名稱和相對應的圖片拷貝到b.xls !! 如上圖所示。
   1：如何選去一個圖片
   2：如何將名稱和圖片對應選去
   3：如何從a拷到b中的，且名稱和圖片對應
    
 先謝謝各位大蝦了！！

Answer 1

Private Sub Command1_Click()
Dim app As Excel.Application
Set app = CreateObject("Excel.Application")
app.Visible = TrueDim aa
Set aa = app.Workbooks.Open("c:\a.xls")
Dim bb
Set bb = app.Workbooks.Open("c:\b.xls")
aa.Activate
For i = 1 To app.ActiveSheet.Shapes.Count
aa.Activate
app.ActiveSheet.Shapes(i).Select
app.Selection.Copy
bb.Activate
app.ActiveSheet.Paste
然后在这里写代码把粘近来的图大位置调到指定的地方
Next
End Sub

Answer 2

aa就是那个a.xls,bb就是b.xls,用的时候用aa.activate或bb.activate就可以了,上面的代码写的很清楚啊,至于pic1.jpg怎么和b.xls里的pic1对应,因为把图片插到excel后,图片的名字就会变成picture1什么的,所以只能是以excel的顺序来了,如果a.xls里的pic1,2,3,4是按顺序插近来的,那么他们的名字还是按照1,2,3,4排列的,如果是乱插的,那就没办法了

Answer 3

关注：
to: jam021(jam)那么我想问一下，excel中的图片可以保存到文件夹中么？

Answer 4

//那么我想问一下，excel中的图片可以保存到文件夹中么？可以啊,你用鼠标选中图片,然后Ctrl+C , 然后打开文件夹粘贴就可以了,但是这个操作如果是要用程序来实现的话,那还比较麻烦