Komentarfeld Positionierung
07.02.2019 20:11:15
David
ich verwedne folgenden Code um ein Komentarfeld von der Breite/Höhe und Position anzupassen.
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim cmt As Comment, ct As Integer, ht As Integer
Application.DisplayCommentIndicator = xlCommentIndicatorOnly
Set cmt = ActiveCell.Comment
If Not cmt Is Nothing Then
With ActiveWindow.VisibleRange
cmt.Shape.Width = 100
cmt.Shape.Top = cmt.Parent.Top - 150
cmt.Shape.Left = .Left + 200
ct = cmt.Shape.TextFrame.Characters.Count
If ct = 30 And ct
Die Höhe varriert durch die Anzahl der Zeichen durch:
ct = cmt.Shape.TextFrame.Characters.Count
Die Top Positionierung wird über
cmt.Shape.Top = cmt.Parent.Top - 150
geregelt.Ist es möglich das ich genau wie bei "ct" auch diese Top Positionierung von den Zeichen abhängig mache?
Beispiel:
if ct If ct >= 30 And ct Ich hoffe ich konnte es verständlich erklären.
Vielen Dank für jeden Hinweis.
LG David