表格用vb宏选定图形鼠标右键

要在VB宏中选定图形并使用鼠标右键，您可以使用下面的代码：

Sub SelectShapeWithRightClick()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("Sheet1") '更改为您的工作表名称

    Dim shp As Shape
    Set shp = ws.Shapes("Rectangle 1") '更改为您要选定的图形的名称或索引

    shp.Select '选定图形

    '模拟鼠标右键点击
    Application.SendKeys ("{RIGHT}")

    '等待弹出菜单出现
    Application.Wait (Now + TimeValue("0:00:01"))

    '模拟按下Enter键关闭菜单
    Application.SendKeys ("{ENTER}")
End Sub

请注意，上述代码中的"Rectangle 1"是指选定的图形的名称。您需要将其更改为您实际使用的图形的名称。您还可以使用索引号来选定图形，例如Shapes(1)表示第一个图形。

此代码将选定指定的图形，然后模拟鼠标右键点击，等待弹出菜单出现，并模拟按下Enter键来关闭菜单