【CorelDraw VBA 009例】调整透明度 

Sub MakeLayerTransparent()
'##透明度
    Dim s As Shape
    Set s = ActiveLayer.Shapes.All.Group
    s.Transparency.ApplyUniformTransparency 50
End Sub

　　

posted @ 2021-11-24 09:21  岳帆(SoSo)  阅读(296)  评论(0)    收藏  举报