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