如何获取EXCEL各命令按钮的图标及ID号

作者：绿色风分类：时间：2022-08-18 浏览：148

楼主 yjzstar	Q:如何获取EXCEL命令按钮的对应图标及ID号码并输出到工作表中？ A:通过循环复制每个ID号对应的图标，将其粘贴至对应的工作表中，从而更直观的反应相应按钮的外观图标及对应ID号！具体程序如下： Sub id() Dim mcb As CommandBar Dim mcbc As CommandBarControl Dim i As Integer Dim myshape As Object Cells.Clear For Each myshape In Sheet1.Shapes myshape.Delete Next Set mcb = Application.CommandBars.Add(Name:="Fid") Set mcbc = mcb.Controls.Add(Type:=1) For i = 1 To 450 mcbc.FaceId = i mcbc.CopyFace With Sheet1 .Paste .Shapes(.Shapes.Count).Top = .Cells(i, 2).Top .Shapes(.Shapes.Count).Left = .Cells(i, 2).Left .Cells(i, 1).Value = i End With Next mcb.Delete Set mcbc = Nothing End Sub 注：本例只例举至ID编号为450，循环参数可自行设置，以方便查询对应的ID!
2楼亡者天下	过来学习一下！
3楼张雄友	Set mcb = Application.CommandBars.Add(Name:="Fid") 这句是黄色的，无效的过程调用或参数！！！！怎么会这样？什么原因？
4楼 fanrong720	这个东西怎么使用啊
5楼 kjmtip	好像都是03版的图标、、

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表