自定义工具栏中按钮图标的设计方法

    当今社会是一个不断发展的社会，是一个经济科技都在不断进步的世界，科技的发展可以说很大程度上都造福了人类，那么说到科技就不提电脑了，很多的电脑爱好者都喜欢自己设计、编程等方面，而编程必须要掌握最基本的要领，今天我们就来说一说这个自定义工具栏里怎么设计按钮图标吧。

    在创建自定义的工具栏时，除了可以为工具栏按钮添加Excel内置的图标外，还能为工具栏按钮添加自定义的图标，如下面的代码所示。 
代码:

    #001  Sub AddCustomButton()

    #002      Dim xBar As CommandBar

    #003      Dim xButton As CommandBarButton

    #004      On Error Resume Next

    #005      Application.CommandBars("CustomBar").Delete

    #006      Set xBar = CommandBars.Add("CustomBar", msoBarTop)

    #007      Set xButton = xBar.Controls.Add(msoControlButton)

    #008      With xButton

    #009          .Picture = LoadPicture(ThisWorkbook.Path & "P.BMP")

    #010          .Mask = LoadPicture(ThisWorkbook.Path & "M.BMP")

    #011          .TooltipText = "Excel Home 论坛"

    #012      End With

    #013      xBar.Visible = True

    #014      Set xBar = Nothing

    #015      Set xButton = Nothing

    #016  End Sub

    代码解析：

    AddCustomButton过程创建自定义工具栏，并设置工具栏的按钮自定义图标。第6、7行代码，使用Add方法在Excel窗口中添加自定义工具栏和按钮。请参阅技巧89 。第9行代码，设置工具栏按钮的Picture属性为同一目录中的p.bmp图片。

    应用于CommandBarButton 对象的Picture属性返回一个IPictureDisp对象，表示 
    CommandBarButton对象的图像，语法如下：expression.Picture参数是必需的，返回一个CommandBarButton对象。指定对象的Picture属性就能设置对象的图像

     第10行代码，设置工具栏按钮的Mask属性为同一目录中的m.bmp图片。

     为了使工具栏按钮图标透明显示，在指定对象的Picture属性后，还需要指定对象的Mask属性。应用于CommandBarButton 

     对象的Mask属性返回表示CommandBarButton对象的屏蔽图像的IPictureDisp对象，语法如下：expression.Mask参数是必需的，返回一个CommandBarButton对象。屏蔽图像决定按钮图像透明的部分。在创建作为屏蔽图像使用的图像时，所有要透明的区域应该为白色，所有要显示的区域应该为黑色。

     第11行代码，设置按钮的“屏幕提示”为“ExcelHome论坛”。

    相信很多精通电脑科技的人们都已经了解了这些内容，但是现在我们还是需要进一步的说一下详细的步骤，来为新人电脑编程者、爱好者提供有一个交流经验的地方，希望上述内容能够带给读者们更好的电脑体验，更完美的完成图标按钮设计，也希望能够帮到大家把。