在VBA中是否可以确定文本与单元格边框重叠？

Sub CheckTextOverlap()
    Dim textBoxTop As Double
    Dim textBoxLeft As Double
    Dim textBoxWidth As Double
    Dim textBoxHeight As Double
    
    Dim cellTop As Double
    Dim cellLeft As Double
    Dim cellWidth As Double
    Dim cellHeight As Double
    
    ' 获取文本框的位置和大小
    textBoxTop = ActiveSheet.Shapes("TextBox1").Top
    textBoxLeft = ActiveSheet.Shapes("TextBox1").Left
    textBoxWidth = ActiveSheet.Shapes("TextBox1").Width
    textBoxHeight = ActiveSheet.Shapes("TextBox1").Height
    
    ' 获取单元格的位置和大小
    cellTop = ActiveSheet.Range("A1").Top
    cellLeft = ActiveSheet.Range("A1").Left
    cellWidth = ActiveSheet.Range("A1").Width
    cellHeight = ActiveSheet.Range("A1").Height
    
    ' 判断文本框与单元格边框是否重叠
    If textBoxTop <= cellTop + cellHeight And textBoxTop + textBoxHeight >= cellTop And textBoxLeft <= cellLeft + cellWidth And textBoxLeft + textBoxWidth >= cellLeft Then
        MsgBox "文本框与单元格边框重叠"
    Else
        MsgBox "文本框与单元格边框不重叠"
    End If
End Sub