[讨论]如何用代码实现在批注中使用不同的字体?

blue_idea

我编了一个英语四级词汇测试的程序，我想在一个单元格中加入单词音标的批注。单词音标只能设置为"Kingsoft Phonetic Plain"字体，如果用手工方式加入批注，可以任意设置批注的字体。但不知如何用何代码来设置批注的字体？因为有一批单词需要完成此工作,不可能用手工一个一个加入批注。 谢谢！

blue_idea

我自己顶，真的没有高手知道吗？

EdgeOfCity

Sub ModifyNotes() '批量改批注。
Dim cmt As comment
For Each cmt In ActiveSheet.Comments
With cmt.Shape
With .TextFrame.Characters.Font
.Name = "隶书"
.Size = 10
.ColorIndex = 11
End With
.Fill.ForeColor.SchemeColor = 15
.Line.ForeColor.SchemeColor = 12
'其他的属性输入.号后可以看到。结合帮助文件或录制宏自己视情况添加
End With
Next cmt
End Sub 请参考以下的11帖： http://www.officefans.net/cdb/viewthread.php?tid=16402&highlight=comment

blue_idea

首先感谢大头版主和EdgeOfCity的赐教。 但是我的问题比较特别，我希望在同一个批注中使用两种不同的字体。 因为对批注中既要包括单词的音标（Kingsoft Phonetic Plain），也要包括单词的解释（宋体），如下图所示，不知是否可以实现？（手工方式可以）

EdgeOfCity

你批注是已经写好了，再改字体，还是用程序加入的？

EdgeOfCity

应该可通过Comment.Shape.TextFrame.Characters(start,length)来分别设置不同字体。关键在于获得length。不知可否用instr或者什么函数获得chr(10)的位置。 就可对此位置前和此位置后的文字分别设置字体。 我对instr函数不熟悉，不知道是否可得出位置（或者有别的函数？），而且我这里没有VBA帮助。你自己查帮助试试看，或等高手出招。

[此贴子已经被作者于2004-1-11 21:34:27编辑过]

blue_idea

我的批注是用程序加入的，字体是用的是默认字体，因为音标显示不正确，所以再手工将音标的字体改为：Kingsoft Phonetic Plain。 我试过如果手工加入批注的话：可以在输入时先选择不同字体，再输入字符。 也可以在批注输入后，对不同的字符设置不同的字体。

blue_idea

问题已解决，谢谢各位大侠！！

ldhyob

EdgeOfCity的回答得非常正确，其实也不一定非要检查chr(13)位置的，观察楼主的批注，完全可以用/来划分的。 ...... ' 假定对d5单元格的批注进行操作 Dim i As Integer
With Range("D5")
i = VBA.InStr(2, .Comment.Text, "/", vbTextCompare)
.Comment.Shape.TextFrame.Characters(1, i, vbTextCompare).Font.Name = "Kingsoft Phonetic Plain"
.Comment.Shape.TextFrame.Characters(i + 1, VBA.Len(.Comment.Text) - i).Font.Name = "宋体"
End With

大头

Range("A1").Comment.Shape.TextFrame.Characters.Font.name = ",,,,,,," Range("A1").Comment.Shape.TextFrame.Characters.Font.Size = 20