Página 1 de 1

[Resolvido] Texto em negrito - vba

Enviado: Qua Jul 03, 2019 9:48 am
por milton
Bom dia amigos!

É possível deixar em negrito somente parte do texto por vba?
Tenho a frase abaixo e gostaria que ficasse em negrito somente o texto da CbbNomeDoCurso e TxtHoras.

Label1 = "no curso " & CbbNomeDoCurso & " com a carga horária de " & TxtHoras & " horas, realizado na"
Plan26.Range("E20").Value = "no curso " & CbbNomeDoCurso & " com a carga horária " & TxtHoras & " horas, realizado na"

Desde já agradeço.

Re: Texto em negrito

Enviado: Qui Jul 04, 2019 10:58 am
por milton
Fala galera. Bom dia!

Consegui a resposta em outro Forum.
Segue ai caso alguém precise.

Public Sub NegritarParteTexto()
Dim lngEspacoApos As Long
Dim lngCurso As Long
Dim lngHoras As Long
Dim strTexto As String
'Dim CbbNomeDoCurso As String
' Dim TxtHoras As String

'CbbNomeDoCurso = "Excel"
'TxtHoras = "8"


strTexto = "no curso " & CbbNomeDoCurso & _
" com a carga horária de " & TxtHoras & " horas, realizado na"

lngCurso = VBA.InStr(Start:=1, _
String1:=strTexto, _
String2:=CbbNomeDoCurso, Compare:=vbTextCompare)

lngEspacoApos = VBA.InStr(Start:=lngCurso + 1, _
String1:=strTexto, _
String2:=" ", Compare:=vbTextCompare)

lngHoras = VBA.InStr(Start:=1, _
String1:=strTexto, _
String2:=TxtHoras, Compare:=vbTextCompare)

lngEspacoApos = VBA.InStr(Start:=lngHoras + 1, _
String1:=strTexto, _
String2:=" ", Compare:=vbTextCompare)

With plan26.Range("E26")
.Value = strTexto
.Characters(Start:=lngCurso, _
Length:=VBA.Len(CbbNomeDoCurso)).Font.FontStyle = "Negrito"
.Characters(Start:=lngHoras, _
Length:=VBA.Len(TxtHoras)).Font.FontStyle = "Negrito"
End With

End Sub

Re: [Resolvido] Texto em negrito - vba

Enviado: Sex Jul 05, 2019 9:47 am
por Julio Mangilli
Obrigado por compartilhar amigo.