本文讲述在CorelDraw中开发一款填充功能的GMS插件，可以填充标准颜色、渐变颜色和调色板颜色，为了省略一些重复的步骤，直接看到本文的读者，建议阅读本系列前三节，掌握基础，第一节、第二节和第三节，最终的效果图如下所示：

1.新建宏项目

  新建一个名称形状填充颜色的宏项目。如下图所示：

2.界面设计

  在宏项目中插入窗口和按钮，窗口对象修改为Main，标题修改为形状填充颜色，添加四个按钮，修改标题为，应用标准填充、应用渐变填充、调用调色板填色和去除所有填充，并将按钮对象名称改为与标题名称一致，如下图所示：

3.按钮事件

  双击按钮，在对应的按钮事件中编写相应的功能。源代码如下所示：

Private Sub 去除所有填充_Click()    ' 判断是否选择了形状    If ActiveShape Is Nothing Then MsgBox "请选择要清除填充的形状": Exit Sub    ' 清除填充    ActiveShape.Fill.ApplyNoFillEnd SubPrivate Sub 调用调色板填色_Click()    ' 判断是否选择了形状    If ActiveShape Is Nothing Then MsgBox "请选择要填充的形状": Exit Sub    ' 创建一个颜色对象    Dim clr As New color    ' 调用调色板    clr.UserAssign    ' 取得调色板的颜色，并填充当前形状    ActiveShape.Fill.ApplyUniformFill clrEnd SubPrivate Sub 应用标准填充_Click()    ' 判断是否选择了形状    If ActiveShape Is Nothing Then MsgBox "请选择要填充的形状": Exit Sub    ' 创建一个颜色对象    Dim clr As New color    clr.CMYKAssign 0, 100, 100, 0    ActiveShape.Fill.ApplyUniformFill clrEnd SubPrivate Sub 应用渐变填充_Click()    ' 判断是否选择了形状    If ActiveShape Is Nothing Then MsgBox "请选择要填充的形状": Exit Sub    ' 创建一个起始颜色对象和一个结束颜色对象，分别命名为 startColor、endColor    Dim startColor As New color, endColor As New color    ' 对颜色分配CMYK属性    startColor.CMYKAssign 0, 100, 100, 0 ' 红色    endColor.CMYKAssign 0, 0, 100, 0 ' 黄色    ActiveShape.Fill.ApplyFountainFill startColor, endColorEnd Sub

  在宏项目中，需要添加模块才能进行宏调用，添加模块命名为形状填充颜色模块，并添加过程形状填充颜色，如下图所示：

源代码如下所示：

Public Sub 形状填充颜色()    Main.Show FalseEnd Sub

项目地址：CorelDraw插件、GMS插件、CDR插件、形状填充颜色功能插件、可查看源码-制造文档类资源-CSDN文库

>文章引用至 作者联系方式