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
サインインしたメンバーは投稿、更新のフォローなどができます。初めてですか?無料アカウントを登録してください。
Find useful guides, FAQs, and documents to help you navigate and make the most of Esri Community.