Aciklama kutusundaki yazinin fontu nasil degisir

[korfez]

Degerli Excel Dostlari,

Cells(1, 1).AddComment
Cells(1, 1).Comment.Text Text:="Deneme"

komutlarini kullanarak A1 hucresine, icinde Deneme yazan bir Aciklama Kutusu ekliyorum. Ama ne kadar ugrastiysam aciklama kutusundaki metnin fontunu buyutecek bir makro komutu bulamadim. Bosuna mi ariyorum, kod yokmu acaba?
Sevgiler ve saygilar...
M.D

 

[Levent Menteşoğlu]

Bunun için neden makro kaydet yönteminden istifade etmiyorsunuz. İşte çıkan komutların biraz düzenlenmiş hali aşağıdaki gibidir.

[vb:1:a91903ef2a][a1].Comment.Shape.Select True
Selection.Font.ColorIndex = 3
Selection.Font.Size = 20
Selection.Font.Name = "Tahoma"
[/vb:1:a91903ef2a]

veya

[vb:1:a91903ef2a][a1].Comment.Shape.Select True
With Selection.Font
.Name = "Tahoma"
.Size = 20
.ColorIndex = 3
End With
[/vb:1:a91903ef2a]

 

[korfez]

Sevgili Leventm,
oncelikle cevabiniz icin tesekkurler,
Makro calismalarinda bende cogunlukla "makro kaydet" yontemini kullaniyorum ve de herkese tavsiye ederim. Yukaridaki konu icin bu metodu kullandigimda sizin kodlariniza benzer kodlara ben de ulastim. Fakat sizin kod da dahil olmak uzere;

'-2147467259 (80004005)' çalışma hatası:
Yöntem 'Select',nesne 'Shape'başarısız

seklinde bir hata mesaji verdi. Neyse ki biraz daha ugrasinca aciklamayi gorunur yapmayi denedim ve bu sefer istedigimi elde ettim. Bizi izleyen arkadaslar da faydalansin diye kodun tamamini asagida veriyorum.

Sub AciklamaEkle()

Range("A1").AddComment 'tanimli hucreye aciklama kutusu ekler
Range("A1").Comment.Text Text:="Deneme"
Range("A1").Comment.Shape.ScaleWidth 0.53, msoFalse, msoScaleFromTopLeft
Range("A1").Comment.Shape.ScaleHeight 0.5, msoFalse, msoScaleFromTopLeft

Range("A1").Comment.Visible = True
Range("A1").Comment.Shape.Select True

With Selection.Font
.Name = "Tahoma"
.Size = 12
.ColorIndex = 3
End With

Range("A1").Comment.Visible = False

End Sub