bestemme størrelsen på en kommentar box via en makro.

her er en du kan lege med, den kikker vist på alle shapes

Sub All_Shapes_Height_Width()
For Each s In ActiveSheet.Shapes
    Select Case s.Type
    Case msoEmbeddedOLEObject, _
            msoLinkedOLEObject, _
            msoOLEControlObject, _
            msoLinkedPicture, msoPicture
        s.Height = 175
        s.Width = 175
    Case Else
        s.Height = 75 ' hernede er det kommentarer og tekstbokse
        s.Width = 100
    End Select
Next

End Sub

Tilføj følgende under den bestående kode:

For i = 1 To ActiveSheet.Comments.Count
          ActiveSheet.Comments(i).Shape.Height = 100
          ActiveSheet.Comments(i).Shape.Width = 100
Next i

Den virker kun på kommentarer :-)

jkrons --> jeg bøjer mig ;-))

:-)

Jeg vender tilbage i morgen efter en lille test...

Den er lige i øjet! Point til jkrons

Den er lige i øjet! Point til jkrons.

Velbekomme!  Tak for point.