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