我使用了VSPrinter控件, 可以获取最接近的字体大小。
Sub DoTextBoxes()
Dim s$, X!, Y!, wid!, fs!
Dim i As Long
VP。StartDoc
fs = VP。
FontSize
VP。IndentLeft = 50
VP。BrushColor = RGB(125 + Rnd * 125, 125 + Rnd * 125, 125 + Rnd * 125)
VP。NewPage
VP。
StartDoc
Dim W As Long
Dim H As Long
Dim N As Long
s = "9)做一个小方案，要考虑一下如何做硬件服务的内容；并且要学习一些维护方面的内容；软件、硬件的内容。
"
s = s + vbCrLf + "10)做一个小方案，要考虑一下如何做硬件服务的内容；并且要学习一些维护方面的内容；软件、硬件的内容"
s = s + vbCrLf + "11)做一个小方案，要考虑一下如何做硬件服务的内容；并且要学习一些维护方面的内容；软件、硬件的内容"
s = s + vbCrLf + "12)做一个小方案，要考虑一下如何做硬件服务的内容；并且要学习一些维护方面的内容；软件、硬件的内容"
s = s + vbCrLf + "13)做一个小方案，要考虑一下如何做硬件服务的内容；并且要学习一些维护方面的内容；软件、硬件的内容"
s = s + vbCrLf + "14)做一个小方案，要考虑一下如何做硬件服务的内容；并且要学习一些维护方面的内容；软件、硬件的内容"
s = s + vbCrLf + "15)做一个小方案，要考虑一下如何做硬件服务的内容；并且要学习一些维护方面的内容；软件、硬件的内容"
For i = 2 To 50
VP。
FontSize = i
'测试出宽度,高度
W = Int(VP。TextWidth(s) / 8000) + 1
H = Int(3000 / VP。TextHeight("天"))
Debug。
Print W & ";" & H
If W > H Then Exit For
Next
VP。FontSize = VP。FontSize + H - W
VP。TextBox s, 200, 200, 8000, 3000, True, False, True
VP。
EndDoc
End Sub。
我的共享文件中，有很多的VB源代码，有你需要的代码的！
建议你按如下代码调试,主要是用文本的字符串长度来调整: Option Explicit Dim fnt As Integer Dim l As Integer Dim str As String Private Sub Command1_Click() str = "VB中,如何自动设置文字的大小,以便在指定的区域内显示。
指定一个区域, 放上一段文字, 要求将文字内容全部显示到指定的区域中,字体大小还得合适,如何判断字体大小呢,要求程序自动判断。'" str = str + "这个区域就是一个坐标范围; 上下宽高已经提供了。我只想得到字体的大小。" str = str + str l = Len(str) fnt = Int((1100 + l * 2) / l) Text1。
FontSize = fnt Text1 = str End Sub 代码fnt = Int((1100 + l * 2) / l) 1100及2需根据实际情况做修整。
答：excel中是没有这个功能。建议用round函数round（公式，小数位数）。详情>>
答：我建议你去--天下网吧联盟 这里面都是网吧业主和网管交流的论坛，你可以自己注册一个用户进去看看，你可以和他们交流也可以寻求他们的帮助，我想没有你解决不了的问题，...详情>>
答：格式化文本区域的段落标记，用于规定文本和层的属性和位置等。比如： 新浪网 用来规定 新浪网 这三个字居中显示。 文本中心(CENTER)、左(LEFT)或右(R...详情>>
