Phonetic Object

Remarks

In Microsoft Excel 97, this object contained the formatting attributes for any phonetic text in the specified range.

Example

Use Phonetics(), where is the index number of the phonetic text, to return a single Phoneticobject. The following example sets the first phonetic text string in the active cell to " ".

ActiveCell.Phonetics(1).Text = "    "

The Phonetic property provides compatibility with earlier versions of Microsoft Excel. You should use Phonetics(), where is the index number of the phonetic text, to return a single Phoneticobject. To demonstrate compatibility with earlier versions of Microsoft Excel, the following example adds Furigana characters to the range A1:C4. If you add Furigana characters to a range, a new Phoneticobject is automatically created.

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

See also:

• Excel Object Model Reference
• Phonetic Object Members