Dim t As Text
Dim s As Shape
Dim d As Document
Set d = CreateDocument
Set s = d.ActiveLayer.CreateParagraphText(2, 2, 8, 8, _
"This is a test.")
Set t = s.Text
t.Story.Characters.First.Fill.UniformColor.RGBAssign 155, 0, 0
CorelDRAW vba cdr插件 红色填充第一个字
最新推荐文章于 2025-04-29 06:54:19 发布