RangePhonetics
Font
A collection of all the Phonetic objects in the specified range. Each Phonetic object contains information about a specific phonetic text string.
Using the Phonetics Collection
Use the Phonetics property 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 = ""