Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/excel/24.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181

Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/search/2.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181

Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/spring-mvc/2.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
使用Excel VBA显示命令栏按钮的标题_Excel_Excel 2007_Commandbar_Vba - Fatal编程技术网

使用Excel VBA显示命令栏按钮的标题

使用Excel VBA显示命令栏按钮的标题,excel,excel-2007,commandbar,vba,Excel,Excel 2007,Commandbar,Vba,我正在尝试使用Excel VBA将一个按钮添加到新的命令栏(用于“加载项”选项卡)。如果我使用FaceId,我可以将按钮放入功能区,并可以获得一个图像来显示它,但我无法显示标题。有没有办法做到这一点?我必须使用图像吗 With Application.CommandBars.Add("Open Forms") With .Controls.Add(msoControlButton) .OnAction = "ThisWorkbook.FunctionFunction"

我正在尝试使用Excel VBA将一个按钮添加到新的命令栏(用于“加载项”选项卡)。如果我使用FaceId,我可以将按钮放入功能区,并可以获得一个图像来显示它,但我无法显示标题。有没有办法做到这一点?我必须使用图像吗

With Application.CommandBars.Add("Open Forms")
    With .Controls.Add(msoControlButton)
        .OnAction = "ThisWorkbook.FunctionFunction"
        .Caption = "Call the Function"
    End With

    .Visible = True
End With

您需要如下设置新按钮的样式属性:

    .Style = msoButtonIconAndCaption
样式还有其他选项(例如msoButtonCaption)。您可以通过intellisense轻松查看列表