折り返して全体を表示
折り返して全体を表示する場合は、
WrapTextプロパティ を True にします。
' 折り返して全体を表示
Range("B2").WrapText = True
縮小して全体を表示
縮小して全体を表示する場合は、ShrinkToFitプロパティ を True にします。
' 縮小して表示
Range("B3").ShrinkToFit = True
解除
折り返し、縮小を解除する場合はそれぞれのプロパティを False にします。
Range("B2").WrapText = False
Range("B3").ShrinkToFit = False