CorelDRAW VBA - 实现段落文本的HTML兼容 Text.MakeHTMLCompatible

美术字文本不能转换为HTML文本,一般会被视为位图。不过可以将其转换为段落文本,然后通过代码的方式使其与web兼容。

参考代码

Sub test()
	Dim s As Shape
	' 遍历当前页面中的每个文本对象
	For Each s In ActivePage.FindShapes(Type:=cdrTextShape)
		' 如果是段落文本
		If s.Text.Type = cdrParagraphText Then
			' 如果不是HTML兼容的,则将其改为HTML兼容
			If Not s.Text.IsHTMLCompatible Then s.Text.MakeHTMLCompatible True
		End If
	Next s
End Sub

 

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

抵扣说明:

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

余额充值