[VBA]让添加的文体固定在一个大小范围里？

wholin · 发表于 2006-8-17 14:28:00

Set txtobj = ThisDrawing.ModelSpace.AddMText(p, 15, TextBox1.Text & j + 1 & "/" & i)

怎样强制添加的文字宽度和高度，就是说s1/1时与s100/200要一样的宽度和高度，换句话就是s100/200自动缩小字体来适配在一个宽度和高度内

请问这样在vba中要怎样实现呢？？

wyj7485 · 发表于 2006-8-17 14:55:00

wholin · 发表于 2006-8-17 17:07:00

我的意思是让文本限制在一个范围之内，就是说如果字母增多了，那它就会变小，就是让文本自动适配一个文本框

wyj7485 · 发表于 2006-8-17 18:25:00

就这个意思啊,你慢慢研究吧

账号		自动登录	找回密码
密码			注册