cmharrington

I have a macro file that had 1500 macros in it. I deleted 200 of those macros, emptied the recycle bin, but noticed that the file size did not seem to change (7.5 MB). That got me curious so I imported all 1300 remaining macros into a new file, and the file size went to 4.0 MB. Is there someting I'm missing? Maybe a way to compact the file?

Thanks for the help.

Good Idea, here is a simple one i came up with. It has 25 steps, will display a text line and a progress bar (kind of)

<REPEAT START Start="1" Step="1" Count="25" Save="TRUE" Variable="%StatusCount25%" _ENABLED="FALSE"/>
<VARIABLE SET STRING Option="\x00" Destination="%StatusText%" Value="Step %StatusCount25%" _ENABLED="FALSE"/>
<SWITCH Variable="%StatusCount25%"/>
<CASE Value="1"/>
<TEXT BOX DISPLAY Title="Macro Status" Content="{\\rtf1\\ansi\\ansicpg1252\\deff0\\deflang1033{\\fonttbl{\\f0\\fnil\\fcharset2 Wingdings;}{\\f1\\fnil\\fcharset0 Tahoma;}{\\f2\\fnil Tahoma;}}\r\n{\\colortbl ;\\red0\\green0\\blue255;}\r\n\\viewkind4\\uc1\\pard\\cf1\\f0\\fs16 n\\f1 \r\n\\par %StatusText%\\cf0\\f2 \r\n\\par }\r\n" Left="Left" Top="Bottom" Width="225" Height="68" Monitor="0" OnTop="TRUE" Keep_Focus="FALSE" Mode="\x02" Delay="0"/>
<END CASE/>
<CASE Value="2"/>
<UPDATE TEXTBOX Header="Macro Status" Content="{\\rtf1\\ansi\\ansicpg1252\\deff0\\deflang1033{\\fonttbl{\\f0\\fnil\\fcharset2 Wingdings;}{\\f1\\fnil\\fcharset0 Tahoma;}{\\f2\\fnil Tahoma;}}\r\n{\\colortbl ;\\red0\\green0\\blue255;\\red0\\green0\\blue0;}\r\n\\viewkind4\\uc1\\pard\\cf1\\f0\\fs16 nn\\f1 \r\n\\par \\cf2 %StatusText%\\cf0\\f2 \r\n\\par }\r\n"/>
<END CASE/>
<CASE Value="3"/>
<UPDATE TEXTBOX Header="Macro Status" Content="{\\rtf1\\ansi\\ansicpg1252\\deff0\\deflang1033{\\fonttbl{\\f0\\fnil\\fcharset2 Wingdings;}{\\f1\\fnil\\fcharset0 Tahoma;}{\\f2\\fnil Tahoma;}}\r\n{\\colortbl ;\\red0\\green0\\blue255;\\red0\\green0\\blue0;}\r\n\\viewkind4\\uc1\\pard\\cf1\\f0\\fs16 nnn\\f1 \r\n\\par \\cf2 %StatusText%\\cf0\\f2 \r\n\\par }\r\n"/>
<END CASE/>
<CASE Value="4"/>
<UPDATE TEXTBOX Header="Macro Status" Content="{\\rtf1\\ansi\\ansicpg1252\\deff0\\deflang1033{\\fonttbl{\\f0\\fnil\\fcharset2 Wingdings;}{\\f1\\fnil\\fcharset0 Tahoma;}{\\f2\\fnil Tahoma;}}\r\n{\\colortbl ;\\red0\\green0\\blue255;\\red0\\green0\\blue0;}\r\n\\viewkind4\\uc1\\pard\\cf1\\f0\\fs16 nnnn\\cf2\\f1 \r\n\\par %StatusText%\\cf0\\f2 \r\n\\par }\r\n"/>
<END CASE/>
<CASE Value="5"/>
<UPDATE TEXTBOX Header="Macro Status" Content="{\\rtf1\\ansi\\ansicpg1252\\deff0\\deflang1033{\\fonttbl{\\f0\\fnil\\fcharset2 Wingdings;}{\\f1\\fnil\\fcharset0 Tahoma;}{\\f2\\fnil Tahoma;}}\r\n{\\colortbl ;\\red0\\green0\\blue255;\\red0\\green0\\blue0;}\r\n\\viewkind4\\uc1\\pard\\cf1\\f0\\fs16 nnnnn\\f1 \r\n\\par \\cf2 %StatusText%\\cf0\\f2 \r\n\\par }\r\n"/>
<END CASE/>
<CASE Value="6"/>
<UPDATE TEXTBOX Header="Macro Status" Content="{\\rtf1\\ansi\\ansicpg1252\\deff0\\deflang1033{\\fonttbl{\\f0\\fnil\\fcharset2 Wingdings;}{\\f1\\fnil\\fcharset0 Tahoma;}{\\f2\\fnil Tahoma;}}\r\n{\\colortbl ;\\red0\\green0\\blue255;\\red0\\green0\\blue0;}\r\n\\viewkind4\\uc1\\pard\\cf1\\f0\\fs16 nnnnnn\\f1 \r\n\\par \\cf2 %StatusText%\\cf0\\f2 \r\n\\par }\r\n"/>
<END CASE/>
<CASE Value="7"/>
<UPDATE TEXTBOX Header="Macro Status" Content="{\\rtf1\\ansi\\ansicpg1252\\deff0\\deflang1033{\\fonttbl{\\f0\\fnil\\fcharset2 Wingdings;}{\\f1\\fnil\\fcharset0 Tahoma;}{\\f2\\fnil Tahoma;}}\r\n{\\colortbl ;\\red0\\green0\\blue255;\\red0\\green0\\blue0;}\r\n\\viewkind4\\uc1\\pard\\cf1\\f0\\fs16 nnnnnnn\\f1 \r\n\\par \\cf2 %StatusText%\\cf0\\f2 \r\n\\par }\r\n"/>
<END CASE/>
<CASE Value="8"/>
<UPDATE TEXTBOX Header="Macro Status" Content="{\\rtf1\\ansi\\ansicpg1252\\deff0\\deflang1033{\\fonttbl{\\f0\\fnil\\fcharset2 Wingdings;}{\\f1\\fnil\\fcharset0 Tahoma;}{\\f2\\fnil Tahoma;}}\r\n{\\colortbl ;\\red0\\green0\\blue255;\\red0\\green0\\blue0;}\r\n\\viewkind4\\uc1\\pard\\cf1\\f0\\fs16 nnnnnnnn\\cf2\\f1 \r\n\\par %StatusText%\\cf0\\f2 \r\n\\par }\r\n"/>
<END CASE/>
<CASE Value="9"/>
<UPDATE TEXTBOX Header="Macro Status" Content="{\\rtf1\\ansi\\ansicpg1252\\deff0\\deflang1033{\\fonttbl{\\f0\\fnil\\fcharset2 Wingdings;}{\\f1\\fnil\\fcharset0 Tahoma;}{\\f2\\fnil Tahoma;}}\r\n{\\colortbl ;\\red0\\green0\\blue255;\\red0\\green0\\blue0;}\r\n\\viewkind4\\uc1\\pard\\cf1\\f0\\fs16 nnnnnnnnn\\f1 \r\n\\par \\cf2 %StatusText%\\cf0\\f2 \r\n\\par }\r\n"/>
<END CASE/>
<CASE Value="10"/>
<UPDATE TEXTBOX Header="Macro Status" Content="{\\rtf1\\ansi\\ansicpg1252\\deff0\\deflang1033{\\fonttbl{\\f0\\fnil\\fcharset2 Wingdings;}{\\f1\\fnil\\fcharset0 Tahoma;}{\\f2\\fnil Tahoma;}}\r\n{\\colortbl ;\\red0\\green0\\blue255;\\red0\\green0\\blue0;}\r\n\\viewkind4\\uc1\\pard\\cf1\\f0\\fs16 nnnnnnnnnn\\f1 \r\n\\par \\cf2 %StatusText%\\cf0\\f2 \r\n\\par }\r\n"/>
<END CASE/>
<CASE Value="11"/>
<UPDATE TEXTBOX Header="Macro Status" Content="{\\rtf1\\ansi\\ansicpg1252\\deff0\\deflang1033{\\fonttbl{\\f0\\fnil\\fcharset2 Wingdings;}{\\f1\\fnil\\fcharset0 Tahoma;}{\\f2\\fnil Tahoma;}}\r\n{\\colortbl ;\\red0\\green0\\blue255;\\red0\\green0\\blue0;}\r\n\\viewkind4\\uc1\\pard\\cf1\\f0\\fs16 nnnnnnnnnnn\\f1 \r\n\\par \\cf2 %StatusText%\\cf0\\f2 \r\n\\par }\r\n"/>
<END CASE/>
<CASE Value="12"/>
<UPDATE TEXTBOX Header="Macro Status" Content="{\\rtf1\\ansi\\ansicpg1252\\deff0\\deflang1033{\\fonttbl{\\f0\\fnil\\fcharset2 Wingdings;}{\\f1\\fnil\\fcharset0 Tahoma;}{\\f2\\fnil Tahoma;}}\r\n{\\colortbl ;\\red0\\green0\\blue255;\\red0\\green0\\blue0;}\r\n\\viewkind4\\uc1\\pard\\cf1\\f0\\fs16 nnnnnnnnnnnn\\f1 \r\n\\par \\cf2 %StatusText%\\cf0\\f2 \r\n\\par }\r\n"/>
<END CASE/>
<CASE Value="13"/>
<UPDATE TEXTBOX Header="Macro Status" Content="{\\rtf1\\ansi\\ansicpg1252\\deff0\\deflang1033{\\fonttbl{\\f0\\fnil\\fcharset2 Wingdings;}{\\f1\\fnil\\fcharset0 Tahoma;}{\\f2\\fnil Tahoma;}}\r\n{\\colortbl ;\\red0\\green0\\blue255;\\red0\\green0\\blue0;}\r\n\\viewkind4\\uc1\\pard\\cf1\\f0\\fs16 nnnnnnnnnnnnn\\f1 \r\n\\par \\cf2 %StatusText%\\cf0\\f2 \r\n\\par }\r\n"/>
<END CASE/>
<CASE Value="14"/>
<UPDATE TEXTBOX Header="Macro Status" Content="{\\rtf1\\ansi\\ansicpg1252\\deff0\\deflang1033{\\fonttbl{\\f0\\fnil\\fcharset2 Wingdings;}{\\f1\\fnil\\fcharset0 Tahoma;}{\\f2\\fnil Tahoma;}}\r\n{\\colortbl ;\\red0\\green0\\blue255;\\red0\\green0\\blue0;}\r\n\\viewkind4\\uc1\\pard\\cf1\\f0\\fs16 nnnnnnnnnnnnnn\\f1 \r\n\\par \\cf2 %StatusText%\\cf0\\f2 \r\n\\par }\r\n"/>
<END CASE/>
<CASE Value="15"/>
<UPDATE TEXTBOX Header="Macro Status" Content="{\\rtf1\\ansi\\ansicpg1252\\deff0\\deflang1033{\\fonttbl{\\f0\\fnil\\fcharset2 Wingdings;}{\\f1\\fnil\\fcharset0 Tahoma;}{\\f2\\fnil Tahoma;}}\r\n{\\colortbl ;\\red0\\green0\\blue255;\\red0\\green0\\blue0;}\r\n\\viewkind4\\uc1\\pard\\cf1\\f0\\fs16 nnnnnnnnnnnnnnn\\f1 \r\n\\par \\cf2 %StatusText%\\cf0\\f2 \r\n\\par }\r\n"/>
<END CASE/>
<CASE Value="16"/>
<UPDATE TEXTBOX Header="Macro Status" Content="{\\rtf1\\ansi\\ansicpg1252\\deff0\\deflang1033{\\fonttbl{\\f0\\fnil\\fcharset2 Wingdings;}{\\f1\\fnil\\fcharset0 Tahoma;}{\\f2\\fnil Tahoma;}}\r\n{\\colortbl ;\\red0\\green0\\blue255;\\red0\\green0\\blue0;}\r\n\\viewkind4\\uc1\\pard\\cf1\\f0\\fs16 nnnnnnnnnnnnnnnn\\f1 \r\n\\par \\cf2 %StatusText%\\cf0\\f2 \r\n\\par }\r\n"/>
<END CASE/>
<CASE Value="17"/>
<UPDATE TEXTBOX Header="Macro Status" Content="{\\rtf1\\ansi\\ansicpg1252\\deff0\\deflang1033{\\fonttbl{\\f0\\fnil\\fcharset2 Wingdings;}{\\f1\\fnil\\fcharset0 Tahoma;}{\\f2\\fnil Tahoma;}}\r\n{\\colortbl ;\\red0\\green0\\blue255;\\red0\\green0\\blue0;}\r\n\\viewkind4\\uc1\\pard\\cf1\\f0\\fs16 nnnnnnnnnnnnnnnnn\\f1 \r\n\\par \\cf2 %StatusText%\\cf0\\f2 \r\n\\par }\r\n"/>
<END CASE/>
<CASE Value="18"/>
<UPDATE TEXTBOX Header="Macro Status" Content="{\\rtf1\\ansi\\ansicpg1252\\deff0\\deflang1033{\\fonttbl{\\f0\\fnil\\fcharset2 Wingdings;}{\\f1\\fnil\\fcharset0 Tahoma;}{\\f2\\fnil Tahoma;}}\r\n{\\colortbl ;\\red0\\green0\\blue255;\\red0\\green0\\blue0;}\r\n\\viewkind4\\uc1\\pard\\cf1\\f0\\fs16 nnnnnnnnnnnnnnnnnn\\f1 \r\n\\par \\cf2 %StatusText%\\cf0\\f2 \r\n\\par }\r\n"/>
<END CASE/>
<CASE Value="19"/>
<UPDATE TEXTBOX Header="Macro Status" Content="{\\rtf1\\ansi\\ansicpg1252\\deff0\\deflang1033{\\fonttbl{\\f0\\fnil\\fcharset2 Wingdings;}{\\f1\\fnil\\fcharset0 Tahoma;}{\\f2\\fnil Tahoma;}}\r\n{\\colortbl ;\\red0\\green0\\blue255;\\red0\\green0\\blue0;}\r\n\\viewkind4\\uc1\\pard\\cf1\\f0\\fs16 nnnnnnnnnnnnnnnnnnn\\f1 \r\n\\par \\cf2 %StatusText%\\cf0\\f2 \r\n\\par }\r\n"/>
<END CASE/>
<CASE Value="20"/>
<UPDATE TEXTBOX Header="Macro Status" Content="{\\rtf1\\ansi\\ansicpg1252\\deff0\\deflang1033{\\fonttbl{\\f0\\fnil\\fcharset2 Wingdings;}{\\f1\\fnil\\fcharset0 Tahoma;}{\\f2\\fnil Tahoma;}}\r\n{\\colortbl ;\\red0\\green0\\blue255;\\red0\\green0\\blue0;}\r\n\\viewkind4\\uc1\\pard\\cf1\\f0\\fs16 nnnnnnnnnnnnnnnnnnnn\\f1 \r\n\\par \\cf2 %StatusText%\\cf0\\f2 \r\n\\par }\r\n"/>
<END CASE/>
<CASE Value="21"/>
<UPDATE TEXTBOX Header="Macro Status" Content="{\\rtf1\\ansi\\ansicpg1252\\deff0\\deflang1033{\\fonttbl{\\f0\\fnil\\fcharset2 Wingdings;}{\\f1\\fnil\\fcharset0 Tahoma;}{\\f2\\fnil Tahoma;}}\r\n{\\colortbl ;\\red0\\green0\\blue255;\\red0\\green0\\blue0;}\r\n\\viewkind4\\uc1\\pard\\cf1\\f0\\fs16 nnnnnnnnnnnnnnnnnnnnn\\f1 \r\n\\par \\cf2 %StatusText%\\cf0\\f2 \r\n\\par }\r\n"/>
<END CASE/>
<CASE Value="22"/>
<UPDATE TEXTBOX Header="Macro Status" Content="{\\rtf1\\ansi\\ansicpg1252\\deff0\\deflang1033{\\fonttbl{\\f0\\fnil\\fcharset2 Wingdings;}{\\f1\\fnil\\fcharset0 Tahoma;}{\\f2\\fnil Tahoma;}}\r\n{\\colortbl ;\\red0\\green0\\blue255;\\red0\\green0\\blue0;}\r\n\\viewkind4\\uc1\\pard\\cf1\\f0\\fs16 nnnnnnnnnnnnnnnnnnnnnn\\f1 \r\n\\par \\cf2 %StatusText%\\cf0\\f2 \r\n\\par }\r\n"/>
<END CASE/>
<CASE Value="23"/>
<UPDATE TEXTBOX Header="Macro Status" Content="{\\rtf1\\ansi\\ansicpg1252\\deff0\\deflang1033{\\fonttbl{\\f0\\fnil\\fcharset2 Wingdings;}{\\f1\\fnil\\fcharset0 Tahoma;}{\\f2\\fnil Tahoma;}}\r\n{\\colortbl ;\\red0\\green0\\blue255;\\red0\\green0\\blue0;}\r\n\\viewkind4\\uc1\\pard\\cf1\\f0\\fs16 nnnnnnnnnnnnnnnnnnnnnnn\\f1 \r\n\\par \\cf2 %StatusText%\\cf0\\f2 \r\n\\par }\r\n"/>
<END CASE/>
<CASE Value="24"/>
<UPDATE TEXTBOX Header="Macro Status" Content="{\\rtf1\\ansi\\ansicpg1252\\deff0\\deflang1033{\\fonttbl{\\f0\\fnil\\fcharset2 Wingdings;}{\\f1\\fnil\\fcharset0 Tahoma;}{\\f2\\fnil Tahoma;}}\r\n{\\colortbl ;\\red0\\green0\\blue255;\\red0\\green0\\blue0;}\r\n\\viewkind4\\uc1\\pard\\cf1\\f0\\fs16 nnnnnnnnnnnnnnnnnnnnnnnn\\f1 \r\n\\par \\cf2 %StatusText%\\cf0\\f2 \r\n\\par }\r\n"/>
<END CASE/>
<CASE Value="25"/>
<UPDATE TEXTBOX Header="Macro Status" Content="{\\rtf1\\ansi\\ansicpg1252\\deff0\\deflang1033{\\fonttbl{\\f0\\fnil\\fcharset2 Wingdings;}{\\f1\\fnil\\fcharset0 Tahoma;}{\\f2\\fnil Tahoma;}}\r\n{\\colortbl ;\\red0\\green0\\blue255;\\red0\\green0\\blue0;}\r\n\\viewkind4\\uc1\\pard\\cf1\\f0\\fs16 nnnnnnnnnnnnnnnnnnnnnnnnn\\f1 \r\n\\par \\cf2 %StatusText%\\cf0\\f2 \r\n\\par }\r\n"/>
<END CASE/>
<END SWITCH/>
<DELAY Flags="\x01" Time="1" _ENABLED="FALSE"/>
<END REPEAT _ENABLED="FALSE"/>

Just add three lines of code to the macro you are tracking

<VARIABLE SET INTEGER Option="\x00" Destination="%StatusCount25%" Value="1"/>
<VARIABLE SET STRING Option="\x00" Destination="%StatusText%" Value="Step %StatusCount25%"/>
<MACRO RUN Use_ID="FALSE" Name="Status Bar" ID="-1" Wait="TRUE"/>

Here is how i do it:

<TVAR2:01:01:><REP3:08:000002:000001:0001:0:01:><TEXTTYPE:<CONTROL>c><TDELAY:.25><TVAR2:01:03:><ENDREP>

Variable Set String %T1% ""

Repeat Until %T1% <> ""

Text Type <CONTROL>c

Wait Time Delay 0.25 Seconds

Vairable Set String %T1% from Clipboard

Repeat End

Seems to work and you don't have to waste any more time than needed.

No question just a FYI if anyone else runs into this problem

I have several macro files (one for each department) users can switch from one macro file to anouther using a switch department macro. I noticed that the sytem try icons do not update to the new department and the when the icons are clicked they get an error and ME shuts down. There is a easy workaround for this, when the new file loads disable then enable the pop up menus used in the sytem tray. I am using 4.1.0.1

Hello I am a newbie and am trying to figure out what code will simply activate an existing microsoft excel file and jump to a specific worksheet in that file.

 

For example, a workbook titled Sales.xls and a worksheet titled Sheet1.

 

Thanks for any suggestions!

Press ctrl G (Go to) then type in the sheet and cell ex Sheet2!A1 will go to Sheet2 Cell A1

Hi Skippy,

In the file name feild, instead of just putting the file name, you can put the entire path. It does not matter what the default path is when you save the file. For example save the file "C:\Documents and Settings\All Users\Desktop\text.xlsx"

I've gotten this when anouther entire shortkey is part of the current shortkey.

Example: if you have shortkey "ME" and then create shortkey "MEP"

Here is another good trobleshooting tool to help find where the trouble spot is in a macro. Works great!

 

You can use a sound wave file. You just insert where you think the problem is, if that is not it, you can move it around.

 

The command is under multimedia in ME.

There are a lot of .wav files. You can do a search on your computer to see where they are at.

 

This is where this one was located on my computer:

C:\WINDOWS\Media\Windows XP Exclamation.wav>

 

  Sound Wave File: Windows XP Exclamation.wav

Great tip, thanks

I've run into the same probelm, I would also add a Strop CR/LF as well as the Trim.

<TMVAR2:01:01:00:000:000:><TMVAR2:04:01:00:000:000:>

In ME PRO you can have more than one macro running at a time. So can't you just activate a macro that will display a pop up window in 30 minutes? Then durring your lunch you can still run other macros as long as long as you don't disable other macros from running.

Just a thought.