Modificar tamaño y forma de varios comentario en una misma hoja de excel

%3CLINGO-SUB%20id%3D%22lingo-sub-3181129%22%20slang%3D%22es-ES%22%3EModify%20the%20size%20and%20shape%20of%20multiple%20comments%20in%20the%20same%20excel%20sheet%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-3181129%22%20slang%3D%22es-ES%22%3E%3CP%3EGood%20afternoon%2C%20they%20give%20me%20an%20Excel%20sheet%20with%20about%205%20thousand%20comments%20which%20has%20different%20shapes%20and%20sizes%20some%20are%20not%20displayed%20well%2C%20I%20would%20know%20if%20there%20is%20any%20way%20to%20unify%20or%20modify%20the%20way%20to%20display%20all%20the%20comments%20of%20an%20Excel%20sheet%20with%20the%20same%20size%20and%20font%2C%20%20without%20having%20to%20see%20each%20one%20and%20adjust%20it%20manually.%3C%2FP%3E%3C%2FLINGO-BODY%3E%3CLINGO-LABS%20id%3D%22lingo-labs-3181129%22%20slang%3D%22es-ES%22%3E%3CLINGO-LABEL%3EExcel%3C%2FLINGO-LABEL%3E%3CLINGO-LABEL%3EFormulas%20and%20Functions%3C%2FLINGO-LABEL%3E%3C%2FLINGO-LABS%3E
Occasional Visitor

Buenas tardes, me entregan una hoja de Excel con cerca de 5 mil comentarios los cuales tiene diferentes formas y tamaños algunos no se visualizan bien, me justaría saber si existe alguna forma de unificar o modificar la forma de visualizar todos los comentarios de una hoja de Excel con un mismo tamaño y tipo de letra, sin tener que ver cada uno y ajústalo manualmente.

1 Reply

@abelgarcia29 

Format worksheet comments

As far as I know (maybe I'm wrong, who knows), however, in Excel you have to format them individually. But you can also use third-party tools, just search the Internet.

Here is a small example, without guarantee.

At the same time there is the possibility to do it with VBA, here is an example code (untested but should work :):

 

Sub FormatAllComments()
  Dim ws As Worksheet
  Dim cmt As Comment
  For Each ws In ActiveWorkbook.Worksheets
    For Each cmt In ws.Comments
      With cmt.Parent.Offset(-1, 1)
        cmt.Shape.Top = .Top + .Height / 2
        cmt.Shape.Left = .Left + 11
        cmt.Shape.TextFrame.AutoSize = True
        cmt.Shape.TextFrame.HorizontalAlignment = xlLeft
        cmt.Shape.TextFrame.Characters.Font.Name = "Arial"
        cmt.Shape.TextFrame.Characters.Font.Size = 12
        cmt.Shape.TextFrame.Characters.Font.Bold = False
      End With
    Next cmt
  Next ws
End Sub 

 

Since I do not know which Excel version and which operating system it is, I am sending you the attached information and links.

 

Hope I could help you with that.

 

NikolinoDE

I know I don't know anything (Socrates)