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