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 14-05-2010, 14:56
runflacruiser's Avatar
runflacruiser runflacruiser is offline
Senior Member
 
Join Date: Jun 2009
Location: Pigeon Forge, TN USA
Posts: 811
Default Why can't I get an 6?

Any ideas? This should give an 6 when clicking on a text shape...right?

Code:
Private Sub cmdBeginChooseExcludes_Click()

Dim s As Shape
Dim x As Double, y As Double, Shift As Long, b As Boolean

b = False
 While Not b
  b = ActiveDocument.GetUserClick(x, y, Shift, 10, False, cdrCursorEyeDrop)
    If Not b Then
        Set s = ActivePage.SelectShapesAtPoint(x, y, False)
        s.CreateSelection
        MsgBox ActiveSelection.Type
        If s.Shapes.Count > 0 Then MsgBox "more than 1"
    End If
 Wend

End Sub
-John
Reply With Quote
  #2  
Old 14-05-2010, 18:35
runflacruiser's Avatar
runflacruiser runflacruiser is offline
Senior Member
 
Join Date: Jun 2009
Location: Pigeon Forge, TN USA
Posts: 811
Default

Hi.
Fixed it by making sure selectionShape(which is returned by selectShapesAtPoint was 1 item and if so then converting to activeShape which can return a type property.

Learning is great!
-John
Reply With Quote
Reply

Tags
cdrtextshape bug, select shape type, text


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


All times are GMT -5. The time now is 20:26.


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