Classe Phonetic (Excel VBA)

Contém informações sobre uma determinada sequência de texto fonético em uma célula.

Os principais procedimentos da classe Phonetic são Phonetics.Add e Phonetics.Delete

Set

Para usar uma variável de classe Phonetic, ela primeiro precisa ser instanciada por exemplo

Dim phn as Phonetic
Set phn = ActiveCell.Phonetic

Os procedimentos a seguir podem ser usados ​​para definir variáveis ​​do tipo Phonetic: Phonetics.Item, Range.Phonetic e Range.Phonetics

For Each

Aqui está um exemplo de processamento dos itens Phonetic em uma coleção.

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

Métodos

Estes são os principais métodos da classe Phonetic

Phonetics.Add - Adiciona texto fonético à célula 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 - Exclui o objeto.

ActiveCell.Phonetics.Delete

Propriedades

Alignment Retorna ou define um valor Long que representa o alinhamento da marca de escala ou do texto fonético especificado.

ActiveCell.Phonetic.Alignment =

CharacterType Retorna ou define o tipo de texto fonético na célula especificada. Leitura/gravação XlPhoneticCharacterType.

ActiveCell.Phonetic.CharacterType =

Font Retorna um objeto Font que representa a fonte do objeto especificado.

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

Parent Retorna o objeto pai do objeto especificado. Somente leitura.

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

Text Retorna ou define o texto do objeto especificado. String de leitura/gravação.

ActiveCell.Phonetic.Text =

Visible Retorna ou define um valor Boolean que determina se o objeto será visível. Leitura/gravação.

ActiveCell.Phonetic.Visible = True

Phonetics.Alignment Retorna ou define um valor Long que representa o alinhamento da marca de escala ou do texto fonético especificado.

ActiveCell.Phonetics.Alignment =

Phonetics.CharacterType Retorna ou define o tipo de texto fonético na célula especificada. Leitura/gravação XlPhoneticCharacterType.

ActiveCell.Phonetics.CharacterType =

Phonetics.Count Retorna um valor Long que representa o número de objetos na coleção.

Dim lngCount As Long
lngCount = ActiveCell.Phonetics.Count

Phonetics.Font Retorna um objeto Font que representa a fonte do objeto especificado.

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

Phonetics.Item Retorna um único objeto de uma coleção.

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

Phonetics.Length Retorna um valor Long que representa o número de caracteres de texto fonético a partir da posição especificada com a propriedade Start.

Dim lngLength As Long
lngLength = ActiveCell.Phonetics.Length

Phonetics.Parent Retorna o objeto pai do objeto especificado. Somente leitura.

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

Phonetics.Start Retorna a posição que representa o primeiro caractere de uma sequência de texto fonético na célula especificada. Long somente leitura.

Dim lngStart As Long
lngStart = ActiveCell.Phonetics.Start

Phonetics.Text Retorna ou define o texto do objeto especificado. String de leitura/gravação.

ActiveCell.Phonetics.Text =

Phonetics.Visible Retorna ou define um valor Boolean que determina se o objeto será visível. Leitura/gravação.

ActiveCell.Phonetics.Visible = True