【樓主】波爾多死機2012-11-16 12:30
» 請問在excle的vba中，如何通過一個按鈕控件調(diào)用系統(tǒng)的字體選項窗口來調(diào)整文本框內(nèi)容的字號、字體可以實現(xiàn)自動調(diào)整大小嗎？就是根據(jù)字數(shù)的多少來調(diào)整字號以適應(yīng)文本框？字數(shù)多字號就調(diào)小一點……
作者：波爾多死機2012-11-16 12:43
請問在excle的vba中，如何調(diào)整文本框中的用戶輸入字體沒有人嗎
作者：nry525312012-11-16 12:46
可以你可以自己錄制一個宏的 簡單的說Private Sub CommandButton1_Click() Selection.ShrinkToFit = TrueEnd Sub這樣是直接將你選中的格子的字體大小調(diào)整到可以完整的顯示在一個單元格里，這是你通過調(diào)整單元格屬性也可以做到的之后，1、如果你有更具體的要求，比如多少字以上10號字，以下就6號字，那就要寫條件判斷，然后用Selection.font.size=10之類的2、如果是固定的單元格，比如A1，那么直接寫Private Sub CommandButton1_Click() range("A1").ShrinkToFit = TrueEnd Sub就可以了。不過上面的寫法選中很多單元格都可以一起改 我覺得比較方便改動
作者：liuzr1362012-11-16 12:48
不了解。。。
作者：seubeckham2012-11-16 12:49
你先錄個自己改字體的宏然后應(yīng)用到自己想要的單元格里面就OK了
作者：xlandhenry2012-11-16 12:53
dlg = Application.Dialogs(xlDialogFormatFont).Show
作者：xlandhenry2012-11-16 13:01
調(diào)整大小的話，如果是單元格就用ShrinkToFit，如果是文本框就得自己寫代碼了
作者：波爾多死機2012-11-16 13:08
請問在excle的vba中，如何調(diào)整文本框中的用戶輸入字體風怒 編輯了改動
作者：波爾多死機2012-11-16 13:08
請問在excle的vba中，如何調(diào)整文本框中的用戶輸入字體可以你可以自己錄制一個宏的 簡單的說Private Sub CommandButton1_Click() Selection.ShrinkToFit = TrueEnd Sub這樣是直接將你選中的格子的字體大小調(diào)整到可以完整的顯示在一個單元格里，這是你通過調(diào)整單元格屬性也可以做到的之后，1、如果你有更具體的要求，比如多少字以上10號字，以下就6號字，那就要寫條件判斷，然后用Selection.font.size=10之類的2、如果是固定的單元格，比如A1，那么直接寫Private Sub CommandButton1_Click() range(可是我是文本框咋搞阿改動
作者：nry525312012-11-16 14:16
不好意思沒有看到關(guān)鍵字文本框orzzzzzzzz如果是一個固定的文本框的話很容易就是TextBox1.Font.Size = 24根據(jù)字數(shù)有不同要求的話就寫條件語句5樓也有一個按了就能出現(xiàn)調(diào)整文本框字體的語句0_0
