Hücrenin açıklamasında görünür alanın boyutlarını değiştirmek...

[ffff7]

Mrb. Herkese kolay gelsin.

Benim şimdiki sorunum hücreye açıklama ekledikten sonra bu açıklamayı görebilecek kadar açıklamanın çerçevesini büyütmek...

excelin kendisine makro kaydetle yaptırdığımda;

Sub Makro2()
    Range("A23").AddComment
    Range("A23").Comment.Visible = true
    Range("A23").Comment.Text Text:="Mrb:" & Chr(10) & "Açıklama1:" & Chr(10) & "Açıklama2:"
    Selection.ShapeRange.ScaleWidth 1.7, msoFalse, msoScaleFromTopLeft
    Selection.ShapeRange.ScaleHeight 1.97, msoFalse, msoScaleFromTopLeft
End Sub

şeklinde bir kod alıyorum.

Ama bu kodu dahi tekrar çalıştırdığımda selection.shaperange.scalewidth satırında (object doesn't support this property or method) hatasını veriyor...

Bir de açıklama ekleyeceğimiz hücrede daha önceden açıklama olup olmadığını kontrol edebileceğimiz bir komut varmıdır?

Teşekkür ederim.

 

[veyselemre]

Merhaba, şöyle deneyin,

Sub Makro2()
Range("A23").Select
Selection.ClearComments
Selection.AddComment
Selection.Comment.Visible = True
Selection.Comment.Text Text:="Mrb:" & Chr(10) & "Açıklama1:" & Chr(10) & "Açıklama2:"
Selection.Comment.Shape.Select
Selection.ShapeRange.ScaleWidth 1.7, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 1.97, msoFalse, msoScaleFromTopLeft
End Sub

 

[ffff7]

Farklı olarak bir tek "Selection.Comment.Shape.Select" satırı var ve onuda adres belirterek dahi eklesem şu hatayı dönüyor..

Method "select" or object "shape" failed

sizde bu şekilde çalıştımı?

 

[veyselemre]

Şu adresteki

Dosyayı inceleyin.

 

[ffff7]

Çözüldü çok saolun. Peki ya ikinci sorum...?

Sn. Veyselemre; çok teşekkür ederim.Kodum şu şekilde çalıştı. Fazladan kontrol girmeye çalışmışım.

2. sorum: Bir hücrede comment varmı yokmu kontrol edebilecek bir komut var mıdır ?

Sub Makro2()
Range("A23").AddComment
Range("A23").Comment.Visible = false
Range("A23").Comment.Text Text:="Mrb:" & Chr(10) & "Açıklama1:" & Chr(10) & "Açıklama2:"
Range("A23").Comment.Shape.ScaleWidth 1.1, msoFalse, msoScaleFromTopLeft
Range("A23").Comment.Shape.ScaleHeight 1.1, msoFalse, msoScaleFromTopLeft
End Sub

 

[Levent Menteşoğlu]

Direk bir komut varmı bilmiyorum ama muhtelif şekillerde oluşturulabilir. Örneğin A23 hücresi için,

On Error Resume Next
If [a23].Comment.Text = "" Then
MsgBox "yok"
Else
MsgBox "var"
End If

 

[veyselemre]

Şöyle bir fonksiyon da yazılabilir.

Function HucredeAciklamaVarmi(Cell As Range) As Boolean
Dim Comnt As Comment
For Each Comnt In ActiveSheet.Comments
    If Comnt.Parent.Address = Cell.Address Then
        HucredeAciklamaVarmi = True
        Exit Function
    End If
Next Comnt
End Function

Sub dene()
     MsgBox HucredeAciklamaVarmi([a1])
End Sub