Clase Phonetic (Excel VBA)

Contiene información relativa a una cadena específica de texto fonético en una celda.

Los principales procedimientos de la clase Phonetic son Phonetics.Add y Phonetics.Delete

Set

Para usar una variable de clase Phonetic, primero debe ser instanciado, por ejemplo

Dim phn as Phonetic
Set phn = ActiveCell.Phonetic

Los siguientes procedimientos se pueden usar para establecer variables de clase Phonetic : Phonetics.Item, Range.Phonetic y Range.Phonetics

For Each

A continuación, se muestra un ejemplo de cómo procesar los elementos Phonetic en una colección.

Dim phn As Phonetic
For Each phn In Application.Phonetics
	
Next phn

Métodos

Los principales métodos de la clase Phonetic son

Phonetics.Add - Agrega texto fonético a la celda especificada.

Dim lngStart As Long: lngStart = 
Dim lngLength As Long: lngLength = 
Dim strText As String: strText = 
ActiveCell.Phonetics.Add Start:=lngStart, Length:=lngLength, Text:=strText

Phonetics.Delete - Elimina el objeto.

ActiveCell.Phonetics.Delete

Propiedades

Alignment Devuelve o establece un valor de tipo Long que representa la alineación del texto fonético o el rótulo de graduación especificados.

ActiveCell.Phonetic.Alignment =

CharacterType Devuelve o establece el tipo de texto fonético en la celda especificada.

ActiveCell.Phonetic.CharacterType =

Font Devuelve un objeto Font que representa la fuente del objeto especificado.

Dim fntFont As Font
Set fntFont = ActiveCell.Phonetic.Font

Parent Devuelve el objeto primario del objeto especificado.

Dim objParent As Object
Set objParent = ActiveCell.Phonetic.Parent

Text Devuelve o establece el texto del objeto especificado.

ActiveCell.Phonetic.Text =

Visible Devuelve o establece un valor Boolean que determina si el objeto es visible.

ActiveCell.Phonetic.Visible = True

Phonetics.Alignment Devuelve o establece un valor de tipo Long que representa la alineación del texto fonético o el rótulo de graduación especificados.

ActiveCell.Phonetics.Alignment =

Phonetics.CharacterType Devuelve o establece el tipo de texto fonético en la celda especificada.

ActiveCell.Phonetics.CharacterType =

Phonetics.Count Devuelve un valor Long que representa el número de objetos de la colección.

Dim lngCount As Long
lngCount = ActiveCell.Phonetics.Count

Phonetics.Font Devuelve un objeto Font que representa la fuente del objeto especificado.

Dim fntFont As Font
Set fntFont = ActiveCell.Phonetics.Font

Phonetics.Item Devuelve un solo objeto de una colección.

Dim phnItem As Phonetic
Set phnItem = ActiveCell.Phonetics(Index:=1)

Phonetics.Length Devuelve un valor de tipo Long que representa el número de caracteres de texto fonético desde la posición especificada con la propiedad Start.

Dim lngLength As Long
lngLength = ActiveCell.Phonetics.Length

Phonetics.Parent Devuelve el objeto primario del objeto especificado.

Dim objParent As Object
Set objParent = ActiveCell.Phonetics.Parent

Phonetics.Start Devuelve la posición que representa el primer carácter de una cadena de texto fonético existente en la celda especificada.

Dim lngStart As Long
lngStart = ActiveCell.Phonetics.Start

Phonetics.Text Devuelve o establece el texto del objeto especificado.

ActiveCell.Phonetics.Text =

Phonetics.Visible Devuelve o establece un valor Boolean que determina si el objeto es visible.

ActiveCell.Phonetics.Visible = True