» 请问在excle的vba中，如何通过一个按钮控件调用系统的字体选项窗口来调整文本框内容的字号、字体可以实现自动调整大小吗？就是根据字数的多少来调整字号以适应文本框？字数多字号就调小一点……请问在excle的vba中，如何调整文本框中的用户输入字体没有人吗可以你可以自己录制一个宏的 简单的说Private Sub CommandButton1_Click() Selection.ShrinkToFit = TrueEnd Sub这样是直接将你选中的格子的字体大小调整到可以完整的显示在一个单元格里，这是你通过调整单元格属性也可以做到的之后，1、如果你有更具体的要求，比如多少字以上10号字，以下就6号字，那就要写条件判断，然后用Selection.font.size=10之类的2、如果是固定的单元格，比如A1，那么直接写Private Sub CommandButton1_Click() range("A1").ShrinkToFit = TrueEnd Sub就可以了。不过上面的写法选中很多单元格都可以一起改 我觉得比较方便改动不了解。。。你先录个自己改字体的宏然后应用到自己想要的单元格里面就OK了dlg = Application.Dialogs(xlDialogFormatFont).Show调整大小的话，如果是单元格就用ShrinkToFit，如果是文本框就得自己写代码了请问在excle的vba中，如何调整文本框中的用户输入字体风怒 编辑了改动请问在excle的vba中，如何调整文本框中的用户输入字体可以你可以自己录制一个宏的 简单的说Private Sub CommandButton1_Click() Selection.ShrinkToFit = TrueEnd Sub这样是直接将你选中的格子的字体大小调整到可以完整的显示在一个单元格里，这是你通过调整单元格属性也可以做到的之后，1、如果你有更具体的要求，比如多少字以上10号字，以下就6号字，那就要写条件判断，然后用Selection.font.size=10之类的2、如果是固定的单元格，比如A1，那么直接写Private Sub CommandButton1_Click() range(可是我是文本框咋搞阿改动不好意思没有看到关键字文本框orzzzzzzzz如果是一个固定的文本框的话很容易就是TextBox1.Font.Size = 24根据字数有不同要求的话就写条件语句5楼也有一个按了就能出现调整文本框字体的语句0_0