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
Los miembros registrados pueden publicar, seguir actualizaciones y más. ¿Nuevo aquí? Regístrate gratis.
Find useful guides, FAQs, and documents to help you navigate and make the most of Esri Community.