Doug,

I am not sure I fully understand, but does this help at all

[vba]

.Comment.Shape.Height = .Comment.Shape.Height /.Comment.Shape.Width * 1100
[/vba]