Zoom with Hyperlink

661
0
07-15-2012 08:24 PM
MoisésCaballero
New Contributor
Hi,
Anybody can help me?
I work in ArcGIS 9.3 I need to zoom diferent features with Hyperlink (Nom_Loc is Hyperlink camp in dbf table)
I run a macro, first select feature after use Hyperlink, but I don't have use select feature, I need only zoom with Hyperlink.
Macro:

Sub ZoomLink(pLink, pLayer)
  Dim pHyperlink As IHyperlink
  Dim pFLayer As IFeatureLayer
  Dim pCmdItem As ICommandItem
  Dim pUID As New UID
  pUID.Value = "{AB073B49-DE5E-11D1-AA80-00C04FA37860}"
  Dim pMap As IMap
  Dim pmxDoc As IMxDocument
  Set pHyperlink = pLink
  Set pFLayer = pLayer
  Set pCmdItem = ThisDocument.CommandBars.Find(pUID)
  Set pmxDoc = ThisDocument
  Set pMap = pmxDoc.FocusMap
  pCmdItem.Execute
         
  End Sub

When I run macro, windows appear "Argument not optional", I don't know why. Any attempt to help will be very appreciated..
Thanks in advance...
0 Kudos
0 Replies