vba在类模块中如何定义shape类用于with events监听事件

在VBA中，你可以定义一个类模块来创建一个Shape类，并使用WithEvents关键字来声明该类可以接收事件。以下是一个示例代码：

' 定义Shape类
Public WithEvents myShape As Shape

' 在类的构造函数中初始化myShape对象
Private Sub Class_Initialize()
    Set myShape = ActiveSheet.Shapes.AddShape(msoShapeRectangle, 10, 10, 100, 100)
End Sub

' 声明事件处理程序
Private Sub myShape_Click()
    MsgBox "You clicked the shape!"
End Sub

在上面的示例代码中，我们定义了一个Shape类，并在类的构造函数中初始化了一个myShape对象。然后使用WithEvents关键字声明该对象可以接收事件，并定义了事件处理程序myShape_Click()。当用户单击该形状时，myShape_Click()事件处理程序将显示一个消息框。

请注意，你需要在类模块中创建该类。你可以通过在VBA编辑器中选择“插入”菜单中的“类模块”来创建一个类模块。

相关问题

va调用类模块方法无法使用类模块中定义的with events对象

在VBA中，如果你想要在类模块中使用事件，你需要将相关对象声明为`WithEvents`，例如：

Private WithEvents MyButton As MSForms.CommandButton

然后你可以编写事件处理程序来响应该对象的事件，例如：

Private Sub MyButton_Click()
    MsgBox "Button clicked!"
End Sub

如果你想要从类模块外部的代码中调用该类模块中的方法，并且该方法需要使用该对象并触发其事件，你需要将该对象声明为`Public`，并且你需要在类模块外部声明该类的实例，例如：

Public MyInstance As MyClass

Sub Test()
    Set MyInstance = New MyClass
    Set MyInstance.MyButton = UserForm1.CommandButton1
    MyInstance.MyMethod
End Sub

在上述示例代码中，我们首先在类模块中声明了一个带有事件的对象`MyButton`，然后我们在类模块外部声明了该类的实例`MyInstance`，并将`MyButton`对象设置为`UserForm1.CommandButton1`，最后调用了类模块中的方法`MyMethod`。

需要注意的是，如果你想要在类模块外部的代码中触发该对象的事件，你需要确保该对象已经被设置，并且你需要在该对象上手动触发该事件，例如：

MyInstance.MyButton_Click

如果你不手动触发该事件，该事件将不会被触发。

vba通过with event对shape类型进行监听，处理鼠标事件

可以使用 VBA 的 `WithEvents` 关键字来监听 `Shape` 类型的鼠标事件。

首先，在你的 VBA 代码中声明一个 `Shape` 类型的对象，并使用 `WithEvents` 关键字：

Dim WithEvents myShape As Shape

然后，在加载形状的时候，通过 `Set` 关键字将该形状指定给 `myShape`：

Set myShape = ActiveSheet.Shapes("myShapeName")

最后，在 `myShape` 对象的事件处理程序中，加入对鼠标事件的处理逻辑。下面是一个例子，处理单击事件：

Private Sub myShape_Click()
    MsgBox "You clicked on the shape!"
End Sub

当你单击指定的形状时，VBA 会触发 `myShape_Click` 事件处理程序，弹出一个消息框。同样的，你也可以处理其他鼠标事件，例如鼠标悬停、双击等。只需要将事件处理程序的名称替换为相应的事件名即可。