A collection of all the Phonetic objects in the specified range.
Each Phonetic object contains information about a specific phonetic text string.
Use the Phonetics property of the Range object to return the Phonetics collection. The following example makes all phonetic text in the range A1:C4 visible.
Range("A1:C4").Phonetics.Visible = True
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 = "フリガナ"