Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Starting Excel
Message
From
25/10/2005 17:14:26
Gary Foster
Pointsource Consulting LLC
Chanhassen, Minnesota, United States
 
General information
Forum:
Visual FoxPro
Category:
COM/DCOM and OLE Automation
Title:
Environment versions
Visual FoxPro:
VFP 9
OS:
Windows XP SP2
Miscellaneous
Thread ID:
01062014
Message ID:
01062053
Views:
9
Yuri,
Thanks for the reply. It triggered a train of thought that fixed the problem. The addins show up as installed, but invisible at start up. The following simplified code makes them appear:

x=CreateObject('Excel.Application')

*-- Add in shows up in collection
? x.Addins(3).Name && Returns name e.g., MyAddin

*-- Is it installed?
? x.Addins(3).Installed && Returns .T., but is not displayed

*-- Magic code
x.Addins(3).Installed = .F.
x.Addins(3).Installed = .T. && Voila! The toolbar appears. The installed .t. then .f. forces a display for some reason.


Gary


>Probably add-ins are not invoked (or they look like not installed) when you start with Excel Automation.
>
>Try something like this, and for "your" addins titles.
>
>
>oExcel= CREATEOBJECT("Excel.Application")
>
>oExcel.Workbooks.add()		&& any workbook MUST be opened
>
>lnAddins=0
>for ia=1 to oExcel.Application.Addins.Count
>	if oExcel.Application.Addins(ia).Title $"Analysis ToolPak, Analys32"
>		lnAddins=ia
>	endif
>endfor
>
>if lnAddins=0
>	wait wind time 1.0 "Terminating. 'Analysis ToolPak' or 'Analys32' addins are not are available!"
>	return
>endif
>
>with oExcel.Application.Addins(lnAddins)
>	if not .Installed
>   	         .Installed=.t.
>	endif
>endwith
>......
>
>
>
>>Hi all,
>>We have some add-ins for Excel that show up automatically as toolbars when Excel is started from Explorer or a shortcut. I need them to show up when started from CreateObject('Excel.Application') or some other progid. The add-ins are visible on the add-in Tools/Add-Ins dialog but not in the toolbar list and I have no idea how to make the wretched buttons appear in the Excel toolbar space. I suppose I could start Excel with ShellExecute() and then do a GetObject(), but I'd rather just start with COM and stay there.
>>
>>Any hints on how to do this?
>>
>>Thanks.
>>
>>Gary
Previous
Reply
Map
View

Click here to load this message in the networking platform