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.
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
[Resolvido] Texto em negrito - vba
[Resolvido] Texto em negrito - vba
Editado pela última vez por milton em Qui Jul 04, 2019 12:32 pm, em um total de 1 vez.
Re: Texto em negrito
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
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
-
- Manda bem
- Mensagens: 127
- Registrado em: Sex Out 05, 2018 2:42 pm