|
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 |
|
|
