Commentleri Sayfanin Ortasinda Gosterme

Ornek resimdeki gibi commentlerinizi sayfanizin ortasinda gostermek icin kodlar paylasacagim;

Bunu devamli yapabilmesi icin sayfanin SelectionChange olayina yazdim ama siz duruma gore degistirebilirsiniz..

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim aralik As Range

Dim cTop As Long

Dim cWidth As Long

Dim yrm As Comment

Dim sh As Shape

Application.DisplayCommentIndicator _

= xlCommentIndicatorOnly

Set aralik = ActiveWindow.VisibleRange

cTop = aralik.Top + aralik.Height / 2

cWidth = aralik.Left + aralik.Width / 2

If ActiveCell.Comment Is Nothing Then

'Bisey Yapma

Else

Set yrm = ActiveCell.Comment

Set sh = yrm.Shape

sh.Top = cTop - sh.Height / 2

sh.Left = cWidth - sh.Width / 2

yrm.Visible = True

End If

End Sub

Yazar: mmustafaaslan

2004 yilindan itibaren ozel bir sirketin finans departmaninda calismaktadir. Kendini excel, visual basic kullaniminda gelistirmis olan yazarimiz; Meslegi geregi SAP konusunda ileri derecede bilgilidir.

“Commentleri Sayfanin Ortasinda Gosterme” için 1 yorum

Bir Cevap Yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir


1 + 1 =