Win32OLE.const_load -- where to find missing constants

D

David Lewis

I just spent a couple of hours tracking this down, so I'm posting it for
anyone else who might have trouble finding various Win32OLE constants.

I needed constants msoGroup and msoAutoShape in PowerPoint (determined
by running VBA code in PPT and inspecting the variables in the locals
window). According to standard practice explained in many places on the
web, this code should have done it...

module MSO
end

$ppt = WIN32OLE.new('PowerPoint.Application')
WIN32OLE.const_load($ppt, MSO)

But it didn't -- those constant did not get loaded. I got a total of
1399 constants loaded, but many that I needed were missing. After
rummaging around a bit, I found that there are a lot of symbols in the
MS Object library, and further experimentation indicated that version
11.0 worked for my installation -- Office 2010.

So, I added this line to the above...

WIN32OLE.const_load('Microsoft Office 11.0 Object Library', MSO)

And now MSO has all the constants from both sources, including the two I
need, though at the price of "warning: already initialized constant
CONSTANTS".

For your added pleasure, here is the complete code, including what I
used to rummage around in the debugger (RubyMine -- recently adopted and
working nicely after Oracle decommitted Ruby from the formerly lovely
NetBeans). kill_CONSTANTS is to eliminate the warning. I'm sure
there are slicker ways to code all this, but it worked.

$ppt = WIN32OLE.new('PowerPoint.Application')
$ppt.Visible = true
WIN32OLE.const_load($ppt, MSO)
MSO::kill_CONSTANTS
WIN32OLE.const_load('Microsoft Office 11.0 Object Library', MSO)
y = MSO::MsoAutoShape
x = MSO::MsoGroup

def class_constants(cls)
cls.constants.collect do |sym|
sym.to_s + "=" + eval(cls.to_s + "::" + sym.to_s).to_s
end.sort!
end

cc = class_constants(MSO)
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Members online

Forum statistics

Threads
473,743
Messages
2,569,478
Members
44,898
Latest member
BlairH7607

Latest Threads

Top