返回介绍

Yellow 属性

发布于 2019-09-29 10:21:57 字数 1025 浏览 964 评论 0 收藏 0

该属性设置或返回一个 Long 类型的数值,表示 CMYK 颜色中的黄色部分。只读。

expression.Yellow

expression 必需。该表达式返回“应用于”列表中的一个对象。

示例

本示例新建一个图形,从活动文档的现有图形中获取四种 CMYK 值,然后将新图形的 CMYK 填充颜色设为相同的 CMYK 值。

Sub ReturnAndSetCMYK()
    Dim lngCyan As Long
    Dim lngMagenta As Long
    Dim lngYellow As Long
    Dim lngBlack As Long
    Dim shpHeart As Shape
    Dim shpStar As Shape

    Set shpHeart = ActiveDocument.Shapes(1)
    Set shpStar = ActiveDocument.Shapes.AddShape _
        (Type:=msoShape5pointStar, Left:=200, _
        Top:=100, Width:=150, Height:=150)

    'Get current shapes CMYK colors
    With shpHeart.Fill.ForeColor
        lngCyan = .Cyan
        lngMagenta = .Magenta
        lngYellow = .Yellow
        lngBlack = .Black
    End With

    'Set new shape to current shapes CMYK colors
    shpStar.Fill.ForeColor.SetCMYK _
        Cyan:=lngCyan, Magenta:=lngMagenta, _
        Yellow:=lngYellow, Black:=lngBlack
End Sub

如果你对这篇内容有疑问,欢迎到本站社区发帖提问 参与讨论,获取更多帮助,或者扫码二维码加入 Web 技术交流群。

扫码二维码加入Web技术交流群

发布评论

需要 登录 才能够评论, 你可以免费 注册 一个本站的账号。
列表为空,暂无数据
    我们使用 Cookies 和其他技术来定制您的体验包括您的登录状态等。通过阅读我们的 隐私政策 了解更多相关信息。 单击 接受 或继续使用网站,即表示您同意使用 Cookies 和您的相关数据。
    原文