[已解决]求助！

hoogle

新建 Microsoft Excel 工作表.rar (12.58 KB, 下载次数: 3)

2013-6-28 19:38 上传

点击文件名下载附件
附件打开后 ，会加了一个自定义控件

是一个小图标按钮，我想改成如下图这样的大图标，怎么写？

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-6-28 21:32

配合GETIMAGEMSO，可以取得功能区的大图。

CommandBars.GetImageMso 方法

  注释
在某些 Microsoft Office 应用程序中，CommandBar 已被新的功能区用户界面取代。有关详细信息，请在帮助中搜索关键字“功能区”。

返回由 idMso 参数标识的控件图像（缩放到指定的宽度和高度尺寸）的 IPictureDisp 对象。
语法

表达式.GetImageMso(idMso, Width, Height)

表达式   一个返回 CommandBars 对象的表达式。

参数

名称 必选/可选 数据类型 说明
idMso 必选 String 控件的标识符。
Width 必选 Integer 图像的宽度。
Height 必选 Integer 图像的高度。

返回值
IPictureDisp

说明


Width 和 Height 参数的值必须介于 16 和 128 之间。


示例


下面的示例将 32x32 尺寸版本的“Paste”图标作为 IPictureDisp 对象返回。

Visual Basic for Applications
Application.CommandBars.GetImageMso("Paste", 32, 32)

跳转到最佳答案楼层

hwc2ycy

指定按钮的FACEID就成了。

hwc2ycy

Office 开发人员参考
CommandBarButton.FaceId 属性
获取或设置某个 CommandBarButton 控件的图符的 ID 号。可读写。
  注释
在某些 Microsoft Office 应用程序中，CommandBar 已被新的功能区用户界面取代。有关详细信息，请在帮助中搜索关键字“功能区”。

语法

表达式.FaceId

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

说明


FaceId 属性确定一个命令栏按钮的外观而非其功能。CommandBarControl 对象的 Id 属性确定按钮的功能。

对于具有自定义图标的命令栏按钮，其 FaceId 属性值为 0（零）。


示例


本示例向自定义命令栏中添加一个命令栏按钮。虽然此按钮的图标与内置“制作图表”按钮的图标相同，但单击此按钮相当于单击“文件”菜单上的“打开”命令，这是因为此按钮的 ID 号为 23。

Visual Basic for Applications
Set newBar = CommandBars.Add(Name:="Custom2", _
     Position:=msoBarTop, Temporary:=True)
newBar.Visible = True
Set con = newBar.Controls.Add(Type:=msoControlButton, Id:=23)
con.FaceId = 17

hwc2ycy

CommandBarButton.Style 属性
获取或设置 CommandBarButton 控件的显示方式。可读写。
  注释
在某些 Microsoft Office 应用程序中，CommandBar 已被新的功能区用户界面取代。有关详细信息，请在帮助中搜索关键字“功能区”。

语法

表达式.Style

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

说明


Style 属性的值可作为 MsoButtonStyle 枚举中的值之一。


通过这个，可设置按钮显示图标和文字的模式。

MsoButtonStyle 枚举
指定命令栏按钮的样式。
说明
在某些 Microsoft Office 应用程序中，CommandBar 已被新的功能区用户界面取代。有关详细信息，请在帮助中搜索关键字“功能区”。

名称 值 说明
msoButtonAutomatic 0 默认行为。
msoButtonCaption 2 仅文本。
msoButtonIcon 1 仅图像。
msoButtonIconAndCaption 3 图像和文本，且文本位于图像的右侧。
msoButtonIconAndCaptionBelow 11 下方带文本的图像。
msoButtonIconAndWrapCaption 7 右侧带自动换行文本的图像。
msoButtonIconAndWrapCaptionBelow 15 下方带自动换行文本的图像。
msoButtonWrapCaption 14 仅文本，且文本居中并自动换行。

hwc2ycy

另外，你可以试试自己右键修改。
不知道成不成，好像自定义的功能区，然后添加的按钮是可以改的。

hoogle

hwc2ycy 发表于 2013-6-28 20:57
另外，你可以试试自己右键修改。
不知道成不成，好像自定义的功能区，然后添加的按钮是可以改的。

faceid 和 style 好像都不行。

hwc2ycy

我都用了的，你看范例，这可不是忽你的，

你添加的是啥类型的。

hoogle

hwc2ycy 发表于 2013-6-28 21:07
我都用了的，你看范例，这可不是忽你的，

你添加的是啥类型的。

Sub AUTO_OPEN()
Dim MyBar As CommandBar, ButtonNewTable
    Set MyBar = CommandBars.Add("hoo", msoBarTop, False, True)
    MyBar.Visible = True
    With MyBar
        '.RowIndex = msoBarRowFirst
        .RowIndex = msoBarRowLast
        .Left = 1
    End With
    Set ButtonNewTable = MyBar.Controls.Add(Type:=msoControlButton, ID _
        :=23, Before:=1)
    With ButtonNewTable
        .Style = msoButtonIconAndWrapCaptionBelow
        .FaceId = 17
        .Caption = "第一个"
        .OnAction = "NewTableInfo_Show"
    End With
End Sub
这是我附件的代码 ，要怎么改？

hwc2ycy

你的能显示出来啊。

大图标是通过功能区来实现的。

hwc2ycy

大图可以试试这个。

CommandBarButton.Picture 属性
获取或设置一个代表 CommandBarButton 对象的图像的 IPictureDisp 对象。可读写。
  注释
在某些 Microsoft Office 应用程序中，CommandBar 已被新的功能区用户界面取代。有关详细信息，请在帮助中搜索关键字“功能区”。

语法

表达式.Picture

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

说明


在更改按钮图像时，还希望使用 Mask 属性设置屏蔽图像。屏蔽图像决定按钮图像透明的部分。通常在设置了 CommandBarButton 对象的图片后设置屏蔽。

  注释
不能更改 Visual Basic 编辑器中“标准”工具栏上的“查看 Microsoft  Application ”和“插入  Item ”按钮的图像。


示例


下面的示例设置代码返回的第一个 CommandBarButton 的图像和屏蔽。要使本示例正常工作，请创建一个屏蔽图像和一个按钮图像，并用这些图像的路径替换示例中的路径。

Visual Basic for Applications
Sub ChangeButtonImage()
    Dim picPicture As IPictureDisp
    Dim picMask As IPictureDisp

    Set picPicture = stdole.StdFunctions.LoadPicture( _
        "c:\images\picture.bmp")
    Set picMask = stdole.StdFunctions.LoadPicture( _
        "c:\images\mask.bmp")

    'Reference the first button on the first command bar
    'using a With...End With block.
    With Application.CommandBars.FindControl(msoControlButton)
        'Change the button image.
        .Picture = picPicture

        'Use the second image to define the area of the
        'button that should be transparent.
        .Mask = picMask
    End With
End Sub

下面的示例获取代码返回的第一个 CommandBarButton 的图像和屏蔽，并将它们输出到文件。要使本示例正常工作，请指定输出文件的路径。

Visual Basic for Applications
Sub GetButtonImageAndMask()
    Dim picPicture As IPictureDisp
    Dim picMask As IPictureDisp

    With Application.CommandBars.FindControl(msoControlButton)
        'Get the button image and mask of this CommandBarButton object.
        Set picPicture = .Picture
        Set picMask = .Mask
    End With

    'Save the button image and mask in a folder.
    stdole.SavePicture picPicture, "c:\image.bmp"
    stdole.SavePicture picMask, "c:\mask.bmp"
End Sub



© 2010 Microsoft Corporation。保留所有权利。