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

如何解决在 Excel 工作表中设置嵌入的 OLEObject 的宽度和高度

当我调试下面的代码时，它运行良好。当我停止调试时，宽度和高度没有设置。谁能帮我找出原因？

将 vWidth 调暗为整数 将 vHeight 调暗为整数 将 OleObj 调暗为 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