Automatisch formaat opmerkingen

[Mieke1985]

Hallo allemaal,

Ik heb een bestand met veel tabbladen en veel opmerkingen.
Ik zou graag willen dat deze opmerkingen zich automatisch aanpassen aan de tekst. Zowel de bestaande als de nieuwe opmerkingen.

Dus zoals bij opemerking opmaken > uitlijning > Automatisch formaat

Op Engels-talige sites heb ik een aantal codes gevonden om het formaat van de opmerkingen automatisch aan te passen aan de tekst...maar ze werken niet of ik doe iets verkeerd.
Dit moet er sowieso in verwerkt worden denk ik:

.Shape.TextFrame.AutoSize = True


Echter, 9 van de 10 topics hierover zijn geschreven vóór 2010 dus misschien dat dit in excel 2010 (mijn versie) wel gemakkelijker kan?
Kan iemand mij hiermee helpen?

 

[Cobbe]

Hier kan je die info vinden:

http://www.contextures.com/xlcomments03.html#Formatted

 

[Mieke1985]

Bedankt Cobbe; die site had ik ook gevonden in mijn zoektocht maar deze codes werkten niet. (of ik heb het niet goed gedaan)
Dit heb ik nu staan (bij ThisWorkbook)

Sub FormatAllComments()
Dim ws As Worksheet
Dim cmt As Comment
For Each ws In ActiveWorkbook.Worksheets
For Each cmt In ws.Comments
With cmt.Shape.TextFrame.AutoSize = True
End With
Next cmt
Next ws
End Sub

Wat doe ik verkeerd?

 

[Cobbe]

Probeer hem eens hiermee:

Sub Opmerkingen_AutoSize()
 For Each ws In ActiveWorkbook.Worksheets
  For Each Opmerking In ws.Comments
    With Opmerking
      .Shape.TextFrame.AutoSize = True
    End With
  Next
 Next
End Sub

 

[Mieke1985]

:thumb::thumb: TOP Cobbe!

Heel erg bedankt!