ShowInProjectView from VBA

[rossi]

Hi,


I wrote a script in VB to access elements of my EA model and select an element in the project browser. It works well.

Now I try this from Excel with VBA.
GetElementByGuid() works, but ShowInProjectView() breaks the script.
Is it possible to do this from Excel?

Code: [Select]

Dim myElem As EA.Element
Set myElem = Repository.GetElementByGuid("{AD.....1B}")
Repository.ShowInProjectView(myElem)

thanks
Rossi.

[qwerty]

You need to access the EA instance. There's something like

Code: [Select]

Set EAapp = GetObject(, "EA.App")
Set Repository = EAapp.repository
you need to prepend.

q.

[rossi]

Thank you, unfortunately it doesn't work.
The ConnectionString points to the correct repository and the call of GetElementByGuid() returns a correct value.

But ShowInProjectView() jumps to the error label.
Any further ideas?

[qwerty]

I just tried with a Perl script and that worked. Maybe it's a VB issue?

q.

[rossi]

It seems so.
I tried with ActivePython and that was working too.

I'm not an expert of VBA, but can it be a problem in the type conversion (from Element to Object)?

[qwerty]

Well, I used VB some time as long as there a) was no alternative and b) it worked with no issues. So I'm out ;-)

q,

[Geert Bellekens]

What does the error say?
Even in VBA you have some kind of error information.

It could be a type issue.
In C# I use this code. Notice that the type of item is object.

                    

Code: [Select]

// for all other items we can only select them on the project browser
                    // get the element based on the type and the id
                    object item = getEAObjectByID(type, ID);
                    //show the item in the project view
                    if (item != null)
                    {
                        this.wrappedModel.ShowInProjectView(item);
                        return EAWrapperFactory.createEAWrapper(this, item);
                    }
                    else
                    {
                        // the item was not found
                        throw new Exception("Could not find a " + type + " with id " + ID);
                    }
Geert

[rossi]

Now I have an error code:
"Object doesn't support this property or method"

Of what type should the parameter of ShowInProjectView() in VBA be?
'Object'? Or is there a particular EA type?

[Geert Bellekens]

the documentation says object

Geert

[qwerty]

If I read above code correctly it *is* an object (EA.Element) being supplied  :-/

q.

[Geert Bellekens]

I'm just thinking; if its not the type issue (EA.Element vs object) it might just be that VBA doesn't like the parentheses
You might need to write

Code: [Select]

Repository.ShowInProjectView myEleminstead of

Code: [Select]

Repository.ShowInProjectView(myElem)
Geert

Ah, the lovely VBA syntax

[rossi]

Thanks a lot Geert!!!

Now it works