如何在vba中包裝comment.text

我有一種情況，其中一個單元格中的文本很大。當我更改此單元格的內容時，以前的值將成爲該單元格的註釋。現在問題是，這是文字太大以至於看不到完整的文字。如果我使用.Shape.Textframe.Autosize = true，那麼我必須繼續瀏覽，直到上帝知道何時看到文字。如何在vba中包裝comment.text

我需要做的是無論什麼和Commnet.text中的文字大小，我只想在一個地方展示它，當我懸停在評論上時。

來源

2010-09-13 gizgok

放置一個文本框，您將在工作表上調整到你想要的大小，這仍然讀取評論雖然這不是一個盤旋，但也許會幫助

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

其實考慮這個進一步，你以後真的想要得到評論來按照你的意願行事。所以我推薦Resize all comments in the selected area，並在頁面下方的同一鏈接上顯示活動窗口中心的Excel註釋。

這些讓你更接近我想要的東西。

來源

2010-09-14 17:06:15 datatoo

彈出文本框如何？即，用戶點擊單元格並出現帶有文本的彈出窗體。最好的部分是你可以使彈出窗口儘可能大。

就我個人而言，我會彈出可調整大小，但只有頂部的關閉按鈕。我想不出只用鼠標滾動觸發這種形式的方法，但我只使用2003.稍後的版本允許您使用更多技巧。

來源

2010-09-14 13:58:54 PowerUser

我已經在這礙事少的工作做到了這一點使用BeforeDoubleClick，除非你真的需要看到的內容，你仍然可以做定期編輯 – datatoo 2010-09-14 16:41:03

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

來源

2012-05-29 10:16:22 Nitin

發佈的答案時，請提供更多信息。具體說明代碼正在做什麼，或者如何/爲什麼解決了OP的問題。只有代碼答案通常只適用於極少數情況。 – psubsee2003 2012-10-21 09:39:26

這改變了單元格，而不是註釋。 – Brady 2015-07-16 15:50:48

如何在vba中包裝comment.text

回答

相關問題