如何设置 Office XP CommandBars 掩码和图片属性

文章翻译 文章翻译
文章编号: 286460 - 查看本文应用于的产品
展开全部 | 关闭全部

本文内容

概要

Microsoft Office XP 引入到 CommandBarButton 对象的两个新的属性: 掩码图片 属性。若要将图片放在自定义生成的命令栏控件上,您可以使用这些属性。

注意这些属性也是在 Microsoft Office 2003 中可用的。

更多信息

掩码图片 属性被定义为类型 IPictureDisp,是 Stdole 库的成员。IPictureDisp 使用不能跨进程边界进行封送的方法。 因此,掩码图片 属性只能调用进程内 (自动化的 VBA 宏外接程序和 ActiveX dll 在进程内运行)。请参见"参考"部分,这种行为有关的详细信息。

下面的示例演示如何创建自动化加载项添加 CommandBar 遮蔽图片的按钮。

创建图像的图片和在掩码的步骤

  1. 启动 Microsoft 画图。在 图像 菜单上单击 属性。更改为 32 x 32 的图像大小,然后单击 确定
  2. 绘图图面上绘制一个黄色的脸。填充区域周围有蓝色圆圈。

    收起这个图片展开这个图片
    Picture of sample Picture.bmp. Steps
				to re-create this image are given in this article.
  3. 将图像保存为 Circle.bmp。
  4. 创建掩码,用黑色填充该圆形并使用白色填充外部圆的区域。当与掩码图片添加到 CommandBar 控制时,掩码的黑色的区域将是可见,而白色的区域是透明的。

    收起这个图片展开这个图片
    Picture of sample Mask.bmp. Steps to
				re-create this image are given in this article.
  5. 将图像保存为 Mask.bmp。

创建 COM 外接程序的步骤


  1. 启动 Visual Basic 并创建一个新的外接程序项目。
  2. 项目 菜单上单击 引用。如果早于版本 XP 处于选中状态,清除"Microsoft Office"类型库的类型库,然后选择 Microsoft Office xp 的类型库。单击 确定
  3. 在项目浏览器中用鼠标右键单击 frmAddin,然后单击 删除 frmAddin
  4. 在项目浏览器中双击 连接 设计器。为 应用程序 选择 Microsoft Excel,,然后选择 启动初始加载行为
  5. 视图 菜单上单击 代码 和添加-使用下列替换代码:
    Option Explicit
    
    Dim oExcel As Object
    Dim WithEvents oButton As Office.CommandBarButton
    
    Private Sub AddinInstance_OnConnection(ByVal Application As Object, _
     ByVal ConnectMode As AddInDesignerObjects.ext_ConnectMode, _
     ByVal AddInInst As Object, custom() As Variant)
    
      Dim oPic As stdole.IPictureDisp
      Dim oMask As stdole.IPictureDisp
    
      ' Load the picture and mask.
      Set oPic = LoadPicture(App.Path & "\circle.bmp")
      Set oMask = LoadPicture(App.Path & "\mask.bmp")
    
      ' Save an instance of our application.
      Set oExcel = Application
      ' Create a new button on the standard CommandBar.
      Set oButton = oExcel.CommandBars("Standard").Controls.Add(msoControlButton)
      With oButton
        ' Set a tag for the button.
        .Tag = "My Button"
        ' Set the event to fire when the button is pressed.
        .OnAction = "!<" & AddInInst.ProgId & ">"
        ' Set the picture property -- if you are using the Mask property, this
        ' property must be set before you set the Mask property.
        .Picture = oPic
        ' Set the Mask property.
        .Mask = oMask
        ' Show the button.
        .Visible = True
      End With
    End Sub
    
    Private Sub AddinInstance_OnDisconnection(ByVal RemoveMode As _
       AddInDesignerObjects.ext_DisconnectMode, custom() As Variant)
    
       ' Delete the button.
       oButton.Delete
       ' Release references.
       Set oButton = Nothing
       Set oExcel = Nothing
     End Sub
    
    Private Sub oButton_Click(ByVal Ctrl As Office.CommandBarButton, _
      CancelDefault As Boolean)
      ' Our button was pressed.
      MsgBox "The button was pressed!"
    End Sub
    					
  6. 保存该项目并生成外接程序在该位图存储的文件夹中。
  7. 启动 Excel。标准 CommandBar 上会出现一个新的控件,带有黄色圆圈。请注意黄色圆圈周围区域是透明的。

其他说明

作为以前规定 IPictureDisp 接口不能被封送跨进程边界。 试图将 图片掩码 属性进程外结果设置中出现以下错误:
运行时错误-2147418113(8000ffff):
方法特性的对象 _CommandBarButton 失败
因此,不能为一个 CommandBarButton 设置这些属性从任何进程外自动化客户端或在 vba IDE 中的调试模式下运行的进程内组件。如果您运行该加载项在 vba IDE 中本文中介绍的示例,您将收到此错误。您可以避免在调试时的错误,注释行的设置 图片掩码 属性或使用条件的编译,如一个 # if...然后...#Else 指令。

参考

有关更多的信息请单击下面的文章编号,以查看 Microsoft 知识库中相应的文章:
238228如何生成的 Office 2000 COM 外接在 Visual Basic 中
230689示例: Comaddin.exe Office 2000 COM 加载项在 Visual c + + 中写入
150034PRB: LPPICTUREDISP 不能通过跨进程边界
有关详细的信息,请参阅下面的 Microsoft 网站:
http://support.microsoft.com/ofd

属性

文章编号: 286460 - 最后修改: 2007年1月29日 - 修订: 4.6
这篇文章中的信息适用于:
  • Microsoft Visual Basic Enterprise Edition for Windows 6.0
  • Microsoft Visual Basic 6.0 专业版
  • Microsoft Office Access 2003
  • Microsoft Access 2002 标准版
  • Microsoft Office Excel 2003
  • Microsoft Excel 2002 标准版
  • Microsoft Office Word 2003
  • Microsoft Word 2002 标准版
  • Microsoft Office FrontPage 2003
  • Microsoft FrontPage 2002 标准版
  • Microsoft Office Outlook 2003
  • Microsoft Outlook 2002 标准版
  • Microsoft Office PowerPoint 2003
  • Microsoft PowerPoint 2002 标准版
关键字:?
kbmt kbautomation kbhowto KB286460 KbMtzh
机器翻译
注意:这篇文章是由无人工介入的微软自动的机器翻译软件翻译完成。微软很高兴能同时提供给您由人工翻译的和由机器翻译的文章, 以使您能使用您的语言访问所有的知识库文章。然而由机器翻译的文章并不总是完美的。它可能存在词汇,语法或文法的问题,就像是一个外国人在说中文时总是可能犯这样的错误。虽然我们经常升级机器翻译软件以提高翻译质量,但是我们不保证机器翻译的正确度,也不对由于内容的误译或者客户对它的错误使用所引起的任何直接的, 或间接的可能的问题负责。
点击这里察看该文章的英文版: 286460
Microsoft和/或其各供应商对于为任何目的而在本服务器上发布的文件及有关图形所含信息的适用性,不作任何声明。 所有该等文件及有关图形均"依样"提供,而不带任何性质的保证。Microsoft和/或其各供应商特此声明,对所有与该等信息有关的保证和条件不负任何责任,该等保证和条件包括关于适销性、符合特定用途、所有权和非侵权的所有默示保证和条件。在任何情况下,在由于使用或运行本服务器上的信息所引起的或与该等使用或运行有关的诉讼中,Microsoft和/或其各供应商就因丧失使用、数据或利润所导致的任何特别的、间接的、衍生性的损害或任何因使用而丧失所导致的之损害、数据或利润不负任何责任。

提供反馈

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com