macro excel

[Nikki Russel]

Ik had in Excel 2003 een macro voor 'opmerking invoegen' met een knop
als ik hierop klik maakt deze de afmeting van de 'opmerking' allemaal gelijk.

Sub ResizeALLcomments()
Dim c As Object
For Each c In ActiveSheet.Comments
c.Shape.Width = 55
c.Shape.Height = 70
Next c
End Sub

Echter werkt deze niet meer in excel 2019
Wat kan/moet ik aanpassen zodat deze weer werkt

Bij voorbaat dank,

m.vr.gr. Nikki Russel

 

[peter59]

Ik vermoed dat het misgaat omdat er vanaf 2016 en later een keuze is uit twee soorten opmerkingen. Hoe dat in de macro aan te passen weet ik echter niet; dat is iets voor de VBA-specialisten.

 

[edmoor]

Werkt hier in Office 2021 probleemloos zonder enige wijziging.
Krijg je een foutmelding?
Zo ja, welke is dat dan?