怎么样在EXCEL2010批量插入图片

jiqiaoling

怎么样在EXCEL2010批量插入图片   名称和图片名一致，怎么样能对应的图片名插到对应的名称中  如下：file:///C:/Users/IBM/AppData/Roaming/Tencent/Users/369197764/QQ/WinTemp/RichOle/T752NM5P9$7@~7QBNYU%7BSO6.jpg

YESS95

1. Sub test()
   
2. Dim pic As Shape
   
3. Dim i As Integer
   
4.     Application.Dialogs(xlDialogInsertPicture).Show
   
5.     For Each pic In Shapes
   
6.         If pic.Type = 13 Then
   
7.             i = i + 1
   
8.             With pic
   
9.                 .LockAspectRatio = msoFalse
   
10.                 .Top = Cells(i, 1).Top
    
11.                 .Left = Cells(i, 1).Left
    
12.                 .Height = Cells(i, 1).Height
    
13.                 .Width = Cells(i, 1).Width
    
14.             End With
    
15.         End If
    
16.     Next
    
17. End Sub
    

复制代码

调用对话框，进行多选

jiqiaoling

这个怎么用？

jiqiaoling

YESS95 发表于 2012-7-22 16:18
调用对话框，进行多选

朋友   这个没用过    能教我一下吗   QQ号给我吗