窗体添加动态命令按钮，如何再添加事件并执行按钮

ptcool88899

Private Sub CommandButton1_Click()
Image1.Picture = Nothing
temppath = ActivePresentation.Path & "\Slide1.jpg" '临时图片文件路径
ActivePresentation.Slides(1).Export temppath, "jpg" '将指定页幻灯片导出为图片
Image1.Visible = False '先设置image控件为不可见，插入图片后再设为可见，否则图片不会显示
Image1.Picture = LoadPicture(temppath) 'image控件载入图片
Image1.Visible = True
Set mycmd = Controls.Add("Forms.CommandButton.1")
mycmd.Left = 680
mycmd.Top = 480
mycmd.Width = 80
mycmd.Height = 25
mycmd.Caption = "下一张示图"
End Sub
以下命令按钮怎么无法执行
Private Sub Mycmd_Click()
Image1.Picture = Nothing
temppath = ActivePresentation.Path & "\Slide1.jpg" '临时图片文件路径
ActivePresentation.Slides(2).Export temppath, "jpg" '将指定页幻灯片导出为图片
Image1.Visible = False '先设置image控件为不可见，插入图片后再设为可见，否则图片不会显示
Image1.Picture = LoadPicture(temppath) 'image控件载入图片
Image1.Visible = True
End Sub

请老师们帮忙一下，谢谢

大灰狼1976

示例，代码全部放进窗体模块内

1. Public WithEvents mycmd As msforms.CommandButton
   
2. 
   
3. Private Sub UserForm_Initialize()
   
4. Set mycmd = Controls.Add("Forms.CommandButton.1", "mycmd")
   
5. End Sub
   
6. 
   
7. Private Sub mycmd_Click()
   
8. MsgBox "hello"
   
9. End Sub

复制代码

ptcool88899

大灰狼1976 发表于 2024-7-30 16:53
示例，代码全部放进窗体模块内

非常感谢！