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 08-06-2009, 08:03
bprice's Avatar
bprice bprice is offline
Member
 
Join Date: Oct 2006
Location: Edmundston, New Brunswick, Canada
Posts: 89
Default simple symbol naming...

Hello Everyone!

Been awhile since I stopped by!

I haven't written anything in a little way, and this morning I wanted to make a quick little script that I am struggling with the simplest things.

If I have a symbol and I revert it back to objects... I need to name it.

If I name it first, and revert to objects it destroys the name...

I'm rusty in my limited knowledge, and a little sleepy this morning... would anyone be able to help?

Thanks in advance!

B
Reply With Quote
  #2  
Old 09-06-2009, 00:49
iceage3
Guest
 
Posts: n/a
Default

i hope the code below would help

Code:
Sub SymbolToObject()
    Dim SymbolName As String
    Dim sr As New ShapeRange
    
    SymbolName = ActiveSelection.Shapes(1).Name
    sr.AddRange ActiveSelection.Shapes(1).Symbol.RevertToShapes
    sr(1).Name = SymbolName
End Sub
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
Naming Shapes shelbym CorelDRAW/Corel DESIGNER VBA 9 03-07-2008 20:12
Un-naming Objects knowbodynow CorelDRAW/Corel DESIGNER VBA 4 17-10-2007 17:46
This should be simple resa Corel Photo-Paint VBA 1 15-10-2007 16:46
auto naming exported file to specific path vindaa Macros/Add-ons 0 18-08-2006 16:50
Where is the name box for naming a script jukos General 1 18-10-2005 12:11


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


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