MS Proj (VBA Global.mpt Map transfer)

[Access101]

This code lists all the Maps in a Project. How do you get a list of all maps
in the Global.mpt
This doesn't work: Global.MapList(Items)

Function MapExist()

Dim Items As Integer, ReportNames As String

For Items = 1 To ActiveProject.MapList.Count

If ActiveProject.MapList(Items) = "GetTechSolData" Then
MapExist = True
End If

Next Items

End Function

 

[Jan De Messemaeker]

Hi,

I've tried to find the Global Maplist and this SEEMS to give it:
VBE.VBProjects(1).vbcomponents(1).properties("Maplist")

But unfortunately when one tries to find an item it gives an error.
So what I'd do is to transfer all maps from the global to an empty file
using OrganizerMoveItem and then read the name from that project.
HTH

 

[Access101]

Thanks for your time and suggestion. That's a good work around.

It's just hard to believe it's not more intuitive or simple than this.
We're not asking anything special, are we... you know what I mean.

Thanks

 

[Jan De Messemaeker]

You're welcome!