怎样更改自己添加菜单的字体和大小？

najagay · 发表于 2009-4-8 13:15

我通过论坛里的帖子学到了不少东西！感谢那些朋友们！
现在有个问题，我看了可以自己给word添加菜单，我也找到了这方面的帖子，也可以在word菜单中添加了自己的菜单，现在的问题是，我怎样才能改变这些自主添加的菜单的字体、字号、颜色、方向等！！
希望能给予答复！

LangQueS · 发表于 2009-4-8 13:22

在网络下载好新字体》进入控制面板》字体》添加新字体

字号可以在字号的选项处直接录入，例如，字号的选项中有“48”、“70”等，你可以直接录入“50”。

najagay · 发表于 2009-4-8 13:31

我要改变的是
Sub AddMenu()
Set myMenuBar = CommandBars.ActiveMenuBar
Set newMenu = myMenuBar.Controls.Add(Type:=msoControlPopup, Temporary:=True)
newMenu.Caption = CodeToKazak("Select")
Set newmenuitem1 = newMenu.CommandBar.Controls.Add(Type:=msoControlButton, ID:=1)
With newmenuitem1
   .Caption = "select all"
   .TooltipText = "select all"
   .OnAction = "selectall"
   .Style = msoButtonCaption
End With

用这个代码添加的菜单的字体

守柔 · 发表于 2009-4-8 16:35

原帖由 najagay 于 2009-4-8 13:15 发表
我通过论坛里的帖子学到了不少东西！感谢那些朋友们！
现在有个问题，我看了可以自己给word添加菜单，我也找到了这方面的帖子，也可以在word菜单中添加了自己的菜单，现在的问题是，我怎样才能改变这些自主添加的菜 ...

菜单通常而言是Windows底层的类，常规模式不允许修改，通常在Windows的主题设置中进行修改和设置，API方式下修改也很麻烦，我看到资料说自定义菜单的字体和颜色等（特别是字体字号和宽度高度等），都需要重绘菜单类。

[ 本帖最后由守柔于 2009-4-8 16:36 编辑 ]

yuyvtul · 发表于 2009-4-8 18:48

的确，Windows设置中改变了相关字号、字体、颜色，一般软件中的随之改变。

najagay · 发表于 2009-4-8 23:19

谢谢！
那有没有可以用的外部控件（菜单类）的？

守柔 · 发表于 2009-4-9 07:17

原帖由 najagay 于 2009-4-8 23:19 发表
谢谢！
那有没有可以用的外部控件（菜单类）的？

关于短信中提及的API函数，请以“CreatePopupMenu VB 类”为名搜索一下，网上有现成的实例，如果想搜索菜单重绘技术，请以“DrawMenuBar"为关键字搜索之，当然，很复杂。
关于类似于XP风格的菜单控件，请以“XP 菜单控件”为关键字搜索之，可以下载这个控件，但它不是Windows 自带的控件。

鄂龙蒙 · 发表于 2016-5-5 08:21

守柔发表于 2009-4-9 07:17
关于短信中提及的API函数，请以“CreatePopupMenu VB 类”为名搜索一下，网上有现成的实例，如果想搜索菜 ...

请教：下面代码中的"树型菜单"是用的什么控件，怎么添加这个控件？谢谢！
' With Application.CommandBars.Add("树型菜单", msoBarPopup)
'       With .Controls.Add(Type:=msoControlButton)
'       .Caption = "请选择："
'       .FaceId = 136
'       End With
'       For i = 0 To UBound(k)
'          With .Controls.Add(Type:=msoControlButton)
'             .Caption = k(i)
'             .OnAction = "显示在活动单元格"
'                .FaceId = 71 + i
'          End With
'       Next i
' End With
'End Sub

		自动登录	找回密码
密码			免费注册

[求助] 怎样更改自己添加菜单的字体和大小？