Question

如何实现点击图标弹出选项菜单，用vba

Answer 1

Private Sub CommandButton1_Click()
With Application.FileDialog(msoFileDialogFolderPicker)
.InitialFileName = "C:\"
If .Show = True Then Path = .SelectedItems(1) & "\"
End With

End Sub
这段程序的意思是button被按下时，会弹出窗口让你选择路径，默认是打开C盘。
当选好路径点击确认键后，你所选的路径就会赋给Path

Answer 2

用控件，设置事件的点击响应吧，没弄清楚你具体要什么。