如何用vba把excel菜单命令栏的控件FaceId图形提取到单元格中?

在excel中,菜单栏内的控件可以有多种类型,但是只有命令按钮控件(msoControlButton)才有控件图形(Face)匹配。

每个图形都有对应的FaceId 属性,如果需要显示所有的命令按钮控件对应的Face图形到单元格中,可以使用如下的代码:

Sub xyf(ByVal iid As Long)
Dim oCBB As CommandBarButton
Set oCBB = Excel.CommandBars.FindControl(ID:=iid)
With oCBB
MsgBox .Caption
MsgBox .FaceId
End With
End Sub

       

发表评论