TO COFE兄—— 字符格式设置

守柔

lzbyMouC.rar (12.56 KB, 下载次数: 35)

2004-8-14 08:12 上传

点击文件名下载附件
TO COFE兄—— 字符格式设置

上次的重新修改了一下，请你再看看。（主要是字体颜色设置）

cofe2000

谢谢版主关心，这几天公司的网络老是上不去，急死我了，这个星期天没空了，星期一拜读版主的大作

谢谢！！！

cofe2000

终于搞定了，谢谢版主

不过今天下班前看了一下这个帖子，在单位的机器office2000上点击字体颜色设置出现的是线型设置的命令栏，现在家用officexp显示倒是正常，不知何故，不过也有可能弄错啦

cofe2000

cofe2000

按理应该2000中改成Application.CommandBars("Drawing").Controls(15).Execute，但试了一下，菜单死活不出来

守柔

Sub GetControl() Dim i As Byte For i = 1 To Application.CommandBars("Drawing").Controls.Count Selection.InsertAfter "Caption=" & Application.CommandBars("Drawing").Controls(i).Caption & "Index=" & Application.CommandBars("Drawing").Controls(i).Index & Chr(10) Next End Sub

找到名为字体颜色的命令的index(XP中，其Index=16)试试

或者试试改为这个：

Application.CommandBars("Drawing").Controls("字体颜色(&F)").Execute

[此贴子已经被作者于2004-8-24 14:41:36编辑过]

cofe2000

在2000中还是不行，应该是15没错啊，运行时只看见字体颜色按钮呈现凸起状态，但是就不出来，晕

Caption=绘图(&R)Index=1

Caption=选择对象(&S)Index=2

Caption=自由旋转(&T)Index=3

Caption=自选图形(&U)Index=4

Caption=直线(&L)Index=5

Caption=箭头(&A)Index=6

Caption=矩形(&R)Index=7

Caption=椭圆(&O)Index=8

Caption=文本框(&X)Index=9

Caption=竖排文本框(&V)Index=10

Caption=艺术字(&W)...Index=11

Caption=剪贴画(&C)...Index=12

Caption=填充颜色(&F)Index=13

Caption=线条颜色(&L)Index=14

Caption=字体颜色(&F)Index=15

Caption=线型(&L)Index=16

Caption=虚线线型(&D)Index=17

Caption=箭头样式(&A)Index=18

Caption=阴影(&S)Index=19

Caption=三维效果(&3)Index=20

守柔

怪事，我抽空到2000的机器上试一下。

难道直接运行一段代码：

sub test

Application.CommandBars("Drawing").Controls("字体颜色(&F)").Execute(或者15、16）

end sub

也不行吗？什么时候我再修改一下。