Phonetic 对象

Range Phonetics (Phonetic)

包含单元格中特定拼音文本串的有关信息。在 Microsoft Excel 97 中，此对象包含了指定区域中所有拼音文本的格式属性。

Phonetic 对象的用法

可用 Phonetics(index) 返回单个 Phonetic 对象，其中 index 为拼音文本的索引值。下例将活动单元格中的第一个拼音文本串设置为“ ”。

ActiveCell.Phonetics(1).Text = ""

Phonetic 属性提供了对 Microsoft Excel 早期版本的兼容。可用 Phonetics(index) 返回单个的 Phonetic 对象，其中 index 为拼音文本的索引值。为了演示对 Microsoft Excel 早期版本兼容性，下例对区域 A1:C4 中添加 Furigana 字符。如果向某个区域中添加 Furigana 字符，则会自动创建一个新的 Phonetic 对象。

With Range("A1:C4").Phonetic
    .CharacterType = xlHiragana
    .Alignment = xlPhoneticAlignCenter
    .Font.Name = "MS P"
    .Font.FontStyle = ""
    .Font.Size = 6
    .Font.Strikethrough = False
    .Font.Underline = xlUnderlineStyleNone
    .Font.ColorIndex = xlAutomatic
    .Visible = True
End With