Как обернуть comment.text в vba

Question

У меня есть ситуация, когда текст в одной из ячеек является массивным. Когда я изменяю содержимое этой ячейки, предыдущее значение становится комментарием к этой ячейке. Теперь проблема в том, что этот текст настолько большой, что я не вижу полный текст. Если я использую .Shape.Textframe.Autosize = true, тогда я должен продолжать просматривать, пока бог не знает, когда увидеть текст.

Что мне нужно сделать, так это то, каким бы большим и ни был текст в Commnet.text, я хочу показать его только в одном и том же месте, т.е. когда я наведу курсор на комментарий.

Answer 1

Поместите TextBox там, где вы будете на рабочем листе, и отрегулируйте его по размеру. Это все равно читает комментарий, хотя это не при наведении курсора, но, возможно, поможет

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 If Not ActiveCell.Comment Is Nothing Then

   ActiveSheet.Shapes("Text Box 1").TextFrame.Characters.Text = ActiveCell.Comment.Text
  Else: ActiveSheet.Shapes("Text Box 1").TextFrame.Characters.Text = ""
 End If
End Sub

На самом деле после дальнейшего рассмотренияВы действительно пытаетесь получить комментарий, чтобы действовать так, как вы хотите.Поэтому я рекомендую Изменить размер всех комментариев в выбранной области и по той же ссылке внизу страницы. Показать комментарии Excel в центре активного окна.

Они приблизят вас к тому, что, я думаю, вы хотите.

Answer 2

   xlSheet.Range(xlSheet.Cells(rowCount,1), xlSheet.Cells(rowCount,8)).Merge 
   xlSheet.Range(xlSheet.Cells(rowCount,1), xlSheet.Cells(rowCount,8)).HorizontalAlignment = 1
   xlSheet.Range(xlSheet.Cells(rowCount,1), xlSheet.Cells(rowCount,8)).WrapText = True
   xlSheet.Range(xlSheet.Cells(rowCount,1), xlSheet.Cells(rowCount,8)).RowHeight=45

Answer 3

Как насчет всплывающего текстового поля?То есть пользователь нажимает на ячейку и появляется всплывающая форма с текстом.Самое приятное, что вы можете сделать всплывающее окно настолько большим, насколько захотите.

Лично я бы изменил размер всплывающего окна, но только с кнопкой Закрыть вверху.Я не могу придумать, как вызвать эту форму с помощью простого наведения мыши, но я использую только 2003. Более поздние версии позволяют вам больше трюков.