excel - OLEObjects.Add 到单元格的右侧

Question

我想创建一个打开图像的按钮。

此代码有效（如果 column 内已有一些文本/数字A，则在运行之前），但它将按钮放在列的左侧B。

如何调整代码以使按钮转到列的右侧A？

Sub Macro1()
    Application.ScreenUpdating = False
    
        Dim cell As Range
        For Each cell In Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row)
            If Not IsEmpty(cell) Then
                Dim ol As OLEObject
                Set ol = ActiveSheet.OLEObjects.Add( _
                                                    Filename:="C:\screenshot.png", _
                                                    Link:=False, _
                                                    DisplayAsIcon:=True)
                With ol
                    .Top = cell.Offset(0, 1).Top
                    .Left = cell.Offset(0, 1).Left
                    .ShapeRange.LockAspectRatio = msoFalse
                    .Height = 13
                    .Width = 10
                End With
            End If
        Next
    Application.ScreenUpdating = True
End Sub