opmerking te lang tekst

[ozzyozzy]

Hoi allemaal,

de tekst is te lang graag wil ik dat gecentreerd onder elkaar hebben. is dat mogelijk enige idee.
Via button opmerkingen invoegen-wijzigen-verwijderen.

Private Sub CommandButton1_Click()
 On Error Resume Next
  Dim splits As Variant, i As Integer, s As String
  With ActiveCell
    If Len(.Comment.Text) Then .Comment.Delete
    .AddComment
    .WrapText = True
    With .Comment
      .Shape.AutoShapeType = msoShapeRoundedRectangle
      .Shape.Shadow.Visible = msoFalse
      If Me.TextBox1.Value <> "" Then
        splits = Split(Replace(Replace(Me.TextBox1.Value, Chr(10), "|"), Chr(13), ""), "|")  'vervang chr(10) & chr(13) door de pipe "|"
        If UBound(splits) > 6 Then
          MsgBox "er staan teveel zinnen in de tekstbox, de rest wordt geschrapt"
          ReDim Preserve splits(0 To 6)
        End If
        For i = 0 To UBound(splits)
          If Len(splits(i)) > 10000 Then
            MsgBox Asc(Right(splits(i), 1))
            MsgBox "er staat een te lange zin in je opmerking, laatste stuk wordt geschrapt"
            splits(i) = Left(splits(i), 10000)
          End If
        Next
        .Text Text:=Join(splits, Chr(10))
      End If
      .Shape.TextFrame.AutoSize = True
    End With
    Unload Me
  End With

End Sub

Private Sub CommandButton2_Click()
  Selection.ClearComments                                  'knoppen op userform
  Unload Me
End Sub

Private Sub CommandButton3_Click()
 Unload Me
End Sub

Private Sub TextBox1_Change()

End Sub

Private Sub UserForm_Initialize()
  Me.TextBox1.SetFocus
  With ActiveCell
    On Error Resume Next
    If Len(.Comment.Text) Then                             'do you have comment in this cell
      Me.TextBox1.Value = .Comment.Text                   'actual comment
    End If
    On Error GoTo 0
  End With
End Sub

 

[HSV]

Tja, hier is in ieder geval een begin.
Geen idee of het eindresultaat je bevalt.

Private Sub CommandButton1_Click()
If Not ActiveCell.Comment Is Nothing Then
 ActiveCell.Comment.Text Replace(ActiveCell.Comment.Text, ";", vbCrLf)
 End If
End Sub

 

[ozzyozzy]

Bekijk bijlage 352671

ik zal is kijken, ik had het zoiets in mijn gedachten.