Dim s As Shape
Set s = ActiveLayer.CreateRectangle(0, 0, ActivePage.SizeWidth, ActivePage.SizeHeight)
s.Fill.ApplyFountainFill CreateRGBColor(255, 0, 0), CreateRGBColor(0, 0, 0) 
CorelDRAW vba cdr插件 创建矩形 渐变色填充
Dim s As Shape
Set s = ActiveLayer.CreateRectangle(0, 0, ActivePage.SizeWidth, ActivePage.SizeHeight)
s.Fill.ApplyFountainFill CreateRGBColor(255, 0, 0), CreateRGBColor(0, 0, 0)
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
扫一扫
