Como redimensionar os comentários no Excel (VBA)

Os comentários do Excel são objetos Shape. Para redimensioná-los, use os métodos ScaleWidth e ScaleHeight do objeto Shape.

Identificar quais são os Shapes de comentários (dentre todos os Shapes da Worksheet) não é difícil, pois o objeto Comment tem uma propriedade Shape que retorna o objeto Shape correspondente ao comentário.

Este código de exemplo percorre todos os comentário da planilha Plan1, deixando-os com o mesmo tamanho:


Sub ResizeComments()

'Padroniza o tamanho dos comentários da Plan1

Dim shp As Shape

Dim cmt As Comment


On Error GoTo ErrHandler


'Percorre todos os comentários da planilha Plan1

For Each cmt In ThisWorkbook.Worksheets("Plan1").Comments

    'Captura o objeto Shape do comentário

    Set shp = cmt.Shape

    'Altera a altura

    shp.ScaleHeight 0.5, msoFalse

    'Altera a largura

    shp.ScaleWidth 0.5, msoFalse

Next cmt


ExitHere:

Exit Sub


ErrHandler:

MsgBox Err.Description & vbCrLf & Err.Number & vbCrLf & Err.Source, vbCritical, "ThisWorkbook-ResizeComments"

Resume ExitHere

Resume

End Sub

Esse post foi publicado em Excel, VBA e marcado , , . Guardar link permanente.

2 respostas para Como redimensionar os comentários no Excel (VBA)

  1. Mikeangela disse:

    Oi. sei que minha pergunta não tem nada haver com o assunto eh que vi no site forum msdn os arquivos CTKBCDC.OCX e CTKBCDC.DEP e nao to conseguindo acha-los de jeito nenhum. to precisando meio que urgente agora pq jah procurei de todas as forma e nao encontro, to precisando desenvolver uns codigos de barras. vi que vc teria esses arquivos poderia me mandar. email abaixo

  2. Daniel disse:

    Muito últil. A questão é descobrir o quanto de Altura e Largura precisamos…..nem sempre é 0.5……..existe uma forma de saber? Ou ajusar o view do coment ao tamanho do texto?

Deixe uma resposta

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair / Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair / Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair / Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair / Alterar )

Conectando a %s