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
Membros conectados podem postar, seguir atualizações e mais. Novo aqui? Registre uma conta gratuita.
Find useful guides, FAQs, and documents to help you navigate and make the most of Esri Community.