Este fórum está sendo desativado

[JapSmart]

Olá, bom dia.

Gostaria de saber se é possível destacar o conteúdo de uma célula ativa do Excel, e não a celula toda, através de uma macro. Ou seja, quando a célula for selecionada, o conteúdo (e não a célula) será realçado. Quando mudar o cursor, desfaz-se a marcação que ficará ativa na outra célula. No exemplo a seguir:

http://datab-forum-imagens.s3.amazonaws ... 648368.JPG

O cursor está setado na célula que contem a palavra Matemática, porém só a palavra (conteúdo da célula) foi preenchida com amarelo e não a célula toda.

Desde já agradeço a todos que puderem colaborar.

[AfonsoMira]

Boas penso que com a caneta do separador desenhar consiga realçar o que pretende.

[JapSmart]

Obrigado, amigo. A redação do tópico estava incompleta. Fiz uma edição no texto e agora minha necessidade está mais compreensível.

[AfonsoMira]

Boas, utilizando macro nunca vi.
Penso que não de para fazer o que pretende.

A unica coisa parecida ao que quer com macro seria alterar a cor das letras.

[osvaldomp]

Concordo com o @AfonsoMira, pois me parece que não existe recurso nativo no Excel para destacar somente o texto.

Um artifício para se obter um efeito "parecido" seria inserir manualmente uma figura na planilha, por exemplo um retângulo formatado sem linha, fundo amarelo e com transparência, e via WS_SelectionChange posicionar o retângulo na célula ativa e ajustar a sua largura com base no número de caracteres do texto contido na célula.

[AfonsoMira]

Como o @osvaldomp sugeriu, tentei fazer dessa maneira.

Insira uma figura de um rectângulo na folha e lhe dê o nome de "Destaque".

Depois insira este código:

Código: Selecionar todos

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

 With ActiveSheet.Shapes.Range("Destaque")
    .Left = Target.Left + 5
    .Top = Target.Top + 5
    .Height = Target.Height - 10
    .Width = Target.Width - 10
   .Fill.Visible = msoTrue
    .Fill.ForeColor.RGB = RGB(255, 255, 0)
    .Fill.Transparency = 0.6000000238
    .Fill.Solid
    .Line.Visible = msoFalse
 End With

End Sub

Dá para fazer alguns ajustes mas penso que assim irá funcionar para você.