wps如何锁定字体

1.VB中,如何自动设置文字的大小,以便在指定的区域内显示.

我使用了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。