|
才疏学浅,只能写代码到这个程度!请高手帮忙完善Sub cc()Dim st$
st = Dir(ThisWorkbook.Path & "\*.jpg")
Do While st <> ""
For Each ss In Sheets("sheet1").Range("a1:a13")
If ss.Address = ss.MergeArea(1).Address Then
k = ss.MergeArea.Count
Sheets("sheet1").Shapes.AddPicture ThisWorkbook.Path & "\" & st, True, True, Cells(ss.Row, ss.Column).Resize(k, 1).Left, _
Cells(ss.Row, ss.Column).Resize(k, 1).Top, Cells(ss.Row, ss.Column).Resize(k, 1).Width, Cells(ss.Row, ss.Column).Resize(k, 1).Height
End If
Next
st = Dir
Loop
End Sub
|
|