Forums Neueste Beiträge
 

Kommentar - Objektpositionierung auf MoveAndSize umstellen

07/08/2008 - 13:28 von Walter Heying | Report spam
Hallo,

ich habe folgende Aufgabenstellung. Ich muss, um Spalten einfügen zu
können, die enthaltenen Kommentar-Eigenschaften àndern. Die
Objektpositionierung (unter der Kommentar-Eigenschaften) auf einem
Blatt müssen auf von "Von Zellposition von -größe unabhàngig" auf "Von
Zellposition von -größe abhàngig" umgestellt werden.
Ich habe mich hier bereits umgesehen und fand ein Makro, so glaube
ich. Ich habe es ein wenig geàndert, danach lief es aber leider nicht
mehr.
Makro:
Sub Kommentar_moveandsize()
Dim Cell As Range

For Each Cell In Cells.SpecialCells(xlCellTypeComments)
With Cell.Comment.Shape.TextFrame
.Placement = xlMoveAndSize
.PrintObject = True
End With
Next

End Sub

Was habe ich falsch gemacht? Wie lautet der korrekte Code?

Gruß
Walter
 

Lesen sie die antworten

#1 stefan onken
07/08/2008 - 14:48 | Warnen spam
On 7 Aug., 13:28, Walter Heying wrote:
Hallo,

ich habe folgende Aufgabenstellung. Ich muss, um Spalten einfügen zu
können, die enthaltenen Kommentar-Eigenschaften àndern. Die
Objektpositionierung (unter der Kommentar-Eigenschaften) auf einem
Blatt müssen auf von "Von Zellposition von -größe unabhàngig" auf "Von
Zellposition von -größe abhàngig" umgestellt werden.
Ich habe mich hier bereits umgesehen und fand ein Makro, so glaube
ich. Ich habe es ein wenig geàndert, danach lief es aber leider nicht
mehr.
Makro:
Sub Kommentar_moveandsize()
    Dim Cell As Range

For Each Cell In Cells.SpecialCells(xlCellTypeComments)
    With Cell.Comment.Shape.TextFrame
        .Placement = xlMoveAndSize
        .PrintObject = True
    End With
Next

End Sub

Was habe ich falsch gemacht? Wie lautet der korrekte Code?

Gruß
Walter



hallo Walter,
versuchs mal so:

Sub Kommentar_moveandsize()
Dim Cell As Range
For Each Cell In Cells.SpecialCells(xlCellTypeComments)
Cell.Comment.Shape.Placement = xlMoveAndSize
Next
End Sub

geht auch als Einzeiler

Cells.SpecialCells(xlCellTypeComments).Comment.Shape.Placement xlMoveAndSize


PrintObject gibt es mE bei Kommentaren nicht. Ob und wie die
Kommentare gedruckt werden, musst du über Datei/Seite einrichten/
Tabelle einstellen.

Gruß
stefan

Ähnliche fragen