リサイズエクセルのコメントは、私がコメントボックスにはちょうどいい（一番下の余分なスペース）コメントが合うんしたいのですが、特定の幅

Question

でテキストを合わせて。

私は.AutoSizeあります知っているが、私は最大幅はここで300

私が持っているコードがあるようにしたい、

For Each mycell In myRng.Cells 
    If Not (mycell.Comment Is Nothing) Then 
     With mycell.Comment.Shape 
     .TextFrame.AutoSize = True 
     If .width > 300 Then 
      lArea = .width * .height 
      .width = 300 
      .height = (lArea/300) 
     End If 
     End With 
    End If 
Next mycell 

mycellとmyRngはlAreaが長い、レンジデータ型です。

さて、これは比較的うまく動作しますが、自動サイズ調整のテキストが占める面積は、自動サイズ調整のコメントボックスの領域とは異なるので、コメントの数の一番下に余分なスペースを残します。

コメント内部の空白スペースをチェックし、それをトリミングする方法はありますか？それとも、私はそれが最高になるか？

Answer 1

コメントが

おそらく `てみウォッチウィンドウ

Sub testComment() 

    With Range("e4").Comment.Shape 

     .TextFrame.AutoSize = True 

     lArea = .Width * .Height 

     .Width = 300 
     .Height = (lArea/.Width)  ' used .width so that it is less work to change final width 

     .TextFrame.AutoMargins = False 
     .TextFrame.MarginBottom = 0  ' margins need to be tweaked 
     .TextFrame.MarginTop = 0 
     .TextFrame.MarginLeft = 0 
     .TextFrame.MarginRight = 0 
    End With 
End Sub