用一个sub定义两个变量，然后在另一个变量中使用它们

Question

我试图用一个sub定义两个变量，然后在另一个变量中使用它们。

Dim A As Long
Dim B As Long

Sub checkparameters()
With ActiveChart.Parent
    MsgBox .Left & vbCrLf & .Top & vbCrLf & .Height & vbCrLf & .Width
    A = .Height
    B = .Width
End With
End Sub

Sub value()
MsgBox A & vbCrLf & B
End Sub

子值只显示空值。

注意：我尝试将A和B设置为公共变量，但它仍然无效。