Excel单元格的ShrinkToFit属性：检测字体大小是否收缩？
如果Excel工作表单元格的ShrinkToFit属性设置为True，Excel将缩小字体大小以适应所有文本（如有必要）。
是否有可能在VBA中检测这种单元格的字体大小是否缩小？ 容易看到它发生在我的眼睛，但我需要用VBA来检测它。
请注意我不是问如何检查ShrinkToFit属性是否已被设置为True。 没有比这更容易的了。 我问如何检查单元格的字体大小是否实际缩小，只有在必要时才会适合所有文本。
我没有find解决scheme，并决定去一个不同的方向。 然而，从那以后，我有了这个我没有testing过的想法：
制作隐藏的工作表或工作簿，然后将单元格复制到单元格中。 也复制列宽。 在工作表上closures收缩。 检查列宽。 现在在该列上做一个自动调整。 现在再次检查列的宽度。 自动调整是否加宽了列（再次closuresShrinkToFit）？ 如果是这样，那么我认为这是一个安全的赌注，它在原来的收缩。
这是一个例子来检查ShrinkToFit，考虑到Sheet1中的Cell A1在这个例子中：
Sub test() Dim rngRange As Range 'Assign Range Set rngRange = Sheet1.Range("A1") 'Set shrinkto fit as true rngRange.ShrinkToFit = True 'Check whether cell is Shrink to fit or not If rngRange.ShrinkToFit Then 'Set Shrinktofit as false or do something rngRange.ShrinkToFit = False End If End Sub