代码

Dim rng As Range
Dim x As Long
For x = 1 To 7
Set rng = Cells.Find('A00' & x, , xlValues)
rng.Offset(, 2).Select
ActiveSheet.Pictures.Insert('D:\My Documents\My Pictures\' & rng.Offset(, 1).Value & '.jpg').Select
Selection.ShapeRange.ScaleWidth 0.43, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.43000035, msoFalse, msoScaleFromTopLeft
Next x
End Sub

='<img src=@D:\'&A1&'.jpg @><TABLE>'

cmd d:
dir d:\pic\*.jpg/on>??.xls
dir d:\pic\*.jpg/b>TMP.BAT
='REN '&A1&' '&B1&'.jpg' ren 123.jpg 222.jpg


提取底纹颜色代码
定义名称
=get.cell（38.$A1)

按颜色代码填充颜色
Sub 宏2()
&39;
&39; 宏2 宏
Dim i As Integer
For i = 1 To 56
Cells(i, 1) = i
Cells(i, 2).Interior.ColorIndex = i （2插入第2列）
Next
End Sub