Este fórum está sendo desativado

[miltonleandro]

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.

[babdallas]

Teste isso

Código: Selecionar todos

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

[miltonleandro]

Bom dia babdallas.

Funcionou perfeitamente.

Apenas ajustei,

CbbNomeDoCurso = UserForm1.CbbNomeDoCurso
TxtHoras = UserForm1. TxtHoras

Muito obrigado!!!