[求助]自定义菜单工具栏加载ImageList储藏的图标

liucqa

xgy0214dxy 发表于 2013-11-2 21:29
2010里提示运行不了呀

CommandBarButton.PasteFace 方法
将“剪贴板”的内容粘贴到 CommandBarButton 上。
  注释
在某些 Microsoft Office 应用程序中，CommandBar 已被新的功能区用户界面取代。有关详细信息，请在帮助中搜索关键字“功能区”。

语法

表达式.PasteFace

表达式   一个代表 CommandBarButton 对象的变量。

示例


本示例查找内置的“FileOpen”按钮，然后将“拼写和语法”按钮的图符从“剪贴板”粘贴到该按钮上。

Visual Basic for Applications
Set myControl = CommandBars.FindControl(Type:=msoControlButton, Id:=2)
myControl.CopyFace
Set myControl = CommandBars.FindControl(Type:=msoControlButton, Id:=23)
myControl.PasteFace




本示例查找名为“Custom”的命令栏上的第一个控件，并使用 Type 属性确定该控件是否为按钮。如果该控件为按钮，本示例将复制“Copy”（位于“Standard”工具栏上）按钮的图标并将其粘贴到该控件上。

Set oldCtrl = CommandBars("Custom").Controls(1)
If oldCtrl.Type = msoControlButton Then
    Set newCtrl = CommandBars.FindControl(Type:= _
        MsoControlButton, ID:= _
        CommandBars("Standard").Controls("Copy").ID)
    NewCtrl.CopyFace
    OldCtrl.PasteFace
End If

xgy0214dxy

谢谢11楼老师，学习{:soso_e163:}