In diesem Beispiel wird die erste phonetische Textzeichenfolge in der aktiven Zelle angezeigt.
ActiveCell.Phonetics.Item(1).Visible = True