Excel单元格缩小以适合属性：检测字体大小何时缩小？答案

【问题标题】：Excel cell's ShrinkToFit property: detect when font size is shrunk?Excel单元格缩小以适合属性：检测字体大小何时缩小？
【发布时间】：2015-03-23 16:35:37
【问题描述】：

如果 Excel 工作表单元格的 ShrinkToFit 属性设置为 True，则 Excel 会在必要时缩小字体大小以适应所有文本。

是否可以在 VBA 中检测此类单元格的字体大小是否已缩小？用我的眼睛很容易看到它，但我需要用 VBA 来检测它。

请注意，我不是在询问如何检查 ShrinkToFit 属性是否已设置为 True。没有比这更容易的了。我在问如何检查单元格的字体大小是否真的被缩小了，只有在需要适合所有文本时才会发生这种情况。

【问题讨论】：

Greg，我也在找同样的东西，你找到答案了吗？
嗨@DaveU，我没有找到解决方案，但我有一个想法；请看我刚刚在下面发布的答案。
这是一个有趣的方法，我会尝试一下。

标签： vba excel excel-2007

【解决方案1】：

我没有找到解决办法，决定换个方向。然而，从那以后我就有了这个想法，我没有测试过：

制作一个隐藏的工作表或工作簿，并将单元格复制到那里的一个单元格中。也复制列宽。在该工作表上关闭收缩以适合。检查列宽。现在对该列进行自动调整。现在再次检查列宽。自动调整是否加宽了列（同样，关闭了 ShrinkToFit）？如果是这样，那么我认为它在原版中缩小是一个安全的赌注。

【讨论】：

【解决方案2】：

这是一个检查 ShrinkToFit 的示例，在此示例中考虑 Sheet1 中的单元格 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

【讨论】：

Jur Pertin，我不是这个意思。任何知道如何设置属性的人也知道如何检查它。我不是要检查 ShrinkToFit 属性是设置为 True 还是 False。我说的是检查单元格的字体大小是否真的被缩小了。仅仅因为 ShrinkToFit 属性被设置为 True 并不意味着字体大小实际上被缩小了；只有在需要缩小字体大小以适应所有内容时才会发生这种情况。