SolidWorks*Excel+VBA-BOM加个插图,吧

Sub InsPreviewPic() 'BOM插入预览图Dim swModel As String, SwMacro As String, regkey As String, i As LongDim shp As Shape, picH As Long, picW As Long, shpnum As LongDim cH As Long, cW As Long, scal As Double, j As Integer, InsRng As RangeDim mypic As String, pictmp As String    i = 3: SetGolDic    With ThisWorkbook.ActiveSheet        Call DelPreviewPic        SwMacro = ThisWorkbook.Path & "\GetPreViewA.swp"        regkey = "HKEY_CURRENT_USER\Software\Microsoft\Office\" & Application.Version & "\Excel\Options\SwModel"        If swApp Is Nothing Then Set swApp = GetObject(, "SldWorks.Application")        Do While .Cells(i, PropTitDicA("文件全名")) <> ""            mypic = ThisWorkbook.Path & "\PreView.jpg"            If Dir(mypic) <> "" Then Kill mypic            swModel = .Cells(i, PropTitDicA("文件全名"))            myregedit regkey, swModel, "REG_SZ", "W"            swApp.RunMacro SwMacro, "GetPreViewA1", "GetPictures"            If Dir(mypic) <> "" Then                .Rows(i).RowHeight = 90                Set InsRng = .Cells(i, PropTitDicA("预览图"))                Application.StatusBar = "正在插入图片:" & .Cells(i, PropTitDicA("文件全名"))                cH = InsRng.Height: cW = InsRng.Width                Set shp = .Shapes.AddPicture(mypic, msoFalse, msoTrue, InsRng.Left, InsRng.Top, -1, -1)                shpnum = .Shapes.Count                shp.PictureFormat.CropLeft = (shp.Width - shp.Height) / 2                shp.PictureFormat.CropRight = (shp.Width - shp.Height) / 2                shp.CopyPicture: shp.Delete: .Paste                Set shp = .Shapes.Item(shpnum)                With shp                    .LockAspectRatio = msoTrue                    picH = .Height: picW = .Width                    If ((cH - 4) / picH) < ((cW - 4) / picW) Then                        scal = (cH - 4) / picH                    Else                        scal = (cW - 4) / picW                    End If                    .Height = .Height * scal                    .Top = InsRng.Top + (cH - .Height) / 2: .Left = InsRng.Left + (cW - .Width) / 2                End With            End If            i = i + 1        Loop    End With    Application.StatusBar = False    Set swApp = Nothing    MsgBox "模型预览图插入完毕!", vbInformation, "不正经的机械仙人"End SubSub DelPreviewPic() '清除BOM预览图Dim shp As Shape, i As Long    With ThisWorkbook.ActiveSheet        SetGolDic        For Each shp In .Shapes            If shp.Type = msoPicture Then shp.Delete        Next        i = 3        Do While .Cells(i, PropTitDicA("文件全名")) <> ""            .Rows(i).RowHeight = 22            i = i + 1        Loop    End WithEnd Sub