vb中能不能根据Excel中的单元格大小来自动选择字体大小的语句？？

我试过shrinktofit，这个事自动调整列宽的，行高不调整，所以还是不能完整显示，还试过autofit，这个事自动根据字体设置行高，可以显示完整但是单元格也变大了，我想问的是既可以完整显示内容，同时单元格保持原来大小，就是把字体自动缩小到适合，有没有这样的语句？？？谢谢