GDG Code Chunks, Discussion, VBA Snippets for CorelDRAW, Simple Macro Helpers!

New GDG Macros Packages are here! (10-11-2024)
Enter code PACKAGEDEAL24 for 20% off any of
the new GDG Macros Packages 2023 and GDG Macro Packages 2024,
as well as 20% off any other macro or item(s). Code valid for a short time only.

Best deal! ALL MACROS IN ONE SUITE:
GDG Macros Suite 2023 and GDG Macros Suite 2024
Please note: Macros 2023 and above will no longer be sold separately.

Quick group and color your selection

Decription: This code will quickly group and color your selection. Select a shape or shapes and run. I use a keyboard shortcut. Handy for quickly grabbing all necessary items that may be sent to a machine.

Date: 2010-11-10 Author: John

Sub groupAndColor()
    Dim s As Shape
    Set s = ActiveSelection
    
    With s
    s.Fill.UniformColor.CMYKAssign 60, 0, 20, 20
    If s.Shapes.count > 1 Then
        .Group
    End If
    End With
    
End Sub