Full extend

Gespeichert von Nina am
im Forum ArcGIS
Hallo!
Kennt jemand den Code für den Full Extend Button? ich würde den gerne in mein Projejt basteln, kann ihn aber nirgends finden. Kennt ihn jemand oder kann mir sagen, wo ich ihn finden kann?
Viele Grüße!
Nina.

Gespeichert von Maxilla am Do., 19.04.2007 - 14:49

Permalink
Eigentlich nicht, aber der Code hier (VBA) tut's zumindest analog:

Sub zoomFullExtent()

Dim pd As IMxDocument
Dim pActiveView As IActiveView
Dim pEnv As IEnvelope

Set pd = Application.Document
Set pActiveView = pd.FocusMap
Set pEnv = pActiveView.FullExtent
pd.ActivatedView.Extent = pEnv
pd.UpdateContents
pActiveView.Refresh

End Sub

Gespeichert von Nina am Do., 19.04.2007 - 19:05

Permalink
Hey! Danke so gehts!