用excel的VBA写获取按钮的位置
时间: 2023-11-27 21:49:23 浏览: 46
可以通过以下代码获取Excel中按钮的位置:
```VBA
Sub GetButtonPosition()
Dim b As Button
Set b = ActiveSheet.Buttons("Button1") '将Button1替换成你的按钮名称
Debug.Print "按钮位置:左上角(" & b.TopLeftCell.Top & "," & b.TopLeftCell.Left & "), 右下角(" & b.BottomRightCell.Bottom & "," & b.BottomRightCell.Right & ")"
End Sub
```
这个代码会将按钮的左上角和右下角的行列号输出到VBA的Immediate窗口中。你需要将Button1替换成你实际使用的按钮名称。
相关问题
用excel的VBA获取按钮的位置
你可以使用以下代码来获取按钮的位置:
```
Sub GetButtonPosition()
Dim btn As Button
Set btn = ActiveSheet.Buttons("Button 1") '将 "Button 1" 替换为你实际使用的按钮名称
MsgBox "按钮位置:左上角 (" & btn.Left & ", " & btn.Top & ")"
End Sub
```
这将在消息框中显示按钮的左上角位置。请注意,此代码假定有一个名为 "Button 1" 的按钮存在于活动工作表上。如果你的按钮名称不同,请相应地修改代码。
excel 的vba中获取当前触发事件的按钮名称
在 VBA 中获取当前触发事件的按钮名称可以使用 `Application.Caller` 方法。这个方法可以返回调用当前 VBA 过程的单元格或对象的名称。如果该过程是由按钮的点击事件触发的,那么 `Application.Caller` 将返回按钮的名称。以下是一个示例:
```vb
Private Sub CommandButton1_Click()
MsgBox "您点击了按钮:" & Application.Caller
End Sub
```
在上面的示例中,当用户单击名为 "CommandButton1" 的按钮时,VBA 代码将弹出一个消息框,显示按钮的名称。