Dim d As IMxDocument Set d = ThisDocument Dim gc As IGraphicsContainer Dim gcs As IGraphicsContainerSelect Set gc = d.PageLayout Set gcs = gc gcs.UnselectAllElements gc.Reset Dim e As IElement Set e = gc.Next Do Until e Is Nothing If TypeOf e Is IMapFrame Then gcs.SelectElement e gc.BringForward g.SelectedElements Exit Do End If Set e = gc.Next Loop d.ActiveView.Refresh
Aangemelde leden kunnen berichten plaatsen, updates volgen en meer. Nieuw hier? Registreer een gratis account.
Find useful guides, FAQs, and documents to help you navigate and make the most of Esri Community.