EXCEL VBA

Question

1。根据第一列的货号，再第二列插入对应的图片，货号与图片名称相同
2。图片大小不一，插入表格后，大小需要统一
3。表格自动适应图片的大小，方便以后随时调整图片大小，更加美观谁能帮帮我啊，跪求代码啊~~

Answer 1

Sub addpicture()Dim Numb As String
Dim rng As RangeFor i = 4 To 98
Numb = Cells(i, 1).ValueActiveSheet.Pictures.Insert("E:\2011春夏订货新品\女鞋汇总\ " & Numb & ".jpg ").SelectSet rng = Cells(i, 2)With Selection
.Top = rng.Top + 1
.Left = rng.Left + 1
.Width = rng.Width - 1
.Height = rng.Height - 1End With  
Next i' addpicture Macro
' 宏由 雨林木风 录制，时间: 2010-12-13
'
' 快捷键: Ctrl+a
End Sub
这是我用的代码，
ActiveSheet.Pictures.Insert("E:\2011春夏订货新品\女鞋汇总\ " & Numb & ".jpg ").Select这句老出错啊，说不能取得类pictures的insert属性