MapFrame

Question

День добрый! Помогите пожалуйста! Как изменить размер МарFrame в PageLayout и задать положение. Заранее благодарен.

Answer 1

Set pActiveView = pMxDocument.PageLayout

Answer 2

VBA Code:

Dim pMxDoc As IMxDocument
Set pMxDoc = ThisDocument

Dim pGC As IGraphicsContainer
Set pGC = pMxDoc.PageLayout

Dim pElement As IElement
Set pElement = pGC.FindFrame(pMxDoc.FocusMap)

Dim pEnvelope As IEnvelope
Set pEnvelope = New Envelope
    pEnvelope.PutCoords 1, 1, 6, 6
    
pElement.Geometry = pEnvelope

pMxDoc.ActiveView.Refresh

Answer 3

И еще раз спасибо Alexander!