I would like to create a macro for different brush sizes for painting. I would also like to have these in the brush selector drop down if possible otherwise I can add to a toolbar.
brushtool, brushsettings require brushid. However there's no "get" function to return the current active brush so I can learn about the brushID.
It ought to be simple, something like:
Sub HardBrush25()Dim cs As ObjectSet cs = PHOTOPAINT.CorelScriptcs.BrushTool 0, 0, 0, 20, 0, 25, 0, 0, 100, 99MsgBox "reset to 25"Set cs = NothingEnd Sub
BTW why do I need to create "cs" as an object that disables intellisense?
Any help please? Anyone from Corel Photo Paint?
When you create the "cs" object it then refers to the Corel side of things which is not built into the VBA IntelliSense. While Photo-Paint has VBA it is pretty much underdocumented and relies heavily upon CorelScript. You have to edit those files using a text editor since they no longer provide a built-in editor. I don't use VBA in Photo-Paint, but I do record CorelScript files and then use the settings in CorelDraw. Maybe by recording the brush changes in CorelScript you might be able to decern the Brush IDs. Worth a look.