Sayfadaki oluşturulan ve oluşturulacak tüm commentsleri sizelarını ayarlayabilirmiyim

[mus3535]

Sayfadaki oluşturulan ve oluşturulacak tüm commentsleri sizelarını ayarlayabilirmiyim

işyerindeki pc de win 98 ve eski excel var,acaba tüm sayfadaki oluşturulan ve oluşturulacak tüm comments leri sizelarını ayarlayabilirmiyim...comment ilk açılrken size 7 oluyor ben her açılış 16 olarak başlasın istiyorum...teşekkürler

 

[Recep İpek]

Aşağıdaki kod sayfada oluşturulmuş tüm comments'lerin boyutunu 100x150 yapar.Siz kendinize göre ayarlayabilirsiniz.
Yeni oluşturulacak comments'lerin boyutunu bir yerlerden ayarlanabileceğini tahmin ediyorum.Fakat şu ana kadar bulamadım.

Sub CommentsFormat()
On Error Resume Next
Application.ScreenUpdating = False
Set Comments = Range("A1").SpecialCells(xlCellTypeComments)
If Comments Is Nothing Then MsgBox ActiveSheet.Name & " sayfasında hücre açıklaması bulunamadı.": GoTo Hata
    For Each cCell In Comments
        With cCell.Comment
        .Shape.Width = 100  ' Genişlik Boyutu
        .Shape.Height = 150 ' Yükseklik Boyutu
        End With
    Next cCell
Hata:
Set Comments = Nothing
Application.ScreenUpdating = True
End Sub