AutoSize eines Kommentarfeldes funktioniert nicht
SDO
ich habe ein Problem, das ich nicht verstehen kann ...
Ich möchte die Kommentare automatisch mit einer Beschreibungsspalte füllen und das Kommentarfeld so formatieren, dass das Häkchen "automatische Größe" des Reiters Ausrichtung in der Kommentarfeldformatierung angeklickt ist.
Wenn ich die AutoSize-Eigenschaft auf ein Range-Objekt mit Angabe des Zellbezuges in "" anwende, klappt es. Wenn ich die AutoSize-Eigenschaft wie im Code beschrieben anwende, klappt es nicht ?
Folgendes ist mein Code:
Public Sub KommentarEinfügen(ByVal Kommentar As Range, ByVal Ziel As Range)
Dim i As Integer
Dim filltxt As String
If Kommentar.Rows.Count Ziel.Columns.Count Then
'Fehlermeldung XXX
Exit Sub
End If
For i = 1 To Ziel.Columns.Count
filltxt = Kommentar.Cells(i, 1).Text
If Ziel.Cells(1, i).comment Is Nothing And Len(filltxt) > 0 Then
Ziel.Cells(1, i).AddComment filltxt
Else
Ziel.Cells(1, i).comment.Delete
Ziel.Cells(1, i).AddComment filltxt
End If
'Das klappt:
Range(Ziel.Cells(1, i).Address).comment.Shape.TextFrame.HorizontalAlignment = xlRight
'Das klappt nicht:
Range(Ziel.Cells(1, i).Address).comment.Shape.TextFrame.AutoSize = True
'Das klappt sonderbarerweise ...
Worksheets("BM-BasisM").Range("CV9").comment.Shape.TextFrame.AutoSize = True
'Andere Versuche:
'Ziel.Cells(1, i).comment.Shape.TextFrame.AutoSize = True
'Ziel.Cells(1, i).comment.Shape.OLEFormat.Object.AutoSize = True
'Für das Ein- bzw. ausblenden einer Spalte ist es wichtig,
'dass die Objektpositionierung in den Eigenschaften auf:
'"Von Zellposition und -größe abhängig" (xlMoveAndSize) gesetzt ist
Ziel.Cells(1, i).comment.Shape.Placement = xlMoveAndSize
Next
End Sub
Herzlichen Dank für hilfreiche Tipps! - SDO