Hücre içi açıklamalar yerlerinde değil, sayfaya dağınık halde

[hyuga]

Merhaba
Ortak kullanıdığımız bir dosya var hücre açıklamları ekledim. Fakat dosyayı daha sonra açtığımda açıklamalar her biri çizgi ile hücresinden uzak yerlerde gösteriyordu. Taşıma ile halledebiliyorum ama çok açıklama var bu şekidle bunu kısayoldan halledebilir myim? bir hata oluşmuş gibi çünkü

 

[Muzaffer Ali]

Merhaba.

Açıklamaların bulunduğu sayfa adını sağ tıklatın "Kod Görüntüle" seçin. Açılan sayfaya aşağıdaki kodları yapıştırın, kodlardan herhangi bir satır seçiliyken F5 tuşuna basarak kodları çalıştırın.

Sub Test()
    Dim Aciklama As Comment
    Dim Bak As Range
    Dim Alan As Range
   
    Set Alan = Range("A1:H20")'Sadece A1 ile H20 aralığındaki açıklamaları kontrol eder. Siz kendinize göre değiştirin.
   
    For Each Bak In Alan
        Set Aciklama = Bak.Comment
        If Not Aciklama Is Nothing Then
            Bak.Comment.Shape.Left = Bak.Left + Bak.Width + 12
            Bak.Comment.Shape.Top = Bak.Top - 5
        End If
    Next
End Sub