excel - 在 Excel 工作表中设置嵌入 OLEObject 的宽度和高度

Question

当我调试下面的代码时，它工作得很好。当我停止调试时，没有设置宽度和高度。谁能帮我弄清楚为什么？

Dim vWidth As Integer Dim vHeight As Integer Dim OleObj As OleObject

            Set rg = Range("B57:AX57")
            vWidth = rg.Width
            ws.Range("B" & vLastRow & ":" & "B" & vLastRow + 50).Select
            For Each cell In Application.Selection
                vHeight = vHeight + cell.Height
            Next cell
            'ws.Range("D" & vLastRow).Select
            ws.OLEObjects.Add FileName:=NewFilePath, Link:=False, DisplayAsIcon:=False, _
                                Top:=ws.Range("B" & vLastRow).Top, _
                                Left:=ws.Range("B" & vLastRow).Left
            For Each obj In ws.OLEObjects
                vOName = obj.Name
            Next
            Set OleObj = ws.OLEObjects(vOName)
            OleObj.ShapeRange.LockAspectRatio = msoFalse
            OleObj.Width = vWidth
            OleObj.Height = vHeight