OberonPlace.com Forums  

Go Back   OberonPlace.com Forums > Developer Forums > VBA > Corel Photo-Paint VBA

Reply
 
Thread Tools Search this Thread Display Modes
  #1  
Old 09-02-2010, 20:48
Jeff Harrison
Guest
 
Posts: n/a
Default macro to swap paint & fill colors

for photo paint... wanna do this with a hotkey.

seems no built-in command.. 8-P
Attached Images
 
Reply With Quote
  #2  
Old 09-02-2010, 23:51
shelbym's Avatar
shelbym shelbym is offline
Senior Member
 
Join Date: Nov 2002
Location: Cheyenne, WY
Posts: 1,770
Blog Entries: 10
Send a message via ICQ to shelbym Send a message via AIM to shelbym Send a message via MSN to shelbym Send a message via Yahoo to shelbym
Default Swap Foreground Color and Background Color

Give this a go:
Code:
Sub SwapForegroundBackground()
    Dim c As New Color
    
    c.CopyAssign Application.PaintColor
    Application.PaintColor.CopyAssign Application.PaperColor
    Application.PaperColor.CopyAssign c
End Sub
Best of Luck,

-Shelby
Reply With Quote
Reply


Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)
 
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off

Forum Jump

Similar Threads
Thread Thread Starter Forum Replies Last Post
Need Macro to Change Fill Color Then Export to PNG bob CorelDRAW/Corel DESIGNER VBA 1 20-01-2010 18:57
Limit Colors Macro fungel Feature requests/wishlist 2 28-03-2009 05:31
How to select the black lines, fill in random colors? sy168 CorelDRAW/Corel DESIGNER VBA 2 16-08-2008 03:23
Create fountain fill helper macro wOxxOm CorelDRAW/Corel DESIGNER VBA 21 07-09-2007 14:40
How can I change middle colors in a custom Fountain Fill Steve CorelDRAW/Corel DESIGNER VBA 3 13-12-2002 19:11


All times are GMT -5. The time now is 00:16.


Powered by vBulletin® Version 3.8.1
Copyright ©2000 - 2020, Jelsoft Enterprises Ltd.
Copyright © 2011, Oberonplace.com