OberonPlace.com Forums  

Go Back   OberonPlace.com Forums > Developer Forums > VBA > CorelDRAW/Corel DESIGNER VBA

Reply
 
Thread Tools Search this Thread Display Modes
  #1  
Old 15-01-2008, 03:13
Gadget
Guest
 
Posts: n/a
Default Creating a shape on a user form?

Been trying to work out how to create a filled shape on a user form ( \___/ sort of shape) and can't work out how: everything I find on the web seems to only be for VB rather than VBA. {or uses commands that I need to add in somehow?}

Can anyone tell me how?

(I found this, but it's from an excel macro...
Private m_objDrawing As AJPiUFDraw

Private Sub CommandButton1_Click()

Dim shpTemp As Shape
Dim sngXPointsFF(3) As Single
Dim sngYPointsFF(3) As Single

sngXPointsFF(0) = 80
sngXPointsFF(1) = 180
sngXPointsFF(2) = 160
sngXPointsFF(3) = 100
sngYPointsFF(0) = 200
sngYPointsFF(1) = 200
sngYPointsFF(2) = 220
sngYPointsFF(3) = 220
Set shpTemp = m_objDrawing.FreeForm(sngXPointsFF, sngYPointsFF, True)
If Not shpTemp Is Nothing Then
With shpTemp.Fill
.ForeColor.SchemeColor = 10
.BackColor.SchemeColor = 46
.TwoColorGradient msoGradientVertical, 2
End With
End If

m_objDrawing.Paint

End Sub

Last edited by Gadget; 15-01-2008 at 03:19.
Reply With Quote
  #2  
Old 15-01-2008, 10:23
wOxxOm's Avatar
wOxxOm wOxxOm is offline
Senior Member
 
Join Date: Mar 2005
Posts: 836
Default

Corel's User Interface Extension Library 2.0 and this post from this thread
Reply With Quote
  #3  
Old 16-01-2008, 03:18
Gadget
Guest
 
Posts: n/a
Default

Quote:
Originally Posted by wOxxOm View Post
Perfect

thanks
~G~
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
Copy Selected Objects to other pages maintaining layers knowbodynow Code Critique 6 13-12-2015 18:46
Any idea what's wrong with this shape? jemmyell CorelDRAW/Corel DESIGNER VBA 4 08-05-2006 18:15
[Newbie] User Form Revisited Booker CorelDRAW/Corel DESIGNER VBA 1 16-12-2005 20:08
activeselection cloning s_federici CorelDRAW/Corel DESIGNER VBA 2 05-11-2004 09:59
CD11: Adding input from user form to document ddonnahoe Code Critique 2 09-04-2004 12:43


All times are GMT -5. The time now is 12:59.


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