Açıklamaların font büyüklüğünü arttırmak

[cout(h)ane]

Merhaba,
Bir excel çalışma kitabımda yaklaşık olarak 1000'den fazla sayıda açıklama var. Dosya çok kalabalık olduğu için %50 zoom ile çalışmak zorunda kaldığımdan, açıklamaların font büyüklüğü default olarak 8 olduğu için gözükmesi zorlaşıyor.

Tek tek sağ tıklayıp açıklama düzenle yöntemi haricinde - 1000'den fazla açıklama var - tüm açıklamaların font büyüklüğünü otomatik olarak 14'e çevirebileceğim bir yöntem var mıdır?

 

[htsumer]

Açıklama ekleme yerine Veri Doğrulama ile açıklamaları yaptığınızda istediğiniz kadar küçültün Açıklamlar Aynı Fontta görünecek.
Tabii şimdi de 1000 den fazla açıklamayı değiştirmek için ayrı bir sorunla karşılaşacaksınız.
:mrgreen:

 

[Levent Menteşoğlu]

Açıklamalarınızın bulunduğu sütunların hangileri olduğunu belirtirmisiniz. Daha doğrusu sütun ve satır aralıklarını.

 

[cout(h)ane]

Sevgili leventm,
Bir süredir siteyi takip edemediğim için gecikmiş bir cevap veriyorum..

Açıklamalar tek bir sütunda birikmiş durumda; F sütununda. Satırlar için bir düzen yok, 12. satırdan başlayarak düzensiz aralıklarla açıklamalar girilmiş, girilmeye de devam ediyor. Dosya şu anda 2500 satır civarında.

 

[Seyit Tiken]

Burda hücredeki açıklama "Veri Doğrulamı" mı yoksa "Açıklama Ekle" midir? Belli Değil. Eğer "Açıklama Ekle" ise çıkan sarı kutucuğun içindeki yazılar seçilir yada kenar çizgisi (kontur) tıklanırsa, kutucuğun içinde yazılar istenildiği ölçüde büyütülür. Yoksa "Veri Doğrulama" ise makroyla olur mu olmaz mı? Onu bilmiyorum. Yalnız pratik bir çözüm olarak çalışma sayfanın "Yakınlaştırma" ayarını yükseltirsen "Veri Doğrulama" ile yaptığın açıklamalarda irileşir. Yani fontlar nisbeten büyük olur... Hadi kolay gelsin.

 

[excile]

Selam
Deneyiniz.

[vb:1:137fe2e785]Sub Test()
Dim Cell As Range
For Each Cell In Cells.SpecialCells(xlCellTypeComments)
With Cell.Comment.Shape.TextFrame
.Characters.Font.Size = 14
.AutoSize = True
End With
Cell.Comment.Shape.TextFrame.AutoSize = True
Next
End Sub[/vb:1:137fe2e785]

 

[cout(h)ane]

Tam olarak istediğim buydu..
Teşekkürler..
:hey: :bravo: :bravo: :hey:

 

[Serpily]

Çok güzel olmuş @excile. Elinize sağlık.