FormButtons错位？

我目前有一个问题，表单button与行不重合。 我正在运行下面的代码，并获得不同的结果，每次。 根据下面的快照，看起来除非我缩小到100％的视野，否则会发生以下错位。 有没有人有办法解决吗？

主要程序：

Private Sub Workbook_Open() ' Sub ColumnA_Buttons() Dim buttons As Button Dim rng As Range Dim LineQty As Variant Application.ScreenUpdating = False ActiveSheet.buttons.Delete LineQty = 20 For i = 1 To LineQty Set rng = ActiveSheet.Range(Cells(i, 1), Cells(i, 1)) Set buttons = ActiveSheet.buttons.Add(rng.Left, rng.Top, rng.Width, rng.Height) With buttons .OnAction = "Buttons" .Caption = "Line " & i .Name = "Line " & i End With Next i Application.ScreenUpdating = True End Sub 

button模块：

 Sub buttons() Dim Btn As Variant Btn = Application.Caller 'MyUserForm1.Show 'Launch custom userform MsgBox Btn & " was Clicked" End Sub