关于CommandBarControl对象的FaceID属性

cloud-sj

FaceID属性是CommandBarControl对象的图标属性，如何查看FaceID的图表所对应的数字

兰色幻想

1. '可以用copyFace方法复制命令按钮的图标，然后贴到其他命令按钮上或单元格
   
2. Sub FaceId()
   
3. Application.ScreenUpdating = False
   
4. Dim x As Integer, Y As Integer, k As Integer
   
5. On Error Resume Next
   
6.   Dim 控件 As CommandBarButton
   
7.     Set 控件 = Application.CommandBars(4).Controls.Add
   
8.       For x = 1 To 10
   
9.          For Y = 1 To 5
   
10.              k = k + 1
    
11.              Sheets("图标").Cells(x, Y) = k
    
12.              控件.FaceId = k
    
13.              控件.CopyFace
    
14.              Sheets("图标").Cells(x, Y).Select
    
15.              ActiveSheet.Paste
    
16.         Next Y
    
17.      Next x
    
18.      控件.Delete
    
19.      Set 控件 = Nothing
    
20.     Application.ScreenUpdating = True
    
21. End Sub
    

复制代码

cloud-sj

兰色幻想 发表于 2012-3-30 18:29

怎么好像只列出了几十个图标呀，如何看图标的数量