CorelDRAW VBA - 解决段落文本溢出(使文本适合框架)

在排列段落文本时,经常会遇到由于段落文本内容较多,导致超出的内容没有在段落文本框内部完全显示,也就是常说的文本溢出的情况。本文介绍将文本适合到它的框架,即匹配到文本的框架大小,可以解决文本溢出的问题。

参考代码

Sub test()
	Dim doc As Document
	Dim s As Shape
	Dim t As Text
	' 创建文档
	Set doc = CreateDocument
	' 创建段落文本
	Set s = doc.ActiveLayer.CreateParagraphText(2, 4, 6, 9, "This is a test for the frames.")
	' 得到段落文本对应的 Text 对象
	Set t = s.Text
	' 将文本适应到框架
	t.FitTextToFrame
End Sub

 

相关推荐
©️2020 CSDN 皮肤主题: 护眼 设计师:闪电赇 返回首页
实付 9.90元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值