|
Dim nMapID, nMapIDInLayout, nLayoutID, nLegendID, i As Integer '**Let's find a map window to insert For i = 1 To NumWindows() If WindowInfo(WindowID(i), WIN_INFO_TYPE) = WIN_MAPPER Then nMapID = WindowID(i) Exit For End If Next Print "Map: " & WindowInfo(nMapID, WIN_INFO_NAME) 'Create Layout window ...
|