Vídeo recomendado
https://youtu.be/diWPPPhW-9E

[Resolvido] Texto em negrito - vba

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
Avatar do usuário
milton
Manda bem
Manda bem
Mensagens: 147
Registrado em: Sex Jun 17, 2016 8:22 am

[Resolvido] Texto em negrito - vba

Mensagem 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.
Editado pela última vez por milton em Qui Jul 04, 2019 12:32 pm, em um total de 1 vez.


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
milton
Manda bem
Manda bem
Mensagens: 147
Registrado em: Sex Jun 17, 2016 8:22 am

Re: Texto em negrito

Mensagem 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


Julio Mangilli
Manda bem
Manda bem
Mensagens: 127
Registrado em: Sex Out 05, 2018 2:42 pm

Re: [Resolvido] Texto em negrito - vba

Mensagem por Julio Mangilli »

Obrigado por compartilhar amigo.


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder