OberonPlace.com Forums  

Go Back   OberonPlace.com Forums > Corel User Forums > CorelDRAW > Macros/Add-ons

Reply
 
Thread Tools Search this Thread Display Modes
  #1  
Old 23-07-2014, 15:14
ddonnahoe's Avatar
ddonnahoe ddonnahoe is offline
Senior Member
 
Join Date: Jan 2004
Location: Louisville, KY
Posts: 552
Send a message via ICQ to ddonnahoe Send a message via AIM to ddonnahoe Send a message via MSN to ddonnahoe Send a message via Yahoo to ddonnahoe
Default Select, group, resize in Docker

I have the below code for a docker that I created with a button called 'RGBProof'. After the 'for...next' statement, I want to do the request in the comments. Can anyone help?

Code:
Private Sub RGBProof_Click(sender As Object, e As RoutedEventArgs) Handles RGBProof.Click

        'Description:
        '   Convert selected items to RGB for customer proof
        If appDraw.ActiveSelection.Shapes.Count < 1 Then
            MsgBox("There is no active selection.", MsgBoxStyle.OkOnly)
            Exit Sub
        End If

        Dim os As c.ShapeRange, s As c.Shape
        os = appDraw.ActiveSelectionRange

        appDraw.ActiveDocument.BeginCommandGroup("RGB for Proof")
        For Each s In os
            s.Outline.Color.ConvertToRGB()
            s.ConvertToBitmapEx(c.cdrImageType.cdrRGBColorImage, False, True, 300, c.cdrAntiAliasingType.cdrNormalAntiAliasing, False, False, 95).Bitmap.ApplyBitmapEffect("Gaussian Blur", "GaussianBlurEffect GaussianBlurRadius=50, GaussianBlurResampled=0")
        Next

        '*****
        ' At this point I want to select all shapes on the page, group them, and scale to 30% of original size.
        '*****

        appDraw.ActiveDocument.EndCommandGroup()
    End Sub
__________________
Sean
Waiting for a ride in the T.A.R.D.I.S.
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 help resize bluejonboy General 3 30-12-2008 07:12
Select same group cmjmmrp CorelDRAW/Corel DESIGNER VBA 3 05-12-2008 05:10
Find Group ungroup it then process and again group derasje Macros/Add-ons 2 19-11-2008 05:04
Help resize the border masterchiefph CorelDRAW/Corel DESIGNER VBA 1 09-07-2007 22:26
Resize question jimd80 General 1 25-05-2007 15:04


All times are GMT -5. The time now is 05:01.


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