Esqueceu sua senha? Você pode usar o mecanismo de lembrete neste link: Recuperar senha

Você receberá um link de reativação no email cadastrado.

Não recebeu o email? Lembre-se checar o Lixo Eletrônico.

[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: 124
Registrado em: Sex Jun 17, 2016 8:22 am

[Resolvido] Texto em negrito - vba

Mensagem por milton » Qua Jul 03, 2019 9:48 am

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: 124
Registrado em: Sex Jun 17, 2016 8:22 am

Re: Texto em negrito

Mensagem por milton » Qui Jul 04, 2019 10:58 am

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 » Sex Jul 05, 2019 9:47 am

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