Workbook.Sheets[1].Range['E5', 'E5'].Comment.Shape.Width := 100; Workbook.Sheets[1].Range['E5', 'E5'].Comment.Shape.Height := 100;