Phonetic Object (Excel)
Contains information about a specific phonetic text string in a cell.
Remarks
In Microsoft Excel 97, this object contained the formatting attributes for any phonetic text in the specified range.
Example
Use Phonetics(index), where index is the index number of the phonetic text, to return a single Phonetic object. 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(index), where index is the index number of the phonetic text, to return a single Phonetic object. 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 Phonetic object 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