Formatar comentário Excel via VBA.

Question

Qual é o código VBA para alterar o formato de um comentário individual desabilitando a margeminterna automática e definindo as margens internas Esquerda, Direita, Superior e Inferior?

Desde já agradeço a atenção.

Answer 1

Olá RICARDOCOELHO4, tudo bem? 

Seja bem-vindo à Comunidade Microsoft.

Analisando este caso, em relação ao formatar comentários no Excel via VBA.

Temos um artigo no fórum do MSDN que poderá lhe ajudar com a formatação condicional e inserir comentários, mas talvez não se aplique ao que deseja efetuar:

• Formatação Condicional, Inserir Comentários com VBA.

De todo modo, caso ainda necessite de auxílio, acesse ao fórum do MSDN onde poderá ser ajudado por algum dos desenvolvedores e profissionais de TI.

Se a resposta ajudou de alguma forma, por favor, clique em “Resolvi meu problema” localizado logo abaixo desta mensagem, caso a sua dúvida não tenha sido solucionada, por favor, poste novamente.

Espero ter ajudado, até mais! 😄✌

Answer 2

Olá, RICARDOCOELHO4!

Boa Tarde! 

Perfeito, agora somente aguardar o retorno da equipe.

Disponha!

Até mais! 😄✌

Answer 3

Olá, RICARDOCOELHO4!

Agradeço seu retorno.

Eu entendi o que deseja fazer, infelizmente aqui no fórum não tratamos da parte de programação VBA entre outras, o fórum que lhe indiquei realmente é o local adequado a sua pergunta, faça a mesma postagem e aguarde o retorno por lá.

Até mais! 😄✌

Bom dia.

Segui o seu conselho e expus o problema no fórum indicado. Agora estou aguardando uma resposta. Obrigado.

Answer 4

Olá, RICARDOCOELHO4!

Agradeço seu retorno.

Eu entendi o que deseja fazer, infelizmente aqui no fórum não tratamos da parte de programação VBA entre outras, o fórum que lhe indiquei realmente é o local adequado a sua pergunta, faça a mesma postagem e aguarde o retorno por lá.

Até mais! 😄✌

Answer 5

Boa noite Luis Paulo Lima.

Primeiramente, agradeço pelo seu interesse em solucionar a questão.

De fato o assunto no fórum do MSDN não se aplica ao que desejo efetuar.

Vou tentar ser mais claro.

Eu tenho a seguinte macro:

Sub Novo_Comentário()

'

' Inserir comentário na célula selecionada; colocar no comentário a fórmula contida na célula selecionada; formatar o comentário conforme especificado; reposicionar o comentário.

'

 Dim oCel As Range

  For Each oCel In Selection

   With oCel

    .ClearComments

    .AddComment

    .Comment.Text Text:=oCel.FormulaLocal 

    .Comment.Shape.TextFrame.AutoSize = True

    .Comment.Shape.TextFrame.Characters.Font.Size = 8

    .Comment.Shape.TextFrame.HorizontalAlignment = xlJustify

    .Comment.Shape.TextFrame.VerticalAlignment = xlTop

    .Comment.Shape.TextFrame.AutoSize = False

    .Comment.Shape.Top = oCel.Comment.Parent.Top + 5 

    .Comment.Shape.Left = oCel.Comment.Parent.Offset(0, 1).Left + 5 

  End With

  Next oCel

End Sub

Pois bem.

O que eu preciso é inserir nesta macro o código que desabilite a margem interna automática do comentário e os códigos que definam as margens internas Esquerda, Direita, Superior e Inferior do comentário, tal que o resultado seja o seguinte:

Já tentei gravar uma macro para obter esses códigos, mas as ações de desabilitar a Margem Interna Automática e digitar as margens Esquerda, Direita, Superior e Inferior não geram códigos!!!

Fiz o seguinte teste: 

Na célula ID10 digitei a fórmula =ID9 + 1 e inseri o seguinte comentário =ID9 + 1. 

Depois disso, acionei a gravação de macro para gerar os códigos correspondentes às seguintes ações:

1. Clique com o botão direito do mouse na célula com o comentário e escolha Editar Comentário.
2. Selecione o texto que você deseja formatar, clique com o botão direito do mouse sobre ele e selecione Formatar comentário.
3. Clique em Margens, desabilite a margem interna automática, defina as margens Esquerda, Direita, Superior e Inferior e clique em OK.

Parei a gravação da macro.

Como resultado, obtive a seguinte macro:

Sub Teste()

'

' Teste Macro

'

'

    Range("ID10").Comment.Text Text:="=ID9+1"

End Sub

Ou seja, não foram gerados os códigos referentes às ações de desabilitar a Margem Interna Automática e digitar as margens Esquerda, Direita, Superior e Inferior !!!

Fico no aguardo de uma solução para esta questão.

Mais uma vez agradeço a sua atenção.