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 21-11-2005, 08:10
met
Guest
 
Posts: n/a
Default size of my gms

hello,

is it posible to clean an gms file?

The current size is 16.869 KB.
I think, if I make little changes (2-5 lines) the new filesize is (filesize+filezize).
Reply With Quote
  #2  
Old 21-11-2005, 11:22
Alex's Avatar
Alex Alex is offline
Administrator
 
Join Date: Nov 2002
Posts: 1,940
Blog Entries: 4
Default

1. Close Draw
2. Start it again
3. Go to VBA
4. Save the GMS again
Reply With Quote
  #3  
Old 21-11-2005, 13:44
shelbym's Avatar
shelbym shelbym is offline
Senior Member
 
Join Date: Nov 2002
Location: Cheyenne, WY
Posts: 1,769
Blog Entries: 10
Send a message via ICQ to shelbym Send a message via AIM to shelbym Send a message via MSN to shelbym Send a message via Yahoo to shelbym
Default File Size

Also I have exported all modules and forms then imported them back to a new GMS which seems to helps the file size.

Good Luck,

Shelby
Reply With Quote
  #4  
Old 24-11-2005, 02:45
met
Guest
 
Posts: n/a
Default

Quote:
Originally Posted by Alex
1. Close Draw
2. Start it again
3. Go to VBA
4. Save the GMS again
hello Alex,

it doesn't work. My file is now 66.675 KB.

Quote:
Originally Posted by shelbym
Also I have exported all modules and forms then imported them back to a new GMS which seems to helps the file size.

Good Luck,

Shelby
hello shelbym,

is there a tool to export and import all forms and modules?


Thanks for the replays
Reply With Quote
  #5  
Old 24-11-2005, 06:53
Lev
Guest
 
Posts: n/a
Default

Quote:
Originally Posted by met
is there a tool to export and import all forms and modules?
in VB Editor Tools>References... add reference to Microsoft Visual Basic for Applications Extencibility...
Create a folder written in Dir_for_code variable
Start code. It should export all the forms and modules exept of protected ones
Code:
Sub code_save()
Dim vbc As VBComponent
Dim vbp As VBProject
Dir_for_code="c:\temp\code\"
On Error Resume Next
For Each vbp In VBE.VBProjects
MkDir Dir_for_code + vbp.Name
For Each vbc In vbp.VBComponents
Select Case vbc.Type
Case vbext_ct_ClassModule
ext = ".cls"
Case vbext_ct_StdModule
ext = ".bas"
Case vbext_ct_MSForm
ext = ".frm"
Case Else
ext = ""
End Select
fn = Dir_for_code + vbp.Name + "\" + vbc.Name + ext
vbc.Export fn
Next
Next
End Sub
Reply With Quote
  #6  
Old 24-11-2005, 08:58
Alex's Avatar
Alex Alex is offline
Administrator
 
Join Date: Nov 2002
Posts: 1,940
Blog Entries: 4
Default

Do you mean 66KB or 66MB?

It looks like you might have some large images in the form resources somewhere (like background of a form or something).
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
How sets size form same as size images ? woycek21 Corel Photo-Paint VBA 0 09-07-2005 12:30
How to get the size of an object including the outline. CORNMEN CorelDRAW/Corel DESIGNER VBA 2 03-05-2005 16:03
how to specify the font size in inches bbolte CorelDRAW/Corel DESIGNER VBA 14 26-01-2005 22:19
Where does COrelPhotopaint 12 keeps its Globalmacros file? cyrilgupta Corel Photo-Paint VBA 1 08-11-2004 15:02
What is a GMS file? sergent CorelDRAW/Corel DESIGNER VBA 1 12-06-2003 17:57


All times are GMT -5. The time now is 11:22.


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