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

MyAccount

Helpful VBA Code

Nothing on CorelDraw 2026 macros yet. I will keep you posted.
NEW for CorelDraw 2025: GDG Color Click SUPREME
GDG Macros Suite 2023 and GDG Macros Suite 2024 and GDG Macros Suite 2025
(older versions of the products available below, as well)

Join me on Facebook to stay up to date with news, updates. Subscribe to my YouTube Channel for tutorial videos and tips. Need a custom macro? Contact me.

Not all macros are guaranteed to be continued due to compatibility reasons or other. Read new-version policy here.
I appreciate everyone! Upgrading macros and maintaining this site is quite a task for me. Want to contribute? Please DONATE

^ Hide these messages to save screen space ^

<<Back to helpful code list

Change outline color of all shapes on page to match fill color

Decription: This code will set the outline color of every shape on the current page to the same color as the shapes fill. It also processes shapes in groups.

Date: 2010-05-04 Author: John

Code:

Sub fillAndOutlineColorSame()
'''''by John GDG '''''
'''''Apr,29,2010''''''
Dim s As Shape, sr As ShapeRange
Dim col As New Color

Set sr = ActivePage.FindShapes()
    For Each s In sr
        With s
            If .Fill.Type = cdrUniformFill Then
                col.CopyAssign .Fill.UniformColor
                .Outline.Width = 0.003
                .Outline.Color.CopyAssign col
            End If
        End With
    Next s

End Sub

Add Comment, Question, Discussion...